* %GOTO PLSTCAVT; /* 00000100 MACRO 00000200 TCAVTD &DSECT=YES 00000300 .*A000000-999999 @Y17XAXF 00000400 .*C000005-000067 (RESEQUENCE MODULE TO INSERT FIX) @OZ31115 00000500 AIF ('&DSECT' EQ 'NO').NODSECT 00050500 IEDQCKAD DSECT 96899900 AGO .GENFLD 96949900 .NODSECT ANOP 96999900 IEDQCKAD DS 0D 97049900 .GENFLD ANOP 97099900 * 97149900 * CHECKPOINT/RESTART ADDRESS VECTOR TABLE 97199900 * 97249900 CAVTTCWA DS A ADDRESS OF TCAM CHECKPOINT 97299900 * WORKAREA 97349900 CAVTNWA DS A WORKAREA FOR 3705 97399900 * CHECKPOINT/RESTART 97449900 CAVTWTG DS XL1 WHERE TO GO AFTER A 3705 97499900 * CHECKPOINT I/O 97549900 CAVTFLGS DS XL1 CHECKPOINT/RESTART FLAGS 97599900 CAVTRSV1 DS XL2 RESERVED 97649900 CAVTWL1 DS 0CL16 WAIT LIST WITH TCAM WITH OR 97699900 * WITHOUT 3705 CHECKPOINT 97749900 CAVTTQE DS A ECB FOR TCAM CKPT QUEUE 97799900 CAVTEOL1 DS XL1 END OF LIST - TCAM CKPT ONLY 97849900 CAVTTIOE DS AL3 ECB FOR TCAM CKPT I/O 97899900 CAVTWL2 DS 0CL8 WAIT LIST WITH ONLY 3705 CKPT 97949900 CAVTEOL2 DS XL1 END OF LIST - NO 3705 CKPT I/O 97999900 * STARTED 98049900 CAVTNQE DS AL3 ECB FOR 3705 CKPT QUEUE 98099900 CAVTEOL3 DS XL1 END OF LIST - 3705 CKPT I/O 98149900 * STARTED 98199900 CAVTNIOE DS AL3 ECB FOR 3705 CKPT I/O 98249900 CAVTCRIO DS A . ADDRESS OF 3705 CHECKPOINT/ 98299900 * RESTART I/O ROUTINE 98349900 CAVTCKTR DS XL2 TCAM CKPT TRACE OFFSET @OZ31115 98399900 CAVTNTR DS XL2 3705 CKPT TRACE OFFSET @OZ31115 98439900 CAVTSIZE EQU *-IEDQCKAD SIZE OF CHECKPOINT AVT 98479900 MEND */ 98519900 *%PLSTCAVT : ; 98559900 * DECLARE 98599900 * 1 IEDQCKAD BDY(DWORD) BASED(RCAVT), 98639900 */* */ 98679900 */* CHECKPOINT/RESTART ADDRESS VECTOR TABLE */ 98719900 */* */ 98759900 * 2 CAVTTCWA PTR(31), /* ADDRESS OF TCAM CHECKPOINT 98799900 * WORKAREA */ 98839900 * 2 CAVTNWA PTR(31), /* WORKAREA FOR 3705 98879900 * CHECKPOINT/RESTART */ 98919900 * 2 CAVTWTG BIT(8), /* WHERE TO GO AFTER A 3705 98959900 * CHECKPOINT I/O */ 98999900 * 2 CAVTFLGS BIT(8), /* CHECKPOINT/RESTART FLAGS */ 99039900 * 2 * CHAR(2), /* RESERVED */ 99079900 * 2 CAVTWL1, /* WAIT LIST WITH TCAM WITH OR 99119900 * WITHOUT 3705 CHECKPOINT */ 99159900 * 3 CAVTTQE PTR(31), /* ECB FOR TCAM CKPT QUEUE */ 99199900 * 3 CAVTEOL1 BIT(8), /* EOL - TCAM CKPT ONLY */ 99239900 * 3 CAVTTIOE PTR(24), /* ECB FOR TCAM CKPT I/O */ 99279900 * 3 CAVTWL2, /* WAIT LIST WITH ONLY 99319900 * 3705 CHPT */ 99359900 * 4 CAVTEOL2 BIT(8), /* EOL - NO 3705 CKPT I/O 99399900 * STARTED */ 99439900 * 4 CAVTNQE PTR(24), /* ECB FOR 3705 CKPT QUEUE */ 99479900 * 4 CAVTEOL3 BIT(8), /* END OF LIST - 3705 CKPT I/O 99519900 * STARTED */ 99559900 * 4 CAVTNIOE PTR(24), /* ECB FOR 3705 CKPT I/O */ 99599900 * 2 CAVTCRIO PTR(31), /* ADDRESS OF 3705 CHECKPOINT 99639900 * /RESTART I/O ROUTINE */ 99679900 * 2 CAVTCKTR FIXED(16), /* OFFSET TO TCAM CHECKPOINT 99719900 * TRACE TABLE @OZ31115*/ 99759900 * 2 CAVTNTR FIXED(16); /* OFFSET TO 3705 CHECKPOINT 99799900 * TRACE TABLE @OZ31115*/ 99839900 *%CAVTSIZE='LENGTH(IEDQCKAD)'; /* SIZE OF CHECKPOINT AVT */ 99879900