* % GO TO SSCTPLS; /* 00050002 MACRO 00100002 IEFJSCVT 00150002 * 00200002 * SUBSYSTEM CVT 00250002 * 00300002 * STATUS - VS2 SU16 - IN THIS MODULE, SU 16 SUPPORTS @G16APPK 00310041 * VPSS SUPPORT ( SU 29 - @G29AN2F). @G16APPK 00320041 * 00330041 SSCT DSECT 00350002 SSCTBEGN EQU * 00400002 SSCTID DC CL4'SSCT' CONTROL BLOCK IDENTIFIER 00450002 SSCTSCTA DS A PTR TO NEXT SSCVT OR ZERO 00500002 SSCTSNAM DS CL4 SUBSYSTEM NAME 00550002 SSCTFLG1 DS B FLAGS 00600004 SSCTSFOR EQU X'80' SERIAL FIB OPERATIONS REQUIRED *00610004 @Z40EPSS 00620004 SSCTUPSS EQU X'40' USE PRIMARY SUBSYSTEM'S @G29AN2F 00627041 * SERVICES FOR THIS SUBSYSTEM @G29AN2F 00632041 * (E.G. SYSOUT) @G29AN2F 00637041 SSCTRSV1 DS 3X RESERVED 00650002 SSCTSSVT DS A SUBSYSTEM VECTOR TABLE POINTER 00700002 SSCTSUSE DS F RESERVED FOR SUBSYSTEM USAGE 00750002 SSCTSIZE EQU *-SSCTBEGN SSCVT LENGTH 00800002 MEND */ 00850002 * %SSCTPLS:; 00900002 */* */ 00950002 */* SUBSYSTEM CVT */ 01000002 */* */ 01050002 */* STATUS - VS2 SU16 - IN THIS MODULE, SU 16 SUPPORTS @G16APPK*/ 01060041 */* VPSS SUPPORT ( SU29 - @G29AN2F). @G16APPK*/ 01070041 */* */ 01080041 * DCL 1 SSCT BASED(SSCTPTR), 01100002 * 2 SSCTID CHAR(4), /* CONTROL BLOCK ID='SSCT' */ 01150002 * 2 SSCTSCTA PTR(31), /* PTR TO NEXT SSCVT OR ZERO */ 01200002 * 2 SSCTSNAM CHAR(4), /* SUBSYSTEM NAME */ 01250002 * 2 SSCTFLG1 BIT(8), /* FLAGS */ 01300002 * 3 SSCTSFOR BIT(1), /* SERIAL FIB OPERATIONS REQUIRED 01310004 * @Z40EPSS*/ 01320004 * 3 SSCTUPSS BIT(1), /*USE PRIMARY SUBSYSTEM'S 01322041 * SERVICES FOR THIS SUBSYSTEM 01323041 * (E.G. SYSOUT) @G29AN2F*/ 01326041 * 3 * BIT(6), /* RESERVED @G29AN2F*/ 01334041 * 2 SSCTRSV1 PTR(24), /* RESERVED */ 01350002 * 2 SSCTSSVT PTR(31), /* SUBSYSTEM VECTOR TABLE POINTER */ 01400002 * 2 SSCTSUSE PTR(31); /* RESERVED FOR SUBSYSTEM USAGE */ 01450002