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