44 lines
3.4 KiB
COBOL
44 lines
3.4 KiB
COBOL
00001 ***** 08/11/98
|
|
00002 * DTSIL829
|
|
00003 * DTSIL829 TEMPORARY STORAGE INPUT/OUTPUT LINKAGE. LV003
|
|
00004 * DTSIL829
|
|
00005 * DTSIL829 IS USED IN CONJUNCTION WITH A TEMPORARY CL**2
|
|
00006 * STORAGE RECORD AREA TO FORM THE COMMUNICATIONS DTSIL829
|
|
00007 * AREA TO DTSCU829. CL**2
|
|
00008 * CL**3
|
|
00009 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH CL**3
|
|
00010 * CL**3
|
|
00011 ***** DTSIL829
|
|
00012 CL**2
|
|
00013 *********10 L829-COMM-AREA-LENGTH PIC S9(04) COMP. CL**2
|
|
00014 *********10 L829-CONTROL-BLOCK-LENGTH PIC S9(04) COMP CL**2
|
|
00015 *************************************************VALUE +64. CL**2
|
|
00016 CL**2
|
|
00017 10 L829-CMND-CD PIC X(03). DTSIL829
|
|
00018 88 L829-READ-ITEM-88 VALUE 'RDI'. DTSIL829
|
|
00019 88 L829-READ-NEXT-88 VALUE 'RDN'. DTSIL829
|
|
00020 88 L829-WRITE-88 VALUE 'WR '. DTSIL829
|
|
00021 88 L829-REWRITE-88 VALUE 'RWR'. DTSIL829
|
|
00022 88 L829-DELETE-QUEUE-88 VALUE 'DEL'. DTSIL829
|
|
00023 CL**2
|
|
00024 10 L829-QUEUE-NAME. DTSIL829
|
|
00025 15 L829-QUEUE-NAME-PREFIX PIC X(07). DTSIL829
|
|
00026 15 L829-QUEUE-NAME-SUFFIX PIC X(01). DTSIL829
|
|
00027 CL**2
|
|
00028 10 L829-ITEM-NO PIC S9(04) COMP. DTSIL829
|
|
00029 CL**2
|
|
00030 10 L829-REC-LENGTH PIC S9(04) COMP. DTSIL829
|
|
00031 CL**2
|
|
00032 10 L829-STORAGE-TYPE PIC X(01). DTSIL829
|
|
00033 88 L829-DEFAULT-STORAGE-88 VALUE LOW-VALUES.DTSIL829
|
|
00034 88 L829-AUXILIARY-STORAGE-88 VALUE 'A'. DTSIL829
|
|
00035 88 L829-MAIN-STORAGE-88 VALUE 'M'. DTSIL829
|
|
00036 CL**2
|
|
00037 10 FILLER PIC X(47). CL**2
|
|
00038 CL**2
|
|
00039 10 L829-RESULT-IND PIC X(01). DTSIL829
|
|
00040 88 L829-OK-88 VALUE '0'. DTSIL829
|
|
00041 88 L829-ITEMERR-88 VALUE '1'. DTSIL829
|
|
00042 88 L829-QIDERR-88 VALUE '2'. DTSIL829
|
|
00043 88 L829-NO-REC-88 VALUE '1' '2'. DTSIL829
|