* %GOTO PLSCKP; /* 00050000 MACRO 00200020 TCKPD &MERLIN 00400000 .* CHANGE ACTIVITY = AS FOLLOWS: 00400122 .*C008000 SA51078 00400222 .*A303000,305000,637000 SA51078 00400322 .*C498000-516000,598000 S99240 00460000 .*A595000 S99240 00520000 .*A463000 SA67099 00540000 .*A451000 @OX16402 00560010 .*C472000 @OX16402 00580010 SPACE 00600020 * UPDATED 10/4/72 SA51078 00800022 SPACE 01000020 *THIS IS A DSECT OF THE CHECKPOINT WORK AREA POINTED TO BY AVTCKGET 01200020 *THIS IS USED ONLY BY CHECKPOINT ROUTINES. 01400020 *THE LENGTH IS VARIABLE AND DEPENDS ON THE INTRO OPERANDS CKREQS 01600020 *AND CPRCDS. THE SPACE IS OBTAINED BY IGG01941 VIA GETMAIN. 01800020 SPACE 02000020 IEDQCKPD DSECT 02200020 CKPSAVE1 DS 18F . SAVE AREA FOR LOAD MODULE 02400020 SPACE 3 02600020 CKPIOB EQU * . IOB FOR CKPT DISK I/O 02800020 CKPIOFL1 DS C . 03000020 CKPIOFL2 DS C . 03200020 CKPIOSN0 DS C . 03400020 CKPIOSN1 DS C . 03600020 CKPIOECB DS 0A . ADDRESS OF ECB @Y17XAXF 03800000 CKPIOECC DS XL1 . COMPLETION CODE FOR I/O 03840000 * @Y17XAXF 03880000 CKPIOCOM EQU X'7F' . COMPLETED SUCCESSFULLY @Y17XAXF 03920000 DS AL3 . RESERVED @Y17XAXF 03960000 CKPIOFL3 DS C . I/O ERROR FLAGS 04000020 CKPIOCSW DS CL7 . CSW 04200020 CKPIOSIO DS C . START I/O CONDITION CODES 04400020 CKPIOCPA DS AL3 . CHANNEL PROGRAM ADDRESS 04600020 DS C 04800020 CKPIODCB DS AL3 . DCB ADDRESS 05000020 DS C . REPOSITION MODIFIER 05200020 CKPIORST DS AL3 . RESTART ADDR 05400020 CKPIOBCI DS H . BLOCK CNT INCREMENT 05600020 CKPIORC DS H . ERROR COUNT 05800020 CKPIOM DS C . SEEK ADDRESS 06000020 CKPIOBB DS CL2 06200020 CKPIOCC DS CL2 06400020 CKPIOHH DS CL2 06600020 CKPIOR DS C 06800020 SPACE 07000020 CKPECB DS F . ECB POSTED BY IOS 07200020 CKPEXCP DS F . CURRENT RECORD BEING WRITTN 07400020 CKPCNVRT EQU * . USED FOR CVD INSTRUCTION 07600020 CKPECBL EQU * . ECB LIST FOR WAIT 07800020 CKPEPLOC DS D . EPLOC FOR LOAD MACRO 08000020 CKPIOQF DS F . DISK I/O QUEUE-FIRST RECORD 08200020 CKPIOQL DS F . I/O QUEUE-LAST RECORD 08400020 SPACE 3 08600020 CKPNDRB EQU X'80' . INDICATES NO DISK RECORD X08800020 BUILT FOR NEXT REQUEST ELEM 09000020 CKPLREB DS F . ADDRESS OF LAST REQUEST X09200020 ELEMENT FOR WHICH RECORD X09400020 WAS BUILT 09600020 SPACE 3 09800020 CKPLDRB DS F . ADDRESS OF LAST DISK RECORD X10000020 BUILT 10200020 SPACE 3 10400020 *THIS AREA US USED BY CKECKPOINT SUBTASK FOR 3705 CHECKPOINT 10407000 SPACE 10414000 ORG CKPEXCP 10421000 DS CL7 . RESERVED @Y17XAXF 10428000 CKPENCDE DS XL1 . ENTRY CODE @Y17XAXF 10435000 CKPIOERR EQU 40 . 3705 ECECKPOINT IO ERROR 10442000 * @Y17XAXF 10449000 CKPGETFL EQU 4 . GETMAIN FOR 3705 RESOURCE 10456000 * RECORD FAILED @Y17XAXF 10463000 CKPEODAT EQU 8 . END OF 3705 CHECKPOINT DATA SET 10470000 * REACHED @Y17XAXF 10477000 CKPNTTE DS A . ADDRESS OF TERMINAL ENTRY 10484000 * PREFIX FOR THE 3705 @Y17XAXF 10491000 CKPNDEVF DS F . ADDRESS OF DEVICE DEPENDENT 10498000 * FIELDS FOR THE 3705 @Y17XAXF 10505000 CKPNSELT DS 0F . SELECTOR FIELDS @Y17XAXF 10512000 CKPSLVAL DS 0CL3 . CURRENT SELECT VALUES USED IN 10515000 * SELECT VALUE SHIFT @Y17XAXF 10519000 CKPCUSEL DS AL1 . CURRENT SELECT VALUE @Y17XAXF 10526000 CKPSLNEW DS CL3 . NEW SELECT VALUES TO BE SHIFTED 10533000 * @Y17XAXF 10536000 CKPNTRK DS H . ALTERNATE RECORD INDICATOR 10540000 * @Y17XAXF 10547000 CKPNRSID DS H . RESOURCE TO BE CHECKPOINTED OR 10554000 * RESTARTED @Y17XAXF 10561000 CKPNOTFY EQU X'0A' . SELECT VALUE FOR REQUEST FOR 10568000 * NOTIFICATION @Y17XAXF 10575000 ORG 10582000 SPACE 10589000 *THIS AREA IS USED ONLY AT CHECKPOINT OPEN TIME 10600020 SPACE 10800020 ORG CKPEXCP 11000020 SPACE 11200020 *COUNT FIELD FOR WRITE COUNT,KEY AND DATA 11400020 SPACE 3 11600020 CKPCYLNO DS XL2 . CYLINDER NUMBER 11800020 CKPHEDNO DS XL2 . HEAD NUMBER 12000020 CKPRCDNO DS X . RECORD NUMBER 12200020 CKPKEYLN DS X . KEY LENGTH 12400020 CKPDATLN DS XL2 . DATA LENGTH 12600020 CKPCTTRC DS F . CURRENT ENTRY IN CKREQ-TTR X12800020 TABLE (USED AT RESTART) 13000020 CKPDATIM DS 2F . DATE,TIME OF TOTAL CKPT X13200020 USED TO COMPARE X13400020 WITH INCIDENT CKPT'S 13600020 CKPIPERE DS H . NUMBER OF INCIDENTS OR X13800020 CKREQ IN ONE ENVIRONMENT X14000020 RECORD SEGMENT 14200020 CKPCTTRA DS F . ADDRESS OF TTR OF THE X14400020 ENVIRONMENT RECORD BEING X14600020 USED FOR RESTART 14800020 ORG 15000020 SPACE 3 15200020 CKPSECTR DS 0X . SECTOR ID FOR SET SECTOR CMD415 15300000 CKPCTTRB DS F . BEGINNING OF CKREQ TTR TBL 15400020 CKPCPARM DS 2F . PARAMETERS FOR CONVERT RTN X15600020 ADDRESS OF DEB AND ADDRESS X15800020 FOR CONVERSION RESULT 16000020 AIF ('&MERLIN' NE '3330').SKP1 0419 16040000 CKPPARM2 DS F . PARAMETER FOR SECTOR CNVRT 0415X16080000 ROUTINE (UCB TYPE AND ADDR)0415 16120000 .SKP1 ANOP 0419 16160000 CKPCRLEN DS X . LENGTH OF CONTROL RECORD 16200020 CKPSWCH1 DS X . SWITCH FOR COMPARING X16400020 QCB TO SEE IF IT HAS BEEN X16600020 CHECKPOINTED 16800020 CKPSET1 EQU X'1' . USED TO INVERTQCB SWITCH 17000020 CKPSWCH2 DS X . SWITCH FOR COMPARING WITH X17200020 INVITATION LIST TO SEE IF X17400020 IT HAS BEEN CHECKPOINTED 17600020 CKPSET2 EQU X'04' . USED TO INVERT INVLIST SW 17800020 CKPERRCT DS X . COUNT OF ERRORS ENCOUNTERD 1109X17900020 IGG01943,ENVIRONMENT RCDS 1109 18000020 SPACE 3 18200020 *CHANNEL PROGRAM USED FOR CHECKPOINT DATA SET 18400020 SPACE 18600020 DS 0D . 18800020 CKPCCWS EQU * . CHANNEL PROGRAM 19000020 CKPSEEKC DS D . SEEK CYLINDER 19200020 AIF ('&MERLIN' NE '3330').SKP2 0419 19250000 CKPSETSC DS D . SET SECTOR OR NO-OP 0415 19300000 .SKP2 ANOP 0419 19350000 CKPSCHID DS D . SEARCH ID 19400020 CKPTIC DS D . TIC 19600020 CKPRW DS 0D . READ/WRITE @Y17XAXF 19800000 CKPRWCMD DS XL1 . COMMAND CODE @Y17XAXF 19810000 CKPRWADD DS AL3 . DATA ADDRESS @Y17XAXF 19820000 CKPRWFLG DS XL1 . FLAGS @Y17XAXF 19830000 DS XL1 . RESERVED @Y17XAXF 19840000 CKPWRBC DS H . BYTE COUNT @Y17XAXF 19850000 CKPCCWND EQU * . END OF CHANNEL PROGRAM 0415 19900000 CKPREAD EQU 6 . READ DATA CCW 20000020 CKPWRITE EQU 5 . WRITE DATA CCW 20200020 CKPWCKD EQU 29 . WRITE COUNT KEY AND DATA 20400020 CKPSET EQU 35 . SET SECTOR CCW 0415 20450000 CKPNOOP EQU 3 . NO-OP CCW-USED FOR NON- 0415X20500000 MERLIN SUPPORT 20550000 SPACE 20600020 ORG CKPTIC+5 . THIS PART OF TIC COMMAND IS X20800020 NOT USED BY OS 21000020 CKPTTRLT DS XL3 . TTR OF LAST TOTAL SEG WRITN 21200020 ORG 21400020 SPACE 3 21600020 *GETMAIN PARAMETER LIST 21800020 SPACE 22000020 DS 0F 22200020 CKPGETML DS XL10 . GETMAIN LIST 22400020 CKPWKALN DS H . LENGTH OF CKPT WORK AREA 22600020 SPACE 3 22800020 *MESSAGE BUFFER USED FOR WTO 23000020 SPACE 23200020 DS 0F 23400020 CKPMSG EQU * 23600020 CKPMSGLN DS XL2 . LENGTH OF MSG BUFFER 23800020 DS XL2 24000020 CKPMSGTX DS XL37 . TEXT OF MESSAGE 24200020 CKPMSGTP DS XL20 . TYPE OF CHECKPOINT RECORD 24400020 CKPMSGGL DS XL4 . GETMAIN LENGTH WHICH COULD X24600020 NOT BE SATISFIED 24800020 CKPMSGL EQU *-CKPMSG 25000020 ORG CKPMSGTP+6 25200020 CKPMSGPN DS XL8 25400020 ORG 25600020 SPACE 3 25800020 *THE MESSAGE BUFFER IS SOMETIMES USED FOR TEMPORARY STORAGE 26000020 SPACE 26200020 ORG CKPMSGTX 26400020 CKPSAVE2 DS 15F 26600020 CKPTRMAD DS F . ADDRESS OF TERM ENTRY-USED *26800020 TO GET IT ON WORD BOUNDARY 27000020 ORG CKPMSGTP 27200020 CKPRCDSR DS H . NO. RECDS(SEGMENTS)REQUIRED X27400020 FOR ONE ENV. CHECKPOINT 27600020 CKPTRKLN DS H . LENGTH OF DATA ON A TRACK 0415X27700000 PRECEDING THE CURRENT RECRD0415 27800000 CKPTRKSA DS H . NO.AVAILABLE TRACKS (IN X28000020 DATA SET) 28200020 ORG 28400020 SPACE 3 28600020 *CHECKPOINT CONTROL RECORD -WRITTEN EVERY TIME AN ENVIRONMENT 28800020 *RECORD IS WRITTEN 29000020 SPACE 29200020 DS 0F 29400020 CKPCNTLR EQU * . BEGINNING OF CONTROL RCD 29600020 SPACE 3 29609000 CKPFLAGS DS X . CONTROL RECORD FLAGS 29800020 CKPNORML EQU X'80' . INDICATES NORMAL CLOSEDOWN 30000020 CKPOPNEN EQU X'40' . OPEN-ENVIRONMENT FLAG 30200020 CKPFSCN1 EQU X'40' . FIFO SCAN 1 IN PROGRESS SA51078 30300022 CKPOPNIN EQU X'20' . OPEN-INCIDENT FLAG 30400020 CKPFSCN2 EQU X'20' . FIFO SCAN 2 IN PROGRESS SA51078 30500022 CKPOPNCR EQU X'10' . OPEN CKREQ FLAG 30600020 CKPERR EQU X'08' . INDICATES NO ENVIORNMENT 0818X30800020 RECORDS ARE AVAIBLE-DISK ER0818 31000020 CKPSTAIN EQU X'04' . VALUE OF STARTUP PARAMETER X31200020 USED AT RESTART TO DETERMIN X31400020 IF INV LISTS WERE CKPT 31600020 CKPOPTFN EQU X'02' . OPTION FIELDS PRESENT FOR X31800020 AT LEAST ONE SYNC PROCESS X32000020 ENTRY 32200020 CKPOPCRD EQU X'01' . INDICATES INCIDENT RECORDS 0803X32400020 PRESENT FOR OPERATOR CONTROL 32600020 CKPTTRCT DS XL1 . INDEX FOR CURRENT ENV CKPT 32800020 CKPINCNT DS X . TOTAL NUMBER OF INCIDENT X33000020 RECORDS IN DATA SET 33200020 CKPINCNO DS X . NO. OF INCIDENT RECORDS X33400020 AVAILABLE FOR USE 33600020 CKPCRRNO DS XL1 . NO. OF CKREQ RECORDS X33800020 ON 1ST TRACK CONTAINING *34000020 CKREQ RECORDS 34200020 CKPTTRCR DS XL3 . TTR OF 1ST CKREQ RECORD 34400020 CKPINRNO DS XL1 . NO. OF INCIDENT RECORDS X34600020 RECORD ON 1ST TRACK *34800020 CONTAINING INCIDENT RECORDS 35000020 CKPTTRIN DS XL3 . TTR OF 1ST INCIDENT RECORD 35200020 CKPBPERR DS H . BYTES PER ENVIRONMENT X35400020 RECORD SEGMENT 35600020 CKPCKRQS DS X . VALUE OF CKREQS FOR LAST X35800020 STARTUP-USED AT RESTART X36000020 INSTEAD OF VALUE IN AVT 36200020 CKPCPRCD DS X . VALUE OF CPRCDS AT LAST X36400020 STARTUP-USED AT RESTART X36600020 INSTEAD OF VALUE IN AVT 36800020 DS 0F . 37000020 CKPIPERT DS X . NO. OF INCIDENT RCDS PER TR 37200020 CKPPRQNO EQU * . MAXIMUM NUMBER OF PRIORITY X37400020 LEVEL QUEUES USED BY A SYNC X37600020 PROCESS ENTRY-USED BY 1942 37800020 CKPCPERT DS X . NUMBER OF CKREQ RECORDS PER X38000020 TRACK-DETERMINED BY 1942 X38200020 AFTER USING CKPPRQNO 38400020 CKPCKRLN DS H . LENGTH OF CKREQ RECORD- X38600020 DEPENDS ON OPTION FIELDS X38800020 AND PRIORITY LEVEL QUEUES. 39000020 CKPRPERT DS X . NO. OF ENVIRONMENT RECORD X39200020 SEGMENTS PER TRACK 39400020 CKPTTRLI DS XL3 . TTR OF LAST INCIDENT WRITTN 39600020 CKPINCLN DS H . LENGTH OF INCIDENT RECORD 39800020 AIF ('&MERLIN' NE '3330').SKP3 0419 39810000 CKPSECLT DS H . DATA ON TRACK PRECEDING 0415X39820000 CURRENT ENV SEGMENT 0415 39830000 CKPSECLI DS H . DATA ON TRACK PRECEDING 0415X39840000 CURRENT INCIDENT RECORD 0415 39850000 CKPSECCR DS H . DATA ON TRACK PRECEDING 0415X39860000 1ST CKREQ RECORD 39870000 CKPSECIN DS H . DATA ON TRACK PRECEDING 0415X39880000 1ST INCIDENT RECORD 0415 39890000 .SKP3 ANOP 0419 39900000 CKPTTRT1 EQU * . 3 BYTE TTR FOR 1ST ENV X40000020 ALL OTHER TTRS FOLLOW THIS 40200020 CKPSECT1 EQU CKPTTRT1+3 . DATA ON TRACK PRECEDING 0415X40220000 1ST SEG OF ENV RECORD 0415 40240000 AIF ('&MERLIN' NE '3330').SKP4 0419 40260000 CKPTTRLN EQU 5 . LENGTH OF ENTRY FOR ENV RCD0415 40280000 AGO .TTRLN 0419 40300000 .SKP4 ANOP 0419 40320000 CKPTTRLN EQU 3 . LENGTH OF ENTRY FOR ENV RCD0419 40340000 .TTRLN ANOP 0419 40360000 CKPCREND EQU * . END OF CONTROL RECORD 40400020 SPACE 3 40409000 *MAPPING FOR THE CONTROL RECORD FOR A 3705 CKECKPOINT DATA SET @Y17XAXF 40418000 SPACE 40427000 ORG CKPCNTLR 40436000 DS H . RESERVED @Y17XAXF 40445000 CKPTRSTA DS XL1 . STATUS FLAGS @Y17XAXF 40454000 CKPSWTCH DS XL1 . SWITCHES @Y17XAXF 40463000 CKPIPLTX DS CL8 . IPL TEXT NAME @Y17XAXF 40472000 CKPBLKSZ DS H . BLOCK SIZE @Y17XAXF 40481000 DS H . RESERVED @Y17XAXF 40490000 CKPTRKCN DS H . TRACK CONSTANT USED FOR 40499000 * ALTERNATE TRACK ASSIGNMENT 40508000 * @Y17XAXF 40517000 DS H . RESERVED @Y17XAXF 40526000 CKPBLKPT DS AL1 . BLOCKS PER TRACK @Y17XAXF 40535000 DS XL1 . RESERVED @Y17XAXF 40544000 CKPDATTM DS 0CL8 . DATE AND TIME @Y17XAXF 40553000 CKPDATE DS CL4 . DATE @Y17XAXF 40562000 CKPTIME DS CL4 . TIME @Y17XAXF 40571000 CKPBCKUP DS CL8 . BACKUP NAME @Y17XAXF 40580000 ORG 40589000 SPACE 3 40600020 *THE FOLLOWING EQUATE MAY BE VARIED IN ORDER TO CHANGE THE SIZE OF 40800020 *AN ENVIRONMENT RECORD SEGMENT. THE ONLY MODULE WHICH MUST BE 41000020 *REASSEMBLED IS IGG01949. 41200020 SPACE 41400020 CKPENVL EQU 300 . LENGTH OF ENVIRONMENT RCD X41600020 SEGMENT 41800020 SPACE 3 42000020 *EQUATED CONSTANTS USED BY THE CHECKPOINT MODULES 42200020 SPACE 42400020 CKPPOST EQU X'40' . ECB POSTED 42600020 CKP101 EQU 256 . CONSTANT USED TO BUMP TRACK 42800020 CKP100 EQU 100 43000020 CKPCKRNO EQU 3 . NO. EXTRA CKREQ RCDS-DSK ERR 43200020 CKPCMDCH EQU X'42' . INDICATE COMMAND CHAINING 43400020 CKPRETNL EQU 4 . RETURN OFFSET TO CHECKPOINT 43450000 * EXECUTOR FOR NO ADDITIONAL 43500000 * LOAD REQUESTS @Y17XAXF 43550000 CKPCKREQ EQU 48 . OFFSET FOR CKREQ ROUTINE 43600020 CKPENV EQU 56 . OFFSET FOR ENV ROUTINE 43800020 CKPIOQM EQU 64 . OFFSET FOR I/O QUEUE MANAGR 44000020 CKPDIOR EQU 72 . OFFSET FOR DISK I/O ROUTINE 44200020 CKPNOTIF EQU 80 . OFFSET FOR NOTIF RTN 44400020 CKPNOCOR EQU 88 . OFFSET FOR NO AVAIL CORE 44600020 CKPNOINC EQU 96 . OFFSET FOR INCIDENT OVERFLO 44800020 CKPCNCP EQU 104 . OFFSET FOR 3705 CHECKPOINT 44805000 * ROUTINE @Y17XAXF 44810000 CKPRNCP EQU 112 . OFFSET FOR 3705 RESTART ROUTINE 44815000 * @Y17XAXF 44820000 CKPCNCPW EQU 120 . OFFSET FOR 3705 CHECKPOINT 44825000 * WRITE ROUTINE @Y17XAXF 44830000 CKPOPLTL EQU 10 . LENGTH OF OPT LENGTH ENTRY 45000020 CKP1BYTE EQU 8 . USED TO SHIFT 1 BYTE 0415 45010000 CKP2BYTE EQU 16 . USED TO SHIFT 2 BYTES 0415 45020000 CKP3BYTE EQU 24 . USED TO SHIFT 3 BYTES 0415 45030000 CKPCVTPT EQU 16 . ADDRESS OF CVT POINTER 0415 45040000 CKPCNTTR EQU 28 . DISPLACEMENT OF TTR CONVERT0415X45050000 ROUTINE ADDR IN CVT 0415 45060000 CKPCNSEC EQU 232 . DISPLACEMENT OF SECTOR 0415X45070000 ROUTINE ADDR IN CVT 0415 45080000 CKPDELMT EQU C'*' . DELIMITER PLACED IN ENV RCD0422X45090000 BETWEEN DATA FOR EACH TERM 0422 45100000 CKPQDELM EQU X'6C' DELIMITER FOR QCB ON 45103010 * ENVIRONMENT RECORD @OX16402 45106010 CKPDELLN EQU 1 . LENGTH OF DELIMITER FIELD 0422 45110000 CKPLTRLN EQU 1 . LENGTH OF LCBTRACE FLD @Y17XAXF 45130000 SPACE 3 45200020 *LENGTHS OF CHECKPOINTED FIELDS 45400020 SPACE 45600020 CKPSEQCT EQU 6 . LENGTH OF SEQ NUMBERS AND *45800020 COUNT OF MSGS ON QUEUE 46000020 CKPSEQLN EQU 4 . LENGTH OF SEQUENCE NO.FIELD 46200020 CKPSENSE EQU 1 LENGTH OF SENSE FIELD SA67099 46250000 CKPMCTLN EQU 2 . LENGTH OF COUNT FIELD 46400020 CKPTRMLN EQU 1 . LENGTH OF TRM STATUS FIELD 46600020 CKPQCBLN EQU 21 . LENGTH OF PRIORITY LEVEL X46800020 QCB DISK POINTERS 47000020 CKPMQBLN EQU 6 LENGTH OF MASTER QCB 47200010 * FIELDS PLUS DELIMITER @OX16402 47250010 CKPQBKLN EQU 3 . LENGTH OF QBACK POINTER 47400020 CKPLCBLN EQU 2 . LENGTH OF LCB STAT INFO 0918 47800020 CKPDCBLN EQU 1 . LENGTH OF DCB FIELDS 0731 48000020 CKPEND EQU * . END OF CKP WORK AREA 48200020 CKPLNGTH EQU CKPEND-IEDQCKPD . LNGTH OF FIXED PORTION OF *48400020 CKPT WORK AREA 48600020 SPACE 3 48800020 *THE OPERATOR CONTROL INCIDENT CHECKPOINT RECORD CONTAINS THE DATA 0629 49000020 *DEFINED IN OPERATOR CONTROL DSECT-OPCCKELE. THE FOLLOWING DATA IS 49200020 *INCLUDED IN THE 32 BYTES . 49400020 SPACE 49600020 CKPOCODE EQU 0 . COMMAND OPERATION TYPE 49800000 CKPOCSWC EQU 1 . OPERATION SUB-TYPE 50000000 CKPOCFLG EQU 2 FLAG BYTE 50200000 SPACE 1 50400000 CKPOCREL EQU 3 . RELATIVE LINE NUMBER 50600000 CKPALL EQU X'00' . INDICATES 'ALL' - NO RLN 50800000 SPACE 1 51000000 CKPOCLNO EQU 10 HEX LINE NUMBER 51200000 CKPOCNAM EQU 20 . DDNAME FOR START/STOP CMD 51400000 CKPOCLST EQU 28 ILIST ADDRESS 51600000 SPACE 3 51800020 *FORMAT OF CKREQ-TTR TABLE IT IS LOCATED AT THE END OF THE WORK 52000020 *AREA. THE NUMBER OF ENTRIES DEPENDS ON THE VALUE OF CKREQS ON 52200020 *INTRO; A CONSTANT VALUE IS ADDED TO IT FOR DISK ERRORS. 52400020 SPACE 52600020 AIF ('&MERLIN' NE '3330').SKP5 0419 52650000 CKPCTTRL EQU 8 . LNGTH CKREQ TTR TABLE ENTRY0415 52700000 AGO .CTTRL 0419 52750000 .SKP5 ANOP 0419 52800000 CKPCTTRL EQU 6 . LNGTH CKREQ TTR TABLE ENTRY0419 52850000 .CTTRL ANOP 0419 52900000 CKPCTFLG EQU 0 . OFFSET TO FLAG IN CKREQ-TTR 53000020 CKPCTACT EQU X'80' . ENTRY IS ACTIVE 53200020 CKPCTDER EQU X'40' . ENTRY HAS DISK ERROR 53400020 CKPCTTTR EQU 1 . OFFSET TO TTR IN CKREQ-TTR 53600020 CKPCTOFF EQU 4 . OFFSET TO TERM OFFSET 53800020 CKPCTSEC EQU 6 . DATA ON TRACK PRECEDING 0415X53860000 THIS CKREQ RECORD 0415 53920000 EJECT 54000020 *DSECT FOR INCIDENT OR ENVIRONMENT CHECKPOINT DISK RECORD 54200020 SPACE 54400020 IEDQCDRD DSECT 54600020 CDRDATE DS F . DATE OF CHECKPOINT 54800020 CDRTIME DS F . TIME WHEN RECORD WRITTEN 55000020 CDRKEY DS XL1 . KEY FIELD 55200020 CDRLCB EQU 0 . KEY FOR LCB 55400020 CDRCHNGT EQU 4 . KEY FOR CHNGT 55600020 CDROPC EQU 16 . KEY FOR OPERATOR CONTROL 55800020 CDRCKREQ EQU 24 . KEY FOR CKREQ 56000020 CDRTOTAL EQU 28 . KEY FOR TOTAL 56200020 CDRTOTLC EQU 32 . KEY FOR TOTAL-CONTINUED 56400020 CDRTTRLI DS XL3 TTR OF LAST INCIDENT,AT 0922X56600020 TIME OF THIS ENV CKPT 56800020 CDRDATA EQU * . BEGINNING OF DATA IN SEG 57000020 CDRTINFO EQU CDRDATA-IEDQCDRD . LENGTH OF TOTAL INFO-NON- X57200020 DATA 57400020 SPACE 3 57600020 *FORMAT OF INCIDENT RECORDS 57800020 SPACE 58000020 ORG CDRTTRLI 0922 58200020 CDRSTAT DS XL1 . TERMINAL STATUS 58400020 CDROFFS DS H . OFFSET TO TERMNAME TABLE 58600020 CDRSEQIN DS H . INPUT SEQUENCE NUMBER 1007 58800020 CDRSEQOU DS H . OUTPUT SEQUENCE NUMBER 1007 59000020 SPACE 3 59200020 CDROPTN EQU * . BEGINNING OF OPTIONS 59400020 ORG CDRDATA 59500000 CDROPCB DS F . BEGINNING OF OP CONTROL BLK 59600020 CDROPCBL EQU 36 . LENGTH OF OPERATOR CONTROL X59800000 BLOCK 60000020 SPACE 3 60200020 *CKREQ RECORD 60400020 SPACE 60600020 ORG IEDQCDRD 60800020 CDRCKFLG DS X . FLAG BITS 61000020 CDRCKRNC EQU X'80' . CKREQ IS NOT COMPLETED 61200020 DS XL3 . USED FOR LINK -I/O QUEUE 61400020 CDRCKIN DS H . INPUT SEQUENCE NUMBER 61600020 CDRCKOUT DS H . OUTPUT SEQUENCE NUMBER 61800020 *CDRKEY EQU * RECORD KEY 62000020 DS X . 62200020 DS X . USED ONLY FOR ALIGNMENT 62400020 CDRCKOFF DS H . TERM OFFSET 62600020 CDRCKMSG DS XL2 . QCB MSG COUNT 62800020 CDRCKQBC DS XL3 . QBACK POINTER 63000020 CDRCKQCB DS XL21 . QCB DISK POINTERS (THIS X63200020 FIELD IS REPEATED FOR EACH X63400020 PRIORITY LEVEL QCB) 63600020 CDRCKPQB DS XL3 . PRILEVEL QBACK PTR SA51078 63700022 CDRCKOPT EQU * . OPTION FIELD 63800020 EJECT 64000020 *DSECT FOR CHECKPOINT REQUEST ELEMENT(INCIDENT OR CKREQ). THE 64200020 *ENVIRONMENT CHECKPOINT REQUEST ELEMENT IS DEFINED IN THE AVT. 64400020 SPACE 64600020 IEDQCRED DSECT 64800020 CREKEY DS X . 65000020 CRELCB EQU X'00' . KEY FOR LCB FROM CHECKPT 65200020 CRECHNGT EQU X'10' . KEY FOR TCHNG FROM APP PROG 65400020 CREREMVE EQU X'20' . KEY FOR TIME DELAY QUEUE X65600020 REMOVAL ELEMENT 65800020 CREOPC EQU X'40' . KEY FOR OPERATOR CONTRO 66000020 CRECKREQ EQU X'60' . KEY FOR CKREQ FROM APP PROG 66200020 CRETOTAL EQU X'70' . KEY FOR TOTAL-ALL SOURCES 66400020 CREINCOF EQU X'80' . KEY FLAG-INCIDENT OVERFLOW 66600020 CRECNCP EQU X'D0' . KEY FOR 3705 CHECKPOINT 66610000 * @Y17XAXF 66620000 CRERNCP EQU X'E0' . KEY FOR 3705 RESTART @Y17XAXF 66630000 CREQCBAD DS XL3 . 66800020 CREPRI DS 0XL1 PRIORITY OF REQUEST ELEMENT 66810000 * LINK OF REQUEST ELEMENT 66820000 * @Y17XAXF 66830000 CRELINK DS F . 67000020 CREECB DS F . ADDR OF ECB 67200020 CREDEB EQU * . DEB CHAIN FOR CKREQ 67400020 CREOFFS DS H . OFFSET OF TERMNAME ENTRY 67600020 SPACE 3 @Y17XAXF 67600200 CKPAVT DSECT CHECKPOINT AVT DSECT @Y17XASA 67600400 CKPOPCON DS CL2 PRIMARY OP/CTL TERMINAL @Y17XASA 67600600 CKPOPCIN DS CL2 PRIMARY OP/CTL TTCIN @Y17XASA 67600800 CKPINTLV DS CL2 SYSTEM DELAY INTERVAL @Y17XASA 67601000 CKPBIT1 DS CL1 AVTBIT1 @Y17XASA 67601200 CKPBIT2 DS CL1 AVTBIT2 @Y17XASA 67601400 CKPNADDR DS CL4 NON REUSE DISK NEXT ADDR @Y17XASA 67601600 CKPRADDR DS CL4 REUSE DISK NEXT ADDR @Y17XASA 67601800 CKPLODPT DS CL4 REUSE LOAD POINT FIELD @Y17XASA 67602000 CKPSUBT DS CL1 AVTSUBT SUBT= OPTION FIELD @Y17XASA 67602200 CKPIOTR DS CL1 AVTIOTR IOTR= OPTION FIELD @Y17XASA 67602400 CKPAVTLN EQU *-CKPAVT LENGTH OF CKP AVT DSECT @Y17XASA 67602600 SPACE 3 @Y17XAXF 67602800 CKPNRES DSECT FIELDS FOR NCP RESOURCE 67603000 * @Y17XACL 67603200 CKPSUBST DS H SUBSTRUCT @Y17XACL 67603400 CKPCOHRT DS H COHORT @Y17XACL 67603600 CKPNFLG DS XL1 FLAGS @Y17XACL 67603800 CKPREMB EQU X'80' REMEMBER @Y17XACL 67604000 CKPRSACT EQU X'40' RESOURCE ACTIVE @Y17XACL 67604200 CKPEPMOD EQU X'20' EP MODE @Y17XACL 67604400 CKPLULOG EQU X'10' ALLOW LOGON INDICATOR @Y17XAXF 67604600 * EQU X'08'-X'01' RESERVED @Y17XACL 67604800 CKPTYPE DS XL1 RESOURCE TYPE @Y17XACL 67605000 CKPNRSZ EQU *-CKPNRES LENGTH OF FIELDS CKPT'ED 67605200 * FOR A 3705 RESOURCE @Y17XACL 67605400 MEND */ 67607000 *%PLSCKP : ; /* @Y17XAXF*/ 67607500 *DCL 1 IEDQCKPD BDY(DWORD) BASED(RCKPT), 67608000 * 2 CKPSAVE1(18) PTR(31), /*SAVE AREA FOR LOAD 67608500 * MODULE @Y17XACL*/ 67609000 * 2 CKPIOB, /*IOB FOR CKPT DISK I/O 67609500 * @Y17XACL*/ 67610000 * 3 CKPIOFL1 CHAR(1), /*FLAG BYTE 1 @Y17XACL*/ 67610500 * 3 CKPIOFL2 CHAR(1), /*FLAG BYTE 2 @Y17XACL*/ 67611000 * 3 CKPIOSN0 CHAR(1), /*FIRST SENSE BYTE @Y17XACL*/ 67611500 * 3 CKPIOSN1 CHAR(1), /*SECOND SENSE BYTE @Y17XACL*/ 67612000 * 3 CKPIOECB PTR(31), /*ADDRESS OF ECB @Y17XACL*/ 67612500 * 4 CKPIOECC BIT(8), /*COMPLETION CODE FOR I/O 67613000 * @Y17XAXF*/ 67613500 * 4 * PTR(24), /*RESERVED @Y17XAXF*/ 67614000 * 3 CKPIOFL3 CHAR(1), /*I/O ERROR FLAGS @Y17XACL*/ 67614500 * 3 CKPIOCSW CHAR(7), /*CSW @Y17XACL*/ 67615000 * 3 CKPIOSIO CHAR(1), /*START I/O CONDITION 67615500 * CODES @Y17XACL*/ 67616000 * 3 CKPIOCPA PTR(24), /*CHANNEL PROGRAM ADDRESS 67616500 * @Y17XACL*/ 67617000 * 3 * CHAR(1), /*UNUSED @Y17XACL*/ 67617500 * 3 CKPIODCB PTR(24), /*DCB ADDRESS @Y17XACL*/ 67618000 * 3 * CHAR(1), /*REPOSITION MODIFIER 67618500 * @Y17XACL*/ 67619000 * 3 CKPIORST PTR(24), /*RESTART ADDRESS @Y17XACL*/ 67619500 * 3 CKPIOBCI FIXED(15), /*BLOCK CNT INCREMENT 67620000 * @Y17XACL*/ 67620500 * 3 CKPIORC FIXED(15), /*ERROR COUNT @Y17XACL*/ 67621000 * 3 CKPIOSK CHAR(8), /*SEEK ADDRESS @Y17XACL*/ 67621500 * 4 CKPIOM CHAR(1), /*DEB EXTENT @Y17XACL*/ 67622000 * 4 CKPIOBB CHAR(2), /*BIN NUMBER @Y17XACL*/ 67622500 * 4 CKPIOCC CHAR(2), /*CYLINDER NUMBER @Y17XACL*/ 67623000 * 4 CKPIOHH CHAR(2), /*TRACK NUMBER @Y17XACL*/ 67623500 * 4 CKPIOR CHAR(1), /*RECORD NUMBER @Y17XACL*/ 67624000 * 2 CKPECB PTR(31), /*ECB POSTED BY IOS @Y17XACL*/ 67624500 * 2 CKPEXCP PTR(31), /*CURRENT RECORD BEING 67625000 * WRITTEN @Y17XACL*/ 67625500 * 2 CKPECBL CHAR(8), /*ECB LIST FOR WAIT @Y17XACL*/ 67626000 * 3 CKPCNVRT CHAR(8), /*USED FOR CVD CONVERSION 67626500 * @Y17XACL*/ 67627000 * 4 CKPEPLOC CHAR(8), /*EPLOC FOR LOAD MACRO 67627500 * @Y17XACL*/ 67628000 * 2 CKPIOQF PTR(31), /*DISK I/O QUEUE - FIRST 67628500 * RECORD @Y17XACL*/ 67629000 * 2 CKPIOQL PTR(31), /*DISK I/O QUEUE - LAST 67629500 * RECORD @Y17XACL*/ 67630000 * 3 * BIT(8), /*STATUS BYTE @Y17XACL*/ 67630500 * 4 CKPNDRB BIT(1), /*INDICATES NO DISK RECORD 67631000 * BUILT FOR NEXT REQUEST 67631500 * ELEMENT @Y17XACL*/ 67632000 * 2 CKPLREB PTR(31), /*ADDR OF LAST REQUEST ELEMENT 67632500 * FOR WHICH RECORD WAS 67633000 * BUILT @Y17XACL*/ 67633500 * 2 CKPLDRB PTR(31), /*ADDR OF LAST DISK RECORD 67634000 * @Y17XACL*/ 67634500 * 2 CKPCTTRB PTR(31), /*BEGINNING OF CKREQ TTR 67635000 * TABLE @Y17XACL*/ 67635500 * 3 CKPSECTR BIT(8), /*SECTOR ID FOR SET SECTOR 67636000 * COMMAND @Y17XACL*/ 67636500 * 2 CKPCPARM CHAR(8), /*PARAMETERS FOR CONVERT 67637000 * ROUTINE ADDRESS OF DEB AND 67637500 * ADDRESS FOR CONVERSION 67638000 * RESULT @Y17XACL*/ 67638500 * 2 CKPPARM2 PTR(31), /*PARAMETER FOR SECTOR 67639000 * CONVERSION ROUTINE (UCB TYPE 67639500 * AND ADDRESS) @Y17XACL*/ 67640000 * 2 CKPCRLEN CHAR(1), /*LENGTH OF CONTROL RECORD 67640500 * @Y17XACL*/ 67641000 * 2 CKPSWCH1 CHAR(1), /*SWITCH FOR COMPARING QCB TO 67641500 * SEE IF IT HAS BEEN 67642000 * CHECKPOINTED @Y17XACL*/ 67642500 * 2 CKPSWCH2 CHAR(1), /*SWITCH FOR COMPARING WITH 67643000 * INVITATION LIST TO SEE IF IT 67643500 * HAS BEEN CHECKPOINTED 67644000 * @Y17XACL*/ 67644500 * 2 CKPERRCT CHAR(1), /*COUNT OF ERRORS ENCOUNTERED 67645000 * @Y17XACL*/ 67645500 * 2 * FIXED(31), /*UNUSED @Y17XACL*/ 67646000 * 2 CKPCCWS, /*CHANNEL PROGRAM @Y17XACL*/ 67646500 * 3 CKPSEEKC CHAR(8), /*SEEK CYLINDER @Y17XACL*/ 67647000 * 3 CKPSETSC CHAR(8), /*SET SECTOR OR NOOP @Y17XACL*/ 67647500 * 3 CKPSCHID CHAR(8), /*SEARCH ID @Y17XACL*/ 67648000 * 3 CKPTIC CHAR(8), /*TIC @Y17XACL*/ 67648500 * 3 CKPRW, /*READ/WRITE @Y17XACL*/ 67649000 * 4 CKPRWCMD BIT(8), /*COMMAND CODE @Y17XAXF*/ 67649500 * 4 CKPRWADD PTR(24), /*DATA ADDRESS @Y17XAXF*/ 67650000 * 4 CKPRWFLG BIT(8), /*FLAGS @Y17XAXF*/ 67650500 * 4 * BIT(8), /*RESERVED @Y17XAXF*/ 67651000 * 4 CKPRWBC FIXED(15), /*BYTE COUNT @Y17XAXF*/ 67651500 * 2 * BDY(WORD), /*GETMAIN PARAMETER 67652000 * LIST @Y17XACL*/ 67652500 * 3 CKPGETML CHAR(10), /*GETMAIN LIST @Y17XACL*/ 67653000 * 3 CKPWKALN FIXED(15), /*LENGTH OF CKPT WORK AREA 67653500 * @Y17XACL*/ 67654000 * 2 CKPMSG BDY(WORD), /*MESSAGE BUFFER USED FOR WTO 67654500 * @Y17XACL*/ 67655000 * 3 CKPMSGLN FIXED(15), /*LENGTH OF MSG BUFFER 67655500 * @Y17XACL*/ 67656000 * 3 * FIXED(15), /* @Y17XACL*/ 67656500 * 3 CKPMSGTX CHAR(37), /*TEXT OF MESSAGE @Y17XACL*/ 67657000 * 3 CKPMSGTP CHAR(20), /*TYPE OF CKPT RECORD 67657500 * @Y17XACL*/ 67658000 * 3 CKPMSGGL CHAR(4), /*GETMAIN LENGTH WHICH COULD 67658500 * NOT BE SATISFIED @Y17XACL*/ 67659000 * 3 * CHAR(3), /*UNUSED @Y17XACL*/ 67659500 * 2 CKPCNTLR BDY(WORD), /*CHECKPOINT CONTROL RECORD - 67660000 * WRITTEN EVERY TIME AN 67660500 * ENVIRONMENT RECORD IS 67661000 * WRITTEN @Y17XACL*/ 67661500 * 3 CKPFLAGS BIT(8), /*CONTROL RECORD FLAGS 67662000 * @Y17XACL*/ 67662500 * 4 CKPNORML BIT(1), /*NORMAL CLOSEDOWN @Y17XACL*/ 67663000 * 4 CKPFSCN1 BIT(1), /*FIFO SCAN 1 IN PROGRESS 67663500 * @Y17XACL*/ 67664000 * 4 CKPFSCN2 BIT(1), /*FIFO SCAN 2 IN PROGRESS 67664500 * @Y17XACL*/ 67665000 * 4 * BIT(1), /* @Y17XACL*/ 67665500 * 4 CKPERR BIT(1), /*INDICATES NO ENVIRONMENT 67666000 * RECORDS ARE AVAILABLE 67666500 * @Y17XACL*/ 67667000 * 4 CKPSTAIN BIT(1), /*VALUE OF STARTUP PARAMETER 67667500 * USED AT RESTART TO DETERMINE 67668000 * IF INVITATION LISTS WERE 67668500 * CHECKPOINTED @Y17XACL*/ 67669000 * 4 CKPOPTFN BIT(1), /*OPTION FIELDS PRESENT FOR AT 67669500 * LEAST ONE SYNC PROCESS ENTRY 67670000 * @Y17XACL*/ 67670500 * 4 CKPOPCRD BIT(1), /*INDICATES INCIDENT RECORDS 67671000 * PRESENT FOR OPCTL @Y17XACL*/ 67671500 * 3 CKPTTRCT CHAR(1), /*INDEX FOR CURRENT ENVIRONMENT 67672000 * CHECKPOINT @Y17XACL*/ 67672500 * 3 CKPINCNT CHAR(1), /*TOTAL NUMBER OF INCIDENT 67673000 * RECORDS IN DATA @Y17XACL*/ 67673500 * 3 CKPINCNO CHAR(1), /*NUMBER OF INCIDENT RECORDS 67674000 * AVAILABLE FOR USE @Y17XACL*/ 67674500 * 3 CKPCRRNO CHAR(1), /*NUMBER OF CKREQ RECORDS ON 67675000 * FIRST TRACK CONTAINING CKREQ 67675500 * RECORDS @Y17XACL*/ 67676000 * 3 CKPTTRCR CHAR(3), /*TTR OF FIRST CKREQ RECORD 67676500 * @Y17XACL*/ 67677000 * 3 CKPINRNO CHAR(1), /*NUMBER OF INCIDENT RECORDS ON 67677500 * FIRST TRACK CONTAINING 67678000 * INCIDENT RECORDS @Y17XACL*/ 67678500 * 3 CKPTTRIN CHAR(3), /*TTR OF FIRST INCIDENT RECORD 67679000 * @Y17XACL*/ 67679500 * 3 CKPBPERR FIXED(15), /*BYTES PER ENVIRONMENT RECORD 67680000 * SEGMENT @Y17XACL*/ 67680500 * 3 CKPCKRQS CHAR(1), /*VALUE OF CKREQ FOR LAST 67681000 * STARTUP - USED AT RESTART 67681500 * INSTEAD OF VALUE IN AVT 67682000 * @Y17XACL*/ 67682500 * 3 CKPCPRCD CHAR(1), /*VALUE OF CPRCDS AT LAST 67683000 * STARTUP - USED AT RESTART 67683500 * INSTEAD OF VALUE IN AVT 67684000 * @Y17XACL*/ 67684500 * 3 CKPIPERT CHAR(1), /*NUMBER OF INCIDENT RECORDS 67685000 * PER TRACK @Y17XACL*/ 67685500 * 3 CKPPRQNO CHAR(1), /*MAXIMUM NUMBER OF PRIORITY 67686000 * LEVEL QUEUES USED BY A 67686500 * SYNC PROCESS ENTRY - USED 67687000 * BY IGG01942 @Y17XACL*/ 67687500 * 4 CKPCPERT CHAR(1), /*NUMBER OF CKREQ RECORDS PER 67688000 * TRACK - DETERMINED BY 67688500 * IGG01942 @Y17XACL*/ 67689000 * 3 CKPCKRLN FIXED(15), /*LENGTH OF CKREQ RECORD - 67689500 * DEPENDS ON OPTION FIELDS AND 67690000 * PRIORITY LEVEL QUEUES 67690500 * @Y17XACL*/ 67691000 * 3 CKPRPERT CHAR(1), /*NUMBER OF ENVIRONMENT RECORD 67691500 * SEGMENTS PER TRACK @Y17XACL*/ 67692000 * 3 CKPTTRLI CHAR(3), /*TTR OF LAST INCIDENT WRITTEN 67692500 * @Y17XACL*/ 67693000 * 3 CKPINCLN FIXED(15), /*LENGTH OF INCIDENT RECORD 67693500 * @Y17XACL*/ 67694000 * 3 CKPSECLT FIXED(15), /*DATA ON TRACK PRECEDING 67694500 * CURRENT ENV SEGMENT 67695000 * @Y17XACL*/ 67695500 * 3 CKPSECLI FIXED(15), /*DATA ON TRACK PRECEDING 67696000 * CURRENT INCIDENT RECORDS 67696500 * @Y17XACL*/ 67697000 * 3 CKPSECCR FIXED(15), /*DATA ON TRACK PRECEDING 1ST 67697500 * CKREQ RECORD @Y17XACL*/ 67698000 * 3 CKPSECIN FIXED(15), /*DATA ON TRACK PRECEDING 1ST 67698500 * INCIDENT RECORD @Y17XACL*/ 67699000 * 3 CKPTTRT1 CHAR(3), /*TTR FOR FIRST ENVIRONMENT 67699500 * @Y17XACL*/ 67700000 * 3 CKPSECT1 CHAR(2); /*DATA ON TRACK PRECEEDING 1ST 67700500 * SEG OF ENV RECORD @Y17XACL*/ 67701000 *DCL 1 CKPINIT DEFINED(CKPEXCP), /*OPEN WORK AREA @Y17XACL*/ 67701500 * 2 CKPCYLNO CHAR(2), /*CYLINDER NUMBER @Y17XACL*/ 67702000 * 2 CKPHEDNO CHAR(2), /*HEAD NUMBER @Y17XACL*/ 67702500 * 2 CKPRCDNO CHAR(1), /*RECORD NUMBER @Y17XACL*/ 67703000 * 2 CKPKEYLN CHAR(1), /*KEY LENGTH @Y17XACL*/ 67703500 * 2 CKPDATLN CHAR(2), /*DATA LENGTH @Y17XACL*/ 67704000 * 2 CKPCTTRC PTR(31), /*CURRENT ENTRY IN CKREQ - TTR 67704500 * TABLE (USED AT RESTART) 67705000 * @Y17XACL*/ 67705500 * 2 CKPDATIM CHAR(8), /*DATE, TIME, AND TOTAL CKPT 67706000 * USED TO COMPARE WITH INCIDENT 67706500 * CKPT'S @Y17XACL*/ 67707000 * 2 CKPIPERE FIXED(15), /*NUMBER OF INCIDENTS OR CKREQ 67707500 * IN ONE ENVIRONMENT RECORD 67708000 * SEGMENT @Y17XACL*/ 67708500 * 2 * FIXED(15), /* @Y17XACL*/ 67709000 * 2 CKPCTTRA PTR(31); /*ADDRESS OF TTR OF THE 67709500 * ENVIRONMENT RECORD BEING USED 67710000 * FOR RESTART @Y17XACL*/ 67710500 *DCL CKPTTRLT PTR(24) DEFINED(CKPTIC) POS(6);/*OVERLAY UNUSED PORTION 67711000 * OF TIC WITH TTR OF LAST 67711500 * TOTAL SEGMENT WRITTEN 67712000 * @Y17XACL*/ 67712500 *DCL CKPMSGPN CHAR(8) DEFINED(CKPMSGTP) POS(7);/* @Y17XACL*/ 67713000 *DCL 1 CKPTWA DEFINED(CKPMSGTX), /*OVERLAY MESSAGE BUFFER WITH 67713500 * WORK AREA @Y17XACL*/ 67714000 * 2 CKPSAVE2(15) PTR(31), /*SAVE AREA @Y17XACL*/ 67714500 * 2 CKPTRMAD PTR(31); /*ADDRESS OF TRM ENTRY 67715000 * @Y17XACL*/ 67715500 *DCL 1 CKPNCNTL DEF(CKPCNTLR), /*MAPPING FOR THE CONTROL 67716000 * RECORD FOR A 3705 CHECKPOINT 67716500 * DATA SET @Y17XAXF*/ 67717000 * 2 * FIXED(15), /*RESERVED @Y17XAXF*/ 67717500 * 2 CKPTRSTA BIT(8), /*STATUS FLAGS @Y17XAXF*/ 67718000 * 2 CKPSWTCH BIT(8), /*SWITCHES @Y17XAXF*/ 67718500 * 2 CKPIPLTX CHAR(8), /*IPL TEXT NAME @Y17XAXF*/ 67719000 * 2 CKPBLKSZ FIXED(15), /*BLOCK SIZE @Y17XAXF*/ 67719500 * 2 * FIXED(15), /*RESERVED @Y17XAXF*/ 67720000 * 2 CKPTRKCN FIXED(15), /*TRACK CONSTANT USED FOR 67720500 * ALTERNATE TRACK ASSIGNMENT 67721000 * @Y17XAXF*/ 67721500 * 2 * FIXED(15), /*RESERVED @Y17XAXF*/ 67722000 * 2 CKPBLKPT FIXED(8), /*BLOCKS PER TRACK @Y17XAXF*/ 67722500 * 2 * FIXED(8), /*RESERVED @Y17XAXF*/ 67723000 * 2 CKPDATTM CHAR(8), /*DATE AND TIME @Y17XAXF*/ 67723500 * 3 CKPDATE CHAR(4), /*DATE @Y17XAXF*/ 67724000 * 3 CKPTIME CHAR(4), /*TIME @Y17XAXF*/ 67724500 * 2 CKPBCKUP CHAR(8); /*BACKUP NAME @Y17XAXF*/ 67725000 * /* @Y17XAXF*/ 67725500 *DCL 1 CKPNFLDS DEF(CKPEXCP), /*DATA AREAS USED BY CHECKPOINT 67726000 * SUBTASK FOR 3705 CKECKPOINT 67726500 * @Y17XAXF*/ 67727000 * 2 * CHAR(7), /*RESERVED @Y17XAXF*/ 67727500 * 2 CKPENCDE FIXED(8), /*ENTRY CODE @Y17XAXF*/ 67728000 * 2 CKPNTTE PTR(31), /*ADDRESS OF TERMINAL ENTRY 67728500 * ENTRY PREFIX FOR THE 3705 67729000 * @Y17XAXF*/ 67729500 * 2 CKPNDEVF PTR(31), /*ADDRESS OF DEVICE DEPENDENT 67730000 * FIELDS FOR THE 3705 67730500 * @Y17XAXF*/ 67731000 * 2 CKPNSELT BIT(32), /*SELECTOR FIELDS @Y17XAXF*/ 67731500 * 3 CKPCUSEL FIXED(8), /*CURRENT SELECT VALUE 67732000 * @Y17XAXF*/ 67732500 * 3 CKPSLNEW CHAR(3), /*NEW SELECT VALUES TO BE 67733000 * SHIFTED @Y17XAXF*/ 67733100 * 2 CKPNTRK FIXED(15), /*ALTERNATE RECORD INDICATOR 67733200 * @Y17XAXF*/ 67733500 * 2 CKPNRSID FIXED(15); /*RESOURCE TO BE CHECKPOINTED 67734000 * OR RESTARTED @Y17XAXF*/ 67734500 * @SPACE (2); 67735000 * DCL CKPSLVAL CHAR(3) DEF(CKPNSELT); /*CURRENT SELECT VALUES USED IN 67735500 * SELECT VALUE SHIFT @Y17XAXF*/ 67736000 * DCL CKPNOTFY BIT(8) CONSTANT('0A'X); /*SELECT VALUE FOR REQUEST FOR 67736500 * NOTIFICATION @Y17XAXF*/ 67737000 * /* @Y17XAXF*/ 67737500 */*CKPENCDE VALUES @Y17XAXF*/ 67738000 * DCL CKPIOERR FIXED(8) CONSTANT(40); /*3705 CHECKPOINT I/O ERROR 67738500 * @Y17XAXF*/ 67739000 * DCL CKPGETFL FIXED(8) CONSTANT(4); /*GETMAIN FOR 3705 RESOURCE 67739500 * RECORD FAILED @Y17XAXF*/ 67740000 * DCL CKPEODAT FIXED(8) CONSTANT(8); /*END OF 3705 CHECKPOINT DATA 67740500 * SET REACHED @Y17XAXF*/ 67741000 *DCL 1 CKPOVER DEFINED(CKPMSGTP) POS(2),/* @Y17XACL*/ 67741500 * 2 CKPRCDSR FIXED(15), /*NUMBER RECORDS(SEGMENTS) 67742000 * REQUIRED FOR ONE ENV CKPT. 67742500 * @Y17XACL*/ 67743000 * 2 CKPTRKLN FIXED(15), /*LENGTH OF DATA ON A TRACK 67743500 * PRECEDING THE CURRENT 67744000 * RECORD @Y17XACL*/ 67744500 * 2 CKPTRKSA FIXED(15); /*NUMBER AVAILABLE TRACKS IN 67745000 * DATA SET @Y17XACL*/ 67745500 *DCL 1 CKPOPNFL BIT(8) DEF(CKPFLAGS), /*CONTROL RECORD FLAGS USED AT 67746000 * OPEN TIME @Y17XACL*/ 67746500 * 2 * BIT(1), /* @Y17XACL*/ 67747000 * 2 CKPOPNEN BIT(1), /*OPEN-ENV FLAG @Y17XACL*/ 67747500 * 2 CKPOPNIN BIT(1), /*OPEN-INCIDENT FLAG @Y17XACL*/ 67748000 * 2 CKPOPNCR BIT(1), /*OPEN-CKREQ FLAG @Y17XACL*/ 67748500 * 2 * BIT(4); /* @Y17XACL*/ 67749000 *DCL 1 IEDQCDRD BASED(RCKPT), /*OVERLAY FOR INCIDENT OR 67749500 * ENVIRONMENT CKPT. DISK 67750000 * RECORD @Y17XACL*/ 67750500 * 2 CDRDATE PTR(31), /*DATE OF CKPT @Y17XACL*/ 67751000 * 2 CDRTIME PTR(31), /*TIME WHEN RECORD WRITTEN 67751500 * @Y17XACL*/ 67752000 * 2 CDRKEY BIT(8), /*KEY FIELD @Y17XACL*/ 67752500 * 2 CDRTTRLI PTR(24), /*TTR OF LAST INCIDENT AT TIME 67753000 * OF THIS ENV CKPT @Y17XACL*/ 67753500 * 2 CDRDATA CHAR(*); /*BEGINNING OF DATA IN 67754000 * THE SEGMENT @Y17XACL*/ 67754500 *DCL 1 CDRINCFM DEFINED(CDRTTRLI) BDY(BYTE),/*FORMAT FOR INCIDENT 67755000 * RECORDS @Y17XACL*/ 67755500 * 2 CDRSTAT CHAR(1), /*TERMINAL STATUS @Y17XACL*/ 67756000 * 2 CDROFFS FIXED(15), /*OFFSET TO TERMINAL NAME TABLE 67756500 * @Y17XACL*/ 67757000 * 2 CDRSEQIN FIXED(15), /*INPUT SEQ NUMBER @Y17XACL*/ 67757500 * 2 CDRSEQOU FIXED(15), /*OUTPUT SEQ NUMBER @Y17XACL*/ 67758000 * 2 CDROPTN CHAR(*); /*BEGINNING OF OPTIONS 67758500 * @Y17XACL*/ 67759000 *DCL CDROPCB PTR(31) DEF(CDRDATA); /*BEGINNING OF OPCTL BLOCK 67759500 * @Y17XACL*/ 67760000 *DCL 1 CDRCREQR DEFINED(IEDQCDRD), /*CKREQ RECORD @Y17XACL*/ 67760500 * 2 CDRCKFLG BIT(8), /*FLAG BITS @Y17XACL*/ 67761000 * 3 CDRCKRNC BIT(1), /*CKREQ IS NOT COMPLETED 67761500 * @Y17XACL*/ 67762000 * 2 * PTR(24), /*USED FOR LINK - I/O QUEUE 67762500 * @Y17XACL*/ 67763000 * 2 CDRCKIN FIXED(15), /*INPUT SEQ NUMBER @Y17XACL*/ 67763500 * 2 CDRCKOUT FIXED(15), /*OUTPUT SEQ NUMBER @Y17XACL*/ 67764000 * 2 * CHAR(1), /*RECORD KEY @Y17XACL*/ 67764500 * 2 * CHAR(1), /* @Y17XACL*/ 67765000 * 2 CDRCKOFF FIXED(15), /*TERM OFFSET @Y17XACL*/ 67765500 * 2 CDRCKMSG FIXED(15), /*QCB MSG COUNT @Y17XACL*/ 67766000 * 2 CDRCKQBC PTR(24) BDY(WORD,3), /*QBACK POINTER @Y17XACL*/ 67766500 * 2 CDRCKQCB CHAR(21), /*QCB DISK POINTERS (THIS FIELD 67767000 * IS REPEATED FOR EACH PRIORITY 67767500 * LEVEL QCB) @Y17XACL*/ 67768000 * 2 CDRCKPQB PTR(24) BDY(WORD,3), /*PRILEVEL QBACK PTR @Y17XACL*/ 67768500 * 2 CDRCKOPT CHAR(*); /*OPTION FIELD @Y17XACL*/ 67769000 *DCL 1 IEDQCRED BASED(RCKPT), /*MAP FOR CKPT REQUEST ELEMENT 67769500 * (INCIDENT OR CKREQ) 67770000 * @Y17XACL*/ 67770500 * 2 CREKEY CHAR(1), /*REQUEST KEY @Y17XACL*/ 67771000 * 2 CREQCBAD PTR(24), /*QCB ADDRESS @Y17XACL*/ 67771500 * 2 CRELINK PTR(31), /* @Y17XACL*/ 67772000 * 3 CREPRI BIT(8), /* PRIORITY OF REQUEST ELEMENT 67772500 * LINK OF REQUEST ELEMENT 67773000 * @Y17XAXF*/ 67773500 * 3 * PTR(24), /* RESERVED @Y17XAXF*/ 67774000 * 2 CREECB PTR(31), /*ADDR OF ECB @Y17XACL*/ 67774500 * 2 CREOFFS FIXED(15), /*OFFSET OF TERMNAME ENTRY 67775000 * @Y17XACL*/ 67775500 * 3 CREDEB CHAR(*); /*DEB CHAIN FOR CKREQ 67776000 * @Y17XACL*/ 67776500 *DCL 1 CKPREQTB BASED(RCKPT), /*CKREQ-TTR TABLE ENTRY 67777000 * @Y17XACL*/ 67777500 * 2 CKPCTFLG BIT(8), /*FLAG BYTE @Y17XACL*/ 67778000 * 3 CKPCTACT BIT(1), /*ENTRY IS ACTIVE @Y17XACL*/ 67778500 * 3 CKPCTDER BIT(1), /*ENTRY HAS DISK ERR @Y17XACL*/ 67779000 * 2 CKPCTTTR PTR(24), /*TTR @Y17XACL*/ 67779500 * 2 CKPCTOFF FIXED(15), /*TERM OFFSET @Y17XACL*/ 67780000 * 2 CKPCTSEC FIXED(15); /*DATA ON TRACK PRECEDING 67780500 * THIS CKREQ RECORD @Y17XACL*/ 67781000 *DCL 1 CKPNRES BASED(RCKPT), /*FIELDS FOR NCP RESOURCE 67781500 * @Y17XACL*/ 67782000 * 2 CKPSUBST FIXED(15), /*SUBSTRUCT @Y17XACL*/ 67782500 * 2 CKPCOHRT FIXED(15), /*COHORT @Y17XACL*/ 67783000 * 2 CKPNFLG BIT(8), /*FLAGS @Y17XACL*/ 67783500 * 3 CKPREMB BIT(1), /*REMEMBER @Y17XACL*/ 67784000 * 3 CKPRSACT BIT(1), /*RESOURCE ACTIVE @Y17XACL*/ 67784500 * 3 CKPEPMOD BIT(1), /*EP MODE @Y17XACL*/ 67785000 * 3 CKPLULOG BIT(1), /*ALLOW LOGON IND @Y17XAXF*/ 67785500 * 3 * BIT(4), /*RESERVED @Y17XACL*/ 67786000 * 2 CKPTYPE BIT(8); /*RESOURCE TYPE @Y17XACL*/ 67786500 *%CKPNRSZ='LENGTH(CKPNRES)'; /*LENGTH OF FIELDS CKPT'ED 67787000 * FOR A 3705 RESOURCE 67787500 * @Y17XACL*/ 67788000 * DECLARE /* @Y17XAXF*/ 67788500 * 1 CKPAVT BASED(RCKPT), /*CHECKPOINT AVT DSECT 67789000 * @Y17XASA*/ 67789500 * 2 CKPOPCON CHAR(2), /*PRIMARY OP/CTL TERMINAL 67790000 * @Y17XASA*/ 67790500 * 2 CKPOPCIN CHAR(2), /* PRIMARY OP/CTL TTCIN 67791000 * @Y17XASA*/ 67791500 * 2 CKPINTLV CHAR(2), /* SYSTEM DELAY INTERVAL 67792000 * @Y17XASA*/ 67792500 * 2 CKPBIT1 BIT(8), /* AVTBIT1 @Y17XASA*/ 67793000 * 2 CKPBIT2 BIT(8), /* AVTBIT2 @Y17XASA*/ 67793500 * 2 CKPNADDR CHAR(4), /* NON REUSE DISK NEXT ADDR 67794000 * @Y17XASA*/ 67794500 * 2 CKPRADDR CHAR(4), /* REUSE DISK NEXT ADDR 67795000 * @Y17XASA*/ 67795500 * 2 CKPLODPT CHAR(4), /* REUSE LOAD POINT FIELD 67796000 * @Y17XASA*/ 67796500 * 2 CKPSUBT CHAR(1), /* AVTSUBT SUBT= OPTION FIELD 67797000 * @Y17XASA*/ 67797500 * 2 CKPIOTR CHAR(1); /* AVTIOTR IOTR= OPTION FIELD 67798000 * @Y17XASA*/ 67798500 *%CKPAVTLN='LENGTH(CKPAVT)'; /* LENGTH OF CKP AVT DSECT 67799000 * @Y17XASA*/ 67799500 *@EJECT; 67800000 * /*CONSTANTS @Y17XACL*/ 67800500 *DCL CKPIOCOM BIT(8) CONSTANT('7F'X); /*I/O COMPELTED SUCCESSFULLY 67801000 * (USED WITH CKPIOECC) 67801500 * @Y17XAXF*/ 67802000 *DCL CKPSET1 BIT(8) CONSTANT('01'X); /*USED TO INVERT QCB SWITCH AT 67802500 * CKPSWCH1 @Y17XACL*/ 67803000 *DCL CKPSET2 BIT(8) CONSTANT('04'X); /*USED TO INVERT INVITATION 67803500 * LIST SWITCH AT CKPSWCH2 67804000 * @Y17XACL*/ 67804500 *DCL CKPREAD BIT(8) CONSTANT('06'X); /*READ DATA CMD @Y17XACL*/ 67805000 *DCL CKPWRITE BIT(8) CONSTANT('05'X); /*WRITE DATA CMD @Y17XACL*/ 67805500 *DCL CKPWCKD BIT(8) CONSTANT('1D'X); /*WRITE COUNT, KEY, AND DATA 67806000 * @Y17XACL*/ 67806500 *DCL CKPSET BIT(8) CONSTANT('23'X); /*SET SECTOR @Y17XACL*/ 67807000 *DCL CKPNOOP BIT(8) CONSTANT('03'X); /*NOOP @Y17XACL*/ 67807500 *DCL CKPMSGL FIXED(8) CONSTANT(65); /*MSG LENGTH @Y17XACL*/ 67808000 *DCL CKPENVL FIXED(15) CONSTANT(300); /*LENGTH OF ENVIRONMENT RECORD 67808500 * SEGMENT @Y17XACL*/ 67809000 *DCL CKP101 FIXED(15) CONSTANT(256); /*USED TO BUMP TRACK @Y17XACL*/ 67809500 *DCL CKPCKRNO FIXED(8) CONSTANT(3); /*NUMBER OF EXTRA CKREQ RECORDS 67810000 * @Y17XACL*/ 67810500 *DCL CKPCMDCH BIT(8) CONSTANT('42'X); /*COMMAND CHAINING @Y17XACL*/ 67811000 *DCL CKPRETNL FIXED(8) CONSTANT(4); /*RETURN OFFSET TO CHECKPOINT 67811100 * EXECUTOR FOR NO ADDITIONAL 67811200 * LOAD REQUESTS @Y17XAXF*/ 67811300 *DCL CKPCKREQ FIXED(8) CONSTANT(48); /*OFFSET FOR CKREQ @Y17XACL*/ 67811500 *DCL CKPENV FIXED(8) CONSTANT(56); /*OFFSET FOR ENV @Y17XACL*/ 67812000 *DCL CKPIOQM FIXED(8) CONSTANT(64); /*OFFSET FOR I/O QUEUE MANAGER 67812500 * @Y17XACL*/ 67813000 *DCL CKPDIOR FIXED(8) CONSTANT(72); /*OFFSET FOR DISK I/O ROUTINE 67813500 * @Y17XACL*/ 67814000 *DCL CKPNOTIF FIXED(8) CONSTANT(80); /*OFFSET FOR NOTIFICATION 67814500 * ROUTINE @Y17XACL*/ 67815000 *DCL CKPNOCOR FIXED(8) CONSTANT(88); /*OFFSET FOR NO AVAILABLE CORE 67815500 * ROUTINE @Y17XACL*/ 67816000 *DCL CKPNOINC FIXED(8) CONSTANT(96); /*OFFSET FOR INCIDENT OVERFLOW 67816500 * ROUTINE @Y17XACL*/ 67817000 *DCL CKPCNCP FIXED(8) CONSTANT(104); /*OFFSET FOR 3705 CHECKPOINT 67817500 * ROUTINE @Y17XAXF*/ 67818000 *DCL CKPRNCP FIXED(8) CONSTANT(112); /*OFFSET FOR 3705 RESTART 67818500 * ROUTINE @Y17XAXF*/ 67819000 *DCL CKPCNCPW FIXED(8) CONSTANT(120); /*OFFSET FOR 3705 CHECKPOINT 67819500 * WRITE ROUTINE @Y17XAXF*/ 67820000 *DCL CKPOPLTL FIXED(8) CONSTANT(10); /*LENGTH OF OPT LENGTH ENTRY 67820500 * @Y17XACL*/ 67821000 *DCL CKP1BYTE FIXED(8) CONSTANT(8); /*USED TO SHIFT 1 BYTE 67821500 * @Y17XACL*/ 67822000 *DCL CKP2BYTE FIXED(8) CONSTANT(16); /*USED TO SHIFT 2 BYTES 67822500 * @Y17XACL*/ 67823000 *DCL CKPCVTPT FIXED(8) CONSTANT(16); /*ADDRESS OF CVT POINTER 67823500 * @Y17XACL*/ 67824000 *DCL CKPCNTTR FIXED(8) CONSTANT(28); /*DISPLACEMENT OF TTR CONVERT 67824500 * ROUTINE IN CVT @Y17XACL*/ 67825000 *DCL CKPCNSEC FIXED(8) CONSTANT(232); /*DISPLACEMENT OF SECTOR 67825500 * ROUTINE ADDR IN CVT 67826000 * @Y17XACL*/ 67826500 *DCL CKPDELMT CHAR(1) CONSTANT('*'); /*DELIMITER PLACED IN ENV RCD 67827000 * @Y17XACL*/ 67827500 *DCL CKPQDELM FIXED(8) CONSTANT(108); /*DELIMETER FOR QCB ON 67827610 * ENVIRONMENT FIELD @OX16402*/ 67827710 *DCL CKPLTRLN FIXED(8) CONSTANT(1); /*LENGTH OF LCBTRACE FIELD 67828000 * @Y17XAXF*/ 67828500 *DCL CKPDELLN FIXED(8) CONSTANT(1); /*LENGTH OF DELIMITER FIELD 67829000 * @Y17XACL*/ 67829500 *DCL CKPSEQLN FIXED(8) CONSTANT(4); /*LENGTH OF SEQUENCE NUMBER 67830000 * FIELD @Y17XACL*/ 67830500 *DCL CKPSENSE FIXED(8) CONSTANT(1); /*LENGTH OF SENSE FIELD 67831000 * @Y17XACL*/ 67831500 *DCL CKPMCTLN FIXED(8) CONSTANT(2); /*LENGTH OF COUNT FIELD 67832000 * @Y17XACL*/ 67832500 *DCL CKPTRMLN FIXED(8) CONSTANT(1); /*LENGTH OF TRM STATUS FIELD 67833000 * @Y17XACL*/ 67833500 *DCL CKPQCBLN FIXED(8) CONSTANT(21); /*LENGTH OF PRIORITY LEVEL QCB 67834000 * DISK POINTERS @Y17XACL*/ 67834500 *DCL CKPMQBLN FIXED(8) CONSTANT(6); /*LENGTH OF MASTER QCB FIELDS 67835010 * PLUS DELIMETER @OX16402*/ 67835510 *DCL CKPQBKLN FIXED(8) CONSTANT(3); /*LENGTH OF QBACK POINTER 67836000 * @Y17XACL*/ 67836500 *DCL CKPLCBLN FIXED(8) CONSTANT(2); /*LENGTH OF LCB STAT INFO 67837000 * @Y17XACL*/ 67837500 *DCL CKPDCBLN FIXED(8) CONSTANT(1); /*LENGTH OF DCB FIELDS 67838000 * @Y17XACL*/ 67838500 *DCL CKPOCODE FIXED(8) CONSTANT(0); /*COMMAND OPERATION TYPE 67839000 * @Y17XACL*/ 67839500 *DCL CKPOCSWC FIXED(8) CONSTANT(1); /*OPERATION SUB-TYPE @Y17XACL*/ 67840000 *DCL CKPOCFLG FIXED(8) CONSTANT(2); /*FLAG BYTE @Y17XACL*/ 67840500 *DCL CKPOCREL FIXED(8) CONSTANT(3); /*RELATIVE LINE NUMBER 67841000 * @Y17XACL*/ 67841500 *DCL CKPOCLNO FIXED(8) CONSTANT(10); /* HEX LINE NUMBER @Y17XACL*/ 67842000 *DCL CKPOCNAM FIXED(8) CONSTANT(20); /*DDNAME FOR START/STOP 67842500 * COMMAND @Y17XACL*/ 67843000 *DCL CKPOCLST FIXED(8) CONSTANT(28); /*ILIST ADDRESS @Y17XACL*/ 67843500 *DCL CDROPC FIXED(8) CONSTANT(16); /*KEY FOR OPCTL @Y17XACL*/ 67844000 *DCL CDRCKREQ FIXED(8) CONSTANT(24); /*KEY FOR CKREQ @Y17XACL*/ 67844500 *DCL CDRTOTAL FIXED(8) CONSTANT(28); /*KEY FOR TOTAL @Y17XACL*/ 67845000 *DCL CDRTOTLC FIXED(8) CONSTANT(32); /*KEY FOR TOTAL - CONTINUED 67845500 * @Y17XACL*/ 67846000 * /*KEYS USED WITH CREKEY @Y17XACL*/ 67846500 *DCL CRELCB BIT(8) CONSTANT('00'X); /*KEY FOR LCB FOR CHECKPOINT 67847000 * @Y17XACL*/ 67847500 *DCL CRECHNGT BIT(8) CONSTANT('10'X); /*KEY FOR TCHNG FROM ALLP 67848000 * @Y17XACL*/ 67848500 *DCL CREREMVE BIT(8) CONSTANT('20'X); /*KEY FOR TIME DELAY QUEUE 67849000 * REMOVAL ELEMENT @Y17XACL*/ 67849500 *DCL CREOPC BIT(8) CONSTANT('40'X); /*KEY FOR OPERATOR CONTROL 67850000 * @Y17XACL*/ 67850500 *DCL CRECKREQ BIT(8) CONSTANT('60'X); /*KEY FOR CKREQ FROM APPL 67851000 * PROGRAM @Y17XACL*/ 67851500 *DCL CREINCOF BIT(8) CONSTANT('80'X); /*KEY FLAG - INCIDENT 67852000 * OVERFLOW @Y17XACL*/ 67852500 *DCL CRECNCP BIT(8) CONSTANT('D0'X); /*KEY FOR 3705 CHECKPOINT 67853000 * @Y17XAXF*/ 67853500 *DCL CRERNCP BIT(8) CONSTANT('E0'X); /*KEY FOR 3705 RESTART 67854000 * @Y17XAXF*/ 67854500