* %GOTO RSTWABSL; 01050002 MACRO 01100002 IEEVRSWA &VER=1 02010000 * 03/15/73 LEVEL=01 02020002 .* VERSION: 02060002 .* 1 = OS 02110002 .* 2 = AOS/1 02160002 .* 3 = AOS/2 02210002 RSTWA DSECT RESTART WORK AREA 03000002 RSWAOFST DS F OFFSET TO REPDCB'S W.A. 04000002 RSMWOFST DS F OFFSET TO REPMAIN'S W&A. 05000002 RSBFOFST DS F OFFSET TO RESTART'S BUFFER 06000002 * 07000017 * ********************************************************* 08000017 * * * 09000017 * * THE INFORMATION MAPPED BY THIS MACRO IS SHARED * 10000017 * * BY ALL RESTART ROUTINES (RESTART, * 11000017 * * REPMAIN, REPDCB, AND RETURN) * 12000017 * * * 13000017 * ********************************************************* 14000017 RSCKDCB DS F PTR TO OLD CHKPT DCB 15000002 RSWACL DS F LENGTH OF RSTWA 16000002 RSBUFL DS F LENGTH OF RESTART'S BUFFER 17000002 RSDCBFLG DS 0CL1 17500017 RSDCBL DS F LENGTH OF REPDCB'S W.A. 18000002 RSINT DS F DATA MANAGEMENT INTERFACE BYTE 19000002 RSTCBAD DS F POINTER TO RESTART'S TCB 20000002 RSPPM DS F LOW ADDRESS OF P.P. CORE 21000002 RSPPE DS F HIGH ADDRESS OF P.P. CORE 22000002 RSPPML DS F LOW ADDR OF SECONDARY PP CORE 23000002 RSPPEL DS F HIGH ADDR OF SECONDARY PP CORE 24000002 RSTIOTO DS F LENGTH OF OLD TIOT 25000002 RSTIOTAD DS F POINTER TO OLD P/P TIOT 26000002 RSCIRTTR DS F TTR OF FIRST CIR OF CHKPT DATA 27000002 * SET (IF ON D.A. DEV) 27050002 RSSVRBN DS F ADDR OF RESTART'S SVRB 28000002 RSFLAG1 DS CL1 RESTART HOUSEKEEPING FLAGS 29000002 RSBPAM EQU 1 CHKPT DATA SET WAS OPENED FOR BPAM 30000002 RSOPEN EQU 2 CHKPT OPENED DATA SET 31000002 AIF ('&VER' NE '1').LIB1YA1 TEST FOR OS 31050000 RSMVT EQU 8 INDICATES MVT SYSTEM 32000002 RSMFT EQU 16 MFT SYSTEM 33000002 .LIB1YA1 ANOP 33100000 RSTAPE EQU 32 RESTART DATA SET ON TAPE 34000002 RSFLAG2 DS CL1 35000017 * RSFLAG2 BIT USAGE 35050000 * X'08' - USER DID NOT SPECIFY CHECK POINT DATA SET BLOCKSIZE 35100000 * X'04' - A TCAM DEB EXISTS FOR THIS JOB 35150000 RSDCBSI DS H SAVE AREA FOR USER BLKSIZE 35200002 RSRETCOD DS H RETURN CODE AREA 36000002 RESTART EQU 4 RETURN CODE - RESTART HAS OCCURRED 37000002 RSIOERR EQU X'0C' INDICATES I/O ERROR 37500002 RSSVRB DS F PCP - POINTS TO THE OLD CHKPT SVRB 38000002 * MVT - FIELD NOT USED 39000002 RSNSTAE DS F ANCHOR FOR USER SCB CHAIN Y02076 39010002 RSPIE DS F ANCHOR FOR USER PIE CHAIN Y02076 39020002 RSSSCR DS F ADDR OF 1ST SSCR FOR VSAM/ Y02076 39050002 * ADDR OF QMNGR WORKAREA FOR Y02076 39100002 * TAPE POSITIONING Y02076 39150002 RSBDCB DS 22F DCB FOR CHKPT DATA SET 40000002 RSDECB1 DS 0F MAPPING OF DECB 40300002 RSECB1 DS F 40600017 RSTYPE1 DS H 40900017 RSLNGTH1 DS H 41200017 RSDCBAD1 DS F 41500017 RSAREA1 DS F 41800017 RSIOBPT1 DS F 42100017 RSDCB EQU RSDCBAD1 45000017 RSIOBCP DS 30F IOB AND CHANNEL PROGRAM Y02076 45050002 * RELOCATION AREA Y02076 45100002 RSERAS00 DS F ERASE AREA 00 Y02076 45150002 RSERAS01 DS F ERASE AREA 01 Y02076 45200002 RSERAS02 DS F ERASE AREA 02 Y02076 45250002 RSERAS03 DS F ERASE AREA 03 Y02076 45300002 RSERAS04 DS F ERASE AREA 04 Y02076 45350002 RSERAS05 DS F ERASE AREA 05 Y02076 45400002 RSERAS06 DS F ERASE AREA 06 Y02076 45450002 RSERAS07 DS F ERASE AREA 07 Y02076 45500002 RSERAS08 DS F ERASE AREA 08 Y02076 45550002 RSERAS09 DS F ERASE AREA 09 Y02076 45600002 RSREGSAV DS 18F REGISTER SAVE AREA 46000002 AIF ('&VER' NE '2').LIB2YA1 TEST FOR AOS/2 46052000 ORG RSREGSAV+12 AOS WORKAREAS OVERLAP REGSAVE 46060002 RPMWA DS F REPMAIN WORKAREA 46100002 SIRPLIST DS 0F SIR PARAMETER LIST 46150002 SIRECB DS 0F ECB FIELD 46200002 SIRTYPFG DS XL1 SIR TYPE 46210002 SIRFIX EQU X'50' LOAD AND FIX 46300002 SIRFREE EQU X'20' FREE 46350002 SIRCLEAR EQU X'08' CLEAR 46400002 SIRLNG EQU X'02' LONG TERM 46450002 SIRSADD DS AL3 START ADDRESS 46500002 SIRENDFG DS XL1 END FLAG 46550002 SIRLAST EQU X'80' LAST ENTRY 46600002 SIRAPB EQU X'20' REAL ADDRESS PASSBACK 46650002 SIREADD DS AL3 END ADDRESS 46700002 ORG RSREGSAV+72 RESET LOCATION COUNTER 46710002 RSDSDIN DS F OLD DSD POINTERS 46760002 RSDSDOUT DS F 46810000 RSJCMIN DS F OLD JCM POINTERS 46860002 RSJCMOUT DS F 46910000 RSDSTEND DS F END OF REPDCB'S DATA SET TBL 46960002 .LIB2YA1 ANOP 46970000 RSTIOTL DS F LENGTH OF TIOT SAVE AREA 47000002 DS 0D 48000017 RSTIOT EQU * BEGINNING OF TIOT SAVE AREA 49000002 * IN PCP THE NEW TIOT IS SAVED HERE 49050002 * IN MVT THE OLD TIOT IS SAVED HERE 50000002 MEND 51000017 %EJECT; 51050002 *%RSTWABSL: ; 51100002 *DECLARE 51150002 * 1 RSTWA BOUNDARY(DWORD) BASED, 51200000 * 2 RSWAOFST FIXED(31), /* OFFSET TO BEGINNING OF 51250002 * REPDCB'S W.A. */ 51300002 * 2 RSMWOFST FIXED(31), /* OFFSET TO BEGINNING OF 51350002 * REPMAIN'S W&A. */ 51400002 * 2 RSBFOFST FIXED(31), /* OFFSET TO BEGINNING OF 51450002 * RESTART'S BUFFER */ 51500002 * /* */ 51550002 * /* *******************************************************/ 51600002 * /* * */ 51650002 * /* * THE INFORMATION MAPPED BY THIS MACRO IS SHARED */ 51700002 * /* * BY ALL RESTART ROUTINES (RESTART, */ 51750002 * /* * REPMAIN, REPDCB, AND RETURN) */ 51800002 * /* * */ 51850002 * /* *******************************************************/ 51900002 * 2 RSCKDCB PTR(31), /* PTR TO OLD CHKPT DCB, 51950002 * FIELD IS FILLED IN BY 52000002 * REPMAIN */ 52050002 * 2 RSWACL FIXED(31), /* LENGTH OF RSTWA */ 52100002 * 2 RSBUFL FIXED(31), /* LENGTH OF RESTART'S 52150002 * BUFFER */ 52200002 * 2 RSDCBL FIXED(31), /* LENGTH OF REPDCB'S W.A. */ 52250002 * 3 RSDCBFLG CHAR(1), 52300002 * 2 RSINT FIXED(31), /* DATA MANAGEMENT 52350002 * INTERFACE BYTE */ 52400002 * 2 RSTCBAD PTR(31), /* POINTER TO RESTART'S TCB */ 52450002 * 2 RSPPM PTR(31), /* PTR TO LOW ORDER ADDRESS 52500002 * OF P.P. CORE */ 52550002 * 2 RSPPE PTR(31), /* PTR TO HIGH ORDER 52600002 * ADDRESS OF P.P. CORE */ 52650002 * 2 RSPPML PTR(31), /* LOW ORDER ADDR OF 52700002 * SECONDARY PP CORE */ 52750002 * 2 RSPPEL PTR(31), /* HIGH ORDER ADDR OF 52800002 * SECONDARY PP CORE */ 52850002 * 2 RSTIOTO FIXED(31), /* LENGTH OF OLD TIOT */ 52900002 * 2 RSTIOTAD PTR(31), /* POINTER TO OLD P/P TIOT 52950002 * FILLED IN BY REPMAIN */ 53000002 * 2 RSCIRTTR CHAR(4), /* TTR OF FIRST CIR OF 53050002 * CHKPT DATA SET (IF ON 53100002 * D.A. DEV) */ 53150002 * 2 RSSVRBN PTR(31), /* ADDR OF RESTART'S SVRB. */ 53200002 * 2 RSFLAG1 CHAR(1), /* RESTART HOUSEKEEPING 53250002 * FLAGS */ 53300002 *%DCL RSBPAM CHAR; 53350002 *%RSBPAM ='''01''X'; /* INDICATES CHKPT DATA SET 53400002 * WAS OPENED FOR BPAM. */ 53450002 *%DCL RSOPEN CHAR; 53500002 *%RSOPEN ='''02''X'; /* INDICATES CHKPT OPENED 53550002 * DATA SET. */ 53600002 *%IF VER ^='1' 53650002 %THEN 53700002 * %GOTO LIB1YA1 ; 53750002 * /* TEST FOR OS */ 53800002 *%DCL RSMVT CHAR; 53850002 *%RSMVT ='''08''X'; /* INDICATES MVT SYSTEM. */ 53900002 *%DCL RSMFT CHAR; 53950002 *%RSMFT ='''10''X'; /* MFT SYSTEM */ 54000002 *%LIB1YA1: ; 54050002 *%DCL RSTAPE CHAR; 54100002 *%RSTAPE ='''20''X'; /* RESTART DATA SET ON 54150002 * TAPE. */ 54200002 * 2 RSFLAG2 CHAR(1), 54250002 */* RSFLAG2 BIT USAGE */ 54300002 */* X'08' - USER DID NOT SPECIFY CHECK POINT DATA SET BLOCKSIZE */ 54350002 */* X'04' - A TCAM DEB EXISTS FOR THIS JOB */ 54400002 * 2 RSDCBSI FIXED(15), /* SAVE AREA FOR USER 54450002 * BLKSIZE */ 54500002 * 2 RSRETCOD CHAR(2), /* RETURN CODE AREA */ 54550002 3 RSRETCD1 CHAR(1), /* FIRST BYTE RESTART R.C. */ 54600002 3 RSRETCD2 CHAR(1), /* SECOND BYTE RESTART R.C. */ 54650002 *%DCL RESTART CHAR; 54700002 *%RESTART ='''04''X'; /* RETURN CODE, INDICATES 54750002 * RESTART HAS OCCURRED. */ 54800002 *%DCL RSIOERR CHAR; 54850002 *%RSIOERR ='''0C''X'; /* INDICATES I/O ERROR */ 54900002 * 2 * CHAR(2), /* RESERVED @Y30DSDT*/ 54910000 * 2 RSSVRB PTR(31), /* IN PCP THIS FIELD POINTS 54950002 * TO THE OLD CHKPT SVRB. 55000002 * IN MVT THIS FIELD DOES 55050002 * NOT CONTAIN MEANINGFUL 55100002 * INFO. */ 55150002 * 2 RSNSTAE PTR(31), /* ANCHOR FOR USER SCB CHAIN*/ 55152002 * 2 RSPIE PTR(31), /* ANCHOR FOR USER PIE CHAIN*/ 55154002 * 2 RSSSCR PTR(31), /* ADDR OF 1ST SSCR FOR VSAM/ 55160002 * ADDR OF QMNGR WORKAREA FOR 55170002 * TAPE POSITIONING */ 55180002 * 2 RSBDCB (22) FIXED(31), /* DCB FOR CHKPT DATA SET. */ 55200002 * 2 XCTLNAM1 CHAR(8) BDY(WORD), /* XCTL PARM LIST (EXEC) */ 55250002 * 3 RSECB1 FIXED(31), 55360002 * 4 RSDECB1 FIXED(31), /* MAPPING OF DECB */ 55370002 * 3 RSTYPE1 FIXED(15), 55400002 * 3 RSLNGTH1 FIXED(15), 55450002 * 2 RSDCB PTR(31), 55500002 * 3 RSDCBAD1 PTR(31), 55550002 * 2 RSAREA1 FIXED(31), 55600002 * 2 RSIOBPT1 FIXED(31), 55650002 * 2 RSIOBCP (30) FIXED(31), /* IOB AND CHANNEL PROGRAM 55700002 * RELOCATION AREA */ 55750002 * 2 RSERAS00 FIXED(31), /* ERASE AREA 00 */ 55800002 * 2 RSERAS01 FIXED(31), /* ERASE AREA 01 */ 55850002 * 2 RSERAS02 FIXED(31), /* ERASE AREA 02 */ 55900002 * 2 RSERAS03 FIXED(31), /* ERASE AREA 03 */ 55950002 * 2 RSERAS04 FIXED(31), /* ERASE AREA 04 */ 56000002 * 2 RSERAS05 FIXED(31), /* ERASE AREA 05 */ 56050002 * 2 RSERAS06 FIXED(31), /* ERASE AREA 06 */ 56100002 * 2 RSERAS07 FIXED(31), /* ERASE AREA 07 */ 56110002 * 2 RSERAS08 FIXED(31), /* ERASE AREA 08 */ 56120002 * 2 RSERAS09 FIXED(31), /* ERASE AREA 09 */ 56130002 * 2 RSREGSAV (18) FIXED(31), /* REGISTER SAVE AREA */ 56150030 *%IF VER ^='2' /* TEST FOR AOS/2 @Y30DSDT*/ 56200030 * %THEN 56250030 * %GOTO LIB2YA1 ; 56300002 * 1 RSTWAS01 BASED(ADDR(RSREGSAV)+12), /* AOS WORKAREAS @Y30DSDT 56450030 * OVERLAP REGSAVE @Y30DSDT*/ 56500030 * 2 RPMWA PTR(31), /* REPMAIN WORKAREA */ 56550002 * 2 SIRPLIST CHAR(12) BDY(WORD), /* SIR PARAMETER LIST */ 56600002 * 3 SIRECB FIXED(31), /* ECB FIELD */ 56650002 * 3 SIRTYPFG CHAR(1), /* SIR TYPE FIELD */ 56700002 *%DCL SIRFIX CHAR; /* LOAD AND FIX */ 56750002 *%SIRFIX = '''50''X'; 56800002 *%DCL SIRFREE CHAR; /* FREE */ 56850002 *%SIRFREE = '''20''X'; 56900002 *%DCL SIRCLEAR CHAR; /* CLEAR */ 56950002 *%SIRCLEAR = '''08''X'; 57000002 *%DCL SIRLNG CHAR; /* LONG TERM */ 57050002 *%SIRLNG = '''02''X'; 57100002 * 3 SIRSADD PTR(24), /* START ADDRESS */ 57150002 * 3 SIRENDFG CHAR(1), /* END FLAG */ 57200002 *%DCL SIRLAST CHAR; /* LAST ENTRY */ 57250002 *%SIRLAST = '''80''X'; 57300002 *%DCL SIRAPB CHAR; /* REAL ADDRESS PASSBACK */ 57350002 *%SIRAPB = '''20''X'; 57400002 * 3 SIREADD PTR(24); /* END ADDRESS */ 57450002 *DECLARE 1 RSTWAS02 57500002 * BASED(ADDR(RSREGSAV)+72), /* RESET LOCATION COUNTER 57550002 * TO CONTINUE */ 57600002 * 2 RSDSDIN PTR(31), /* OLD DSD POINTERS */ 57650002 * 2 RSDSDOUT FIXED(31), 57700002 * 2 RSJCMIN PTR(31), /* OLD JCM POINTERS */ 57750002 * 2 RSJCMOUT FIXED(31), 57800002 * 2 RSDSTEND FIXED(31), /* END REPDCB'S DATA SET TBL*/ 57850030 *%LIB2YA1: ; /*@Y30DSDT*/ 57900030 * 2 RSTIOTL FIXED(31), /* LENGTH OF TIOT SAVE AREA */ 58000002 * 2 RSTIOT CHAR(*) BDY(DWORD); /* START OF TIOT SAVE AREA */ 58050030 * /* */ 58100002 * /* END OF IEEVRSWA, RESTART WORK AREA */ 58250002 * /* */ 58300002