* %GOTO PLSDCL; /* YM1235 00050002 MACRO 00100002 IHJSSCR 00110002 * 03/12/73 LEVEL=01 00150002 SSCR DSECT SUBSYSTEM CHECKPOINT RECORD 00250002 SSCRID DS CL1 CHECKPOINT RECORD ID 00300002 SSCRCODE EQU X'01' CODE FOR SSCR RECORD 00350002 SSCRSSID DS CL1 SUBSYSTEM ID 00400002 SSCRSUBS EQU X'00' SUBSYSTEM INTERFACE 00450002 SSCRVSAM EQU X'01' VSAM 00500002 SSCRSPIE EQU X'02' SPIE 00550002 SSCRHDRL DS CL2 SSCR HDR LNGTH AND OFFSET TO 00600002 * DATA AREA 00650002 SSCRFCHN DS F CHAIN PNTR IF OTHER SSCR'S 00700002 SSCRFLG1 DS CL1 FLAGS 00750002 SSCRCKRS EQU X'80' 1 = CHECKPOINT TIME 00800002 * 0 = RESTART TIME 00850002 SSCRRES1 DS CL1 RESERVED 00900002 SSCRDATL DS CL2 DATA LENGTH 00950002 SSCRDCBA DS F ASSOCIATED DCB ADDRESS 01000002 SSCRDATA DS 0C DATA TO END OF SSCR 01050002 MEND , */ YM1235 01100002 *%PLSDCL: ; 01200002 *DECLARE 01250002 * 1 SSCR BASED, /* SUBSYSTEM CHECKPOINT RECORD */ 01300002 * 2 SSCRID CHAR(1), /* CHECKPOINT RECORD ID */ 01350002 *%DCL SSCRDODE CHAR; 01400002 *%SSCRCODE = '''01''X'; /* CODE FOR SSCR RECORD */ 01450002 * 2 SSCRSSID CHAR(1), /* SUBSYSTEM ID */ 01500002 *%DCL SSCRSUBS CHAR; 01550002 *%SSCRSUBS = '''00''X'; /* SUBSYSTEM INTERFACE */ 01600002 *%DCL SSCRVSAM CHAR; 01650002 *%SSCRVSAM = '''01''X'; /* VSAM */ 01700002 *%DCL SSCRSPIE CHAR; 01750002 *%SSCRSPIE = '''02''X'; /* SPIE */ 01800002 * 2 SSCRHDRL FIXED(15), /* SSCR HDR LNGTH AND OFFSET TO */ 01850002 * /* DATA AREA */ 01900002 * 2 SSCRFCHN PTR(31), /* CHAIN PNTR IF OTHER SSCR'S */ 01950002 * 2 SSCRFLG1 BIT(8), /* FLAGS */ 02000002 * 3 SSCRCKRS BIT(1), /* 1 = CHECKPOINT TIME */ 02050002 * /* 0 = RESTART TIME */ 02100002 * 2 SSCRRES1 CHAR(1), /* RESERVED */ 02150002 * 2 SSCRDATL FIXED(15), /* DATA LENGTH */ 02200002 * 2 SSCRDCBA PTR(31), /* ASSOCIATED DCB ADDRESS */ 02250002 * 2 SSCRDATA CHAR(*); /* DATA TO END OF SSCR */ 02300002