19 lines
1.4 KiB
COBOL
19 lines
1.4 KiB
COBOL
00001 ***** 07/27/98
|
|
00002 * DTSIL131
|
|
00003 * MACIL131 JOB SERVICE CODE AND AREA CODE / LV001
|
|
00004 * JOB SERVICE OFFICE MODULE LINKAGE. DTSIL131
|
|
00005 * DTSIL131
|
|
00006 ***** DTSIL131
|
|
00007 SKIP1 DTSIL131
|
|
00008 10 L131-LENGTH PIC S9(04) COMP VALUE +32. DTSIL131
|
|
00009 SKIP1 DTSIL131
|
|
00010 10 L131-JS-ZIP PIC X(10). DTSIL131
|
|
00011 10 L131-AREA-CD PIC S9(03) COMP-3. DTSIL131
|
|
00012 SKIP1 DTSIL131
|
|
00013 10 L131-RESULT-IND PIC X(01). DTSIL131
|
|
00014 88 L131-OK VALUE '1'. DTSIL131
|
|
00015 SKIP1 DTSIL131
|
|
00016 10 L131-JS-OFFICE-ID PIC S9(03) COMP-3. DTSIL131
|
|
00017 SKIP1 DTSIL131
|
|
00018 10 FILLER PIC X(15). DTSIL131
|