DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
16
Copybook/DTSIXPTS.cpy
Normal file
16
Copybook/DTSIXPTS.cpy
Normal file
@ -0,0 +1,16 @@
|
||||
00001 ***** 11/17/98
|
||||
00002 * DTSIXPTS
|
||||
00003 * DTSIXPTS ON-LINE PRINT TEMPORARY STORAGE RECORD LV002
|
||||
00004 * DTSIXPTS
|
||||
00005 * CL**2
|
||||
00006 * 11/17/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
||||
00007 * CL**2
|
||||
00008 ***** DTSIXPTS
|
||||
00009 CL**2
|
||||
00010 10 XPTS-CC PIC X(01). DTSIXPTS
|
||||
00011 88 XPTS-SS-88 VALUE ' '. DTSIXPTS
|
||||
00012 88 XPTS-DS-88 VALUE '0'. DTSIXPTS
|
||||
00013 88 XPTS-TS-88 VALUE '-'. DTSIXPTS
|
||||
00014 88 XPTS-FF-88 VALUE '1'. DTSIXPTS
|
||||
00015 CL**2
|
||||
00016 10 XPTS-DATA PIC X(132). CL**2
|
||||
Reference in New Issue
Block a user