20 lines
1.5 KiB
COBOL
20 lines
1.5 KiB
COBOL
00001 ******************************************************************07/18/95
|
|
00002 * EWGVSMCD VSAM - REV 2.0 *EWGVSMCD
|
|
00003 ****************************************************************** LV019
|
|
00004 05 VSMC-W-W. CL*16
|
|
00005 15 VSAM-W-RETURN-CODE PIC 9(4) COMP. CL*16
|
|
00006 88 VSAM-W-ERROR VALUE 30 40 50 80. CL*16
|
|
00007 15 VSAM-W-CONTROL-AREA. CL*16
|
|
00008 20 VSMC-W-LAST-KEY PIC 9(12). CL*17
|
|
00009 20 VSMC-W-KEY. CL*16
|
|
00010 25 VSMC-W-SSN PIC 9(9). CL*16
|
|
00011 25 VSMC-W-SEQ PIC X(3). CL*18
|
|
00012 20 VSMC-W-SEG-NBR OCCURS 02 TIMES PIC S9(4) COMP. CL*17
|
|
00013 20 VSMC-W-RECORD-LEN PIC S9(4) COMP. CL*16
|
|
00014 15 COM-BLL1-W-POINTER PIC S9(8) COMP. CL*16
|
|
00015 15 VSAM-W-RETURN-PGM PIC X(3). CL*16
|
|
00016 15 VSAM-W-COM-WRITE PIC 9. CL*16
|
|
00017 88 COM-W-REWRITE VALUE 0. CL*16
|
|
00018 88 COM-W-WRITE VALUE 1. CL*16
|
|
00019 15 FILLER PIC X(4) VALUE 'XXXX'. CL*19
|