* %GOTO PLSOPCE; /* 00400022 MACRO 00900022 TOPCED 01800000 .*A-000000-999999 @X31X8X0 02100008 .*C063000,919800,970800 @Z30X8XE 02400008 .*C108000,144000,513000,765000,810000,828000,909000,938000 @Y17XAXU 02400100 .*C953000,959000,966000,997200 @Y17XAXU 02410100 .*A108000,144000,513000,765000,810000,828000,909000,938000 @Y17XAXU 02420100 .*A953000,959000,966000,997200 @Y17XAXU 02430100 .*A959200,953700,836000,999140,855000,607800,997800,966000 @Y17XAXF 02440100 .*A909000 @Y17XAXF 02450100 .*D953100-953500,766000-768000 @Y17XAXF 02460100 .*C774000,828000-829000,973000-980000 @Y17XAXF 02470100 .*A608375,997842 @OY19405 02470282 IEDOPC DSECT @Y17XAXF 02480100 IEDQOPCN EQU * OPCE NEG PREFIX @Y17XAXF 02490100 OCLDNME DS 0CL8 . LOAD MODULE MISMATCH @Y17XAXF 02493100 * NAME @Y17XAXF 02496100 OCLINTTE DS 0F . LINE TTE ADDR (M6-MB) @Y17XAXF 02500100 OCRESPCT DS CL2 . OUTSTANTDING RSP CNT @Y17XAXF 02510100 OCREQFLG DS X . OP SERV REQ FLAG @Y17XAXF 02520100 OCFLUSHZ EQU X'80' . Z,TP,FLUSH REQUEST FOR DEACT 02530100 * NCP @Y17XAXF 02531100 * EQU X'40'-X'20' . RESERVED @Y17XAXF 02532100 OCADNCP EQU X'10' . NCP ACT/DEACT COMMAND @Y17XAXF 02535100 OCPARTAL EQU X'08' . PARTIAL ACT FLAG @Y17XAXF 02540100 OCDCARD EQU X'04' . DISCARD FLAG @Y17XAXF 02550100 OCFORCE EQU X'02' . FORCE FLAG @Y17XAXF 02560100 OCIDLE EQU X'01' . IDLE FLAG @Y17XAXF 02570100 OCPREFLG DS X . GENERAL FLAG BYTE @Y17XAXF 02575100 OCBFREQ EQU X'80' CLEAUP BUFF REQUESTED @Y17XAXF 02575200 OCRSPSNT EQU X'40' CLEANUP RESPONSE SENT @Y17XAXF 02575300 OCREPOST EQU X'20' CLEANUP REPOST REQ @Y17XAXF 02575400 OCTOTEP EQU X'10' TOTE POST REQUEST @Y17XAXF 02575500 * EQU X'08'-X'01' RESERVED @Y17XAXF 02575600 DS F . RESERVED @Y17XAXF 02576100 OCPREFSZ EQU *-IEDQOPCN PREFIX SIZE @Y17XAXF 02590100 SPACE 02700022 IEDQOPCE EQU * @Y17XAXF 03600000 SPACE 04500022 * OPERATOR CONTROL ELEMENT 05400022 * VERSION DATE JUNE 7, 1974 @Z30X8XE 06300008 SPACE 07200022 OCLINK DS F . LINK TO NEXT OPCE ON WAIT QUEUE 09000022 SPACE 09900022 OCELEM DS 0F . LINK TO ATTACHED UNITS @Y17XAXU 10800000 SPACE 10850000 OCELMPRI DS XL1 . ELEMENT PRIORITY @Y17XAXU 11100000 OCELMPTR DS AL3 . PTR TO ATTACHED ELEMENT @Y17XAXU 11400000 SPACE 11700022 OCRUDEST DS 0F . OPCE WAITING FOR A RESP @Y17XAXU 12100000 OCUNIT DS 0F . LINK TO ATTACHED UNITS @Y17XAXF 12600000 OCSCAN DS 0X . BYTE USED BY OPCSCAN @0Y12425 12610000 OCDDADDR EQU X'A0' . VALUE INDICATES TO DCB LOOK 12620000 * UP THAT REG 11 POINTS TO 12630000 * EITHER A DDNAME OR CHANNEL ADDR 12640000 * INPUT TO OPCSCAN RTN FROM SCAN MODS @OY12425 12650000 OCADDR EQU X'80' . ADDR ONLY @OY12425 12660000 OCDDNRLN EQU X'40' . DDN,RLN ONLY @OY12425 12670000 OCDDNAME EQU X'20' . DDNAME ONLY @OY12425 12680000 OCALLRLN EQU X'10' . RLN CAN BE ALL @OY12425 12690000 * OPSCAN OUTPUT AFFECTS THESE BITS @OY12425 12700000 OCNONAME EQU X'08' . NAME NOT FOUND @OY12425 12710000 OCNOTUCB EQU X'04' . NOT A UCB ADDR @OY12425 12720000 OCCKPKEY DS XL1 . OPERATOR CONTROL CKECKPOINT KEY 12800000 * @Y17XAXF 13000000 *OCCKPTYP X'80'-X'20' . TYPE OF CKPT REQUEST @Y17XAXF 13020000 OCCKPINC EQU X'80' . REQUEST INCIDENT CKPT @Y17XAXF 13040000 OCCKPNOP EQU X'40' . REQUEST 3705 CKPT @Y17XAXF 13060000 OCCKPRST EQU X'20' . REQUEST 3705 RESTART RECORDS 13080000 * @Y17XAXF 13100000 OCCKPENV EQU X'10' . ENVIRONMENT CKPT IS TO BE 13120000 * FORCED @Y17XAXF 13140000 * EQU X'08'-X'01' RESERVED @Y17XAXF 13160000 DS AL3 . RESERVED @Y17XAXF 13200000 SPACE 13500022 OCOPTCDE DS 0X . COMMAND OPERATION CODE @Y17XAXU 14400000 OCPRIFLG DS XL1 . PRIORITY FLAG FIELD @Y17XAXU 14800000 SPACE 15300022 * COMMANDS ENTERED FROM CONSOLE OR TERMINAL * 16200022 OCVARY EQU X'28' . VARY COMMAND 17100022 OCHALT EQU X'3C' . HALT COMMAND 18000022 OCMODIFY EQU X'44' . MODIFY COMMAND 18900022 OCDSPLAY EQU X'68' . DISPLAY COMMAND 19800022 OCHOLD EQU X'6C' . HOLD COMMAND 20700022 OCRLEASE EQU X'70' . RELEASE COMMAND 21600022 SPACE 22500022 * TOTE OR MPP COMMANDS * 23400022 OCCLOSEQ EQU X'10' . CLOSEDOWN - QUICK 24300022 OCCLOSEF EQU X'11' . CLOSEDOWN - FLUSH 25200022 OCSTARTL EQU X'40' . START LINE COMMAND 26100022 OCSTOPL EQU X'41' . STOP LINE COMMAND 27000022 OCSTARTB EQU X'45' . START TERMINAL (BOTH) 27900022 OCSTARTT EQU X'46' . TOTE START TERMINAL COMMAND 28800022 OCSTOPB EQU X'47' . STOP TERMINAL (BOTH) 29700022 OCDEACT EQU X'48' TOTE DEACTIVATE 30600022 OCICHNG EQU X'49' . ICHNG COMMAND 31500022 OCTCHNG EQU X'56' . TCHNG COMMAND 31900000 OCMRLSE EQU X'87' . MRELEASE COMMAND 32400022 OCHOLDT EQU X'88' TOTE HOLD COMMAND 33300022 SPACE 34200022 OCSWITCH DS X . OPERATION SUB-TYPE 35100022 OCQUCKN EQU X'80' . REQUEST FOR QUICK CLOSEDOWN 35300000 * @Y17XAXF 35500000 * EQU X'40'-X'01' RESERVED @Y17XAXF 35700000 SPACE 36000022 * OPERATOR CONTROL EQUATES FOR OCSWITCH * 36900022 OCX01 EQU X'01' . HEX 01 37800022 OCX02 EQU X'02' . HEX 02 38700022 OCX03 EQU X'03' . HEX 03 39600022 OCBKUP EQU X'03' . MODIFY 3705 AS AVAILABLE FOR BACKUP 39900000 * @Y17XAXF 40200000 OCX04 EQU X'04' . HEX 04 40500022 OCX05 EQU X'05' . HEX 05 41400022 OCOFFTPE EQU X'05' . VARY OFFTP E COMMAND @Y17XAXF 41800000 OCX06 EQU X'06' . HEX 06 42300022 OCOFFTPB EQU X'06' . VARY OFFTP B COMMAND @Y17XAXF 42700000 OCX07 EQU X'07' . HEX 07 43200022 OCCHNLD EQU X'07' . MODIFY CHANGE LOAD @Y17XAXF 43600000 OCX08 EQU X'08' . HEX 08 44100022 OCX09 EQU X'09' . HEX 09 45000022 OCX0A EQU X'0A' . HEX 0A 45900022 OCDMPC EQU X'0A' . DUMP COMMAND TO MH @Y17XAXU 46300000 OCONTPE EQU X'0A' . VARY ONTP E COMMAND @Y17XAXF 46500000 OCX0B EQU X'0B' . HEX 0B 46800022 OCONTPB EQU X'0B' . VARY ONTP B COMMAND @Y17XAXF 47200000 OCX0C EQU X'0C' . HEX 0C 47700022 OCX0D EQU X'0D' . HEX 0D 48600022 OCX0E EQU X'0E' . HEX 0E 49500022 OCX0F EQU X'0F' . HEX 0F 50400022 OCACTLU EQU X'10' . ACTLU REQUEST @Y17XAXU 51300000 OCX10 EQU X'10' . HEX 10 @Y17XAXU 51700000 OCX11 EQU X'11' . HEX 11 52200022 OCIPLC EQU X'11' . IPL COMMAND TO MH @Y17XAXU 52600000 OCSTPLNC EQU X'11' . STOPLINE, C REQUEST @Y17XAXF 52630000 OCSTPLNI EQU X'12' . STOPLINE, I REQUEST @Y17XAXF 52660000 OCX12 EQU X'12' . HEX 12 53100022 OCX13 EQU X'13' . HEX 13 54000022 OCX14 EQU X'14' . HEX 14 54900022 OCX15 EQU X'15' . HEX 15 55800022 OCX16 EQU X'16' . HEX 16 56700022 OCSWBACK EQU X'16' . MODIFY 3705 BACKUP NCP @Y17XAXF 57100000 OCX17 EQU X'17' . HEX 17 57600022 OCX18 EQU X'18' . HEX 18 58500022 OCX19 EQU X'19' . HEX 19 59400022 OCX1A EQU X'1A' . HEX 1A 60300022 OCBHSET EQU X'1D' . MODIFY BHSET @Y17XAXF 60307000 OCSESSNL EQU X'1E' . CHANGE SESSION LIMIT @Y17XAXF 60314000 OCTRANL EQU X'1F' . CHANGE TRANSMISSION LIMIT @Y17XAXF 60321000 OCDACTLU EQU X'20' . DACTLU REQUEST @Y17XAXU 60330000 OCMIDMSG EQU X'20' . REMOVE FROM MIDDLE MESSAGE CONDITION 60333000 * @Y17XAXF 60336000 OCSWDEVB EQU X'20' . SWITCH DEVICE BACK-UP @Y17XAXU 60340000 OCSWDEVP EQU X'21' . SWITCH DEVICE PRIMARY @Y17XAXU 60350000 OCTOFA EQU X'22' . REDRIVE INCIDENT RECORD @Y17XAXU 60360000 OCACTVTE EQU X'22' . ACTIVATE @Y17XAXU 60370000 OCTOFC EQU X'23' . REQUEST DEACT @Y17XAXU 60390000 OCDEACTE EQU X'23' . DEACTIVATE @Y17XAXU 60394000 OCSWAP EQU X'24' . SWAP DEVICE ID @Y17XAXU 60398000 OCCHANGE EQU X'25' . CHANGE DIAL MODE @Y17XAXU 60402000 OCOFTPEM EQU X'25' . VARY OFFTP EM COMMAND @Y17XAXF 60404000 OCSSELCT EQU X'26' . SELECT MODEM SPEED @Y17XAXU 60406000 OCOFTPBM EQU X'26' . VARY OFFTP BM COMMAND @Y17XAXF 60408000 OCSWLNME EQU X'27' . SWITCH LINE MODE TO EP @Y17XAXU 60410000 OCSWLNMN EQU X'28' . SWITCH LINE MODE TO NCP @Y17XAXU 60414000 OCPARO EQU X'29' . COMMAND PARSED IN LCB @Y17XAXU 60420000 OCIOTR EQU X'2A' . START/STOP TRACEING OF @Y17XAXU 60430000 * LINES IN ERROR @Y17XAXU 60440000 OCLCBIN EQU X'30' . LCB INPUT TO MH @Y17XAXU 60450000 OCACTPU EQU X'30' . ACTPU (NON-NCP) REQUEST @Y17XAXU 60480000 OCFRCDAC EQU X'37' . FORCE DECACT REQUEST @Y17XAXU 60481000 OCCRINOP EQU X'38' . CLEANUP REQUEST FOR INOP @Y17XAXU 60482000 OCCUREQ EQU X'39' . CLEANUP REQUEST @Y17XAXU 60483000 OCDACTPU EQU X'40' . DACTPU (NON-NCP) REQUEST @Y17XAXU 60487000 OCACTLK EQU X'50' . ACTLINK REQUEST @Y17XAXU 60540000 OCDACTLK EQU X'60' . DACTLINK REQUEST @Y17XAXU 60570000 OCACTNCP EQU X'70' . ACTPU(NCP) REQUEST @Y17XAXU 60600000 OCCHGSL EQU X'80' . CHANGE SESSION LIMIT REQ @Y17XAXU 60630000 OCSCANON EQU X'80' . SCAN HAS BEEN DONE @Y17XAXF 60640000 OCCHGNP EQU X'90' . CHANGE NEGATIVE POLL LIMIT @Y17XAXU 60660000 OCCHGSSP EQU X'A0' . CHANGE SERVICE SEEK PAUSE @Y17XAXU 60690000 OCCHGTL EQU X'B0' . CHANGE XMISSION LIMIT REQ @Y17XAXU 60720000 OCSWEP EQU X'C0' . SWITCH TO EP MODE REQUEST @Y17XAXU 60750000 OCSWNCP EQU X'D0' . SWITCH TO NCP MODE REQUEST @Y17XAXU 60780000 OCVARON EQU X'D1' . INTERNAL VARY ON REQUEST @Y17XAXF 60790000 OCVAROFF EQU X'D2' . INTERNAL VARY OFF REQUEST @Y17XAXF 60800000 OCSETTD EQU X'E0' . SET TIME/DATE REQUEST @Y17XAXU 60810000 OCOPYDSM EQU X'E1' . COPY DEST. MODE @Y17XAXF 60816000 OCRPLDSM EQU X'E2' . REPLACE DEST MODE @Y17XAXF 60822000 OCOPYDSI EQU X'E3' . COPY DEV SESS INFO @Y17XAXF 60828000 OCRPLDSI EQU X'E4' . REPLACE DEV SESS INFO @Y17XAXF 60834000 OCSUBT EQU X'E5' . START OR STOP SUBTASK TRACE @Y17XAXF 60837000 OCSESTRM EQU X'E6' . SESS TERM REQ TO/FRM LUS @Y17XAXF 60837500 OCBUF EQU X'E7' . CHANGE BUFFTR OPTION @OY19405 60837782 OCDISCON EQU X'F0' . DISCONTACT REQUEST @Y17XAXU 60838000 OCRSTART EQU X'F1' . RESTART RECORD REQUEST @Y17XAXU 60870000 OCSND1 EQU X'F2' . RESTART COMMAND @Y17XAXU 60900000 OCSND2 EQU X'F3' . RESTART COMMAND @Y17XAXU 60930000 OCSND3 EQU X'F4' . RESTART COMMAND @Y17XAXU 60960000 OCSND4 EQU X'F5' . RESTART COMMAND @Y17XAXU 60990000 OCSND5 EQU X'F6' . RESTART COMMAND @Y17XAXU 61020000 OCSND6 EQU X'F7' . RESTART COMMAND @Y17XAXU 61050000 OCSND7 EQU X'F8' . RESTART COMMAND @Y17XAXU 61080000 OCSND8 EQU X'F9' . RESTART COMMAND @Y17XAXU 61110000 OCFOXES EQU X'FF' . ALL ONES 61200022 SPACE 62100022 OCFLAG DS X . SPECIAL CONDITIONS INDICATOR 63000022 SPACE 63900022 * BIT DEFINITIONS FOR OCFLAG FIELD * 64800022 OCCONSOL EQU X'80' . INDICATE CONSOLE INPUT 65700022 OCTOTE EQU X'40' . TOTE INPUT 66600022 OCMPP EQU X'20' . APPLICATION PROG INPUT 67500022 OCLINE EQU X'10' . INPUT CONTAINED LINE NUMBER 68400022 OCOUTPUT EQU X'08' . MULTIPLE BLOCK OUTPUT 69300022 OCSSCP EQU X'04' . SSCP INPUT @Y17XAXF 70200000 OCATTACH EQU X'02' . ELEMENT ATTACHED FOR RESOURCES 71100022 OCRESP EQU X'01' . THIS ELEMENT IS ASSOC S22024 71400022 * WITH A RESPONSE BTU S22024 71700022 SPACE 72000022 OCRLN DS X . RELATIVE LINE NUMBER OF DCB 72900022 SPACE 73800022 OCCIB DS 0A . ADDRESS OF INPUT CIB 74700022 OCCONID DS 0X . CONSOLE IDENTIFICATION BYTE 75600022 OCDEST DS 0H . DESTINATION OFFSET IN TNT @Y17XAXU 76500000 OCREQVAL DS XL1 . OP SERVICES REQUEST VALUES @Y17XAXU 76900000 DS XL3 . FILLER FOR BOUNDARY (NOT AVAILABLE) 77400000 * @Y17XAXF 77800000 SPACE 78300022 OCTRMTBL DS H . OFFSET IN TNT TO TERMINAL NAME 79200022 OCTIOT DS 0H . OFFSET IN TIOT TO DDNAME 80100022 OCLINENO DS 0H . HEX LINE NUMBER @Y17XAXU 81000000 OCWTGB DS H . WTG BACKUP FIELD @Y17XAXU 81400000 SPACE 81900022 OCTRUNIT DS 0A . IPL/DUMP TRAILER UNIT @Y17XAXU 82300000 OCRSID DS 0H . RESOURCE ID @Y17XAXF 82800000 OCALSTAT DS XL1 . ALL OPTION STATUS FLAG @Y17XAXF 82850000 OCRENTRD EQU X'80' . SECOND ENTRY TO VI FOR @Y17XAXU 82910000 * START LINE @Y17XAXU 82920000 OCDACTIP EQU X'40' . DEACT-IN-PROG @OY19465 82925082 OCSEQIND EQU X'20' . OFF - SEQ NO. NOT SET 82930000 * ON - SEQ NO. SET @Y17XAXU 82960000 OCREDRVE EQU X'10' . REDRIVE ELEMENT FLAG @Y17XAXF 83030000 OCACTREQ EQU X'08' . ACT/DEACT REQUEST @Y17XAXU 83100000 OCALLFLG EQU X'04' . ALL OPTIONS IN EFFECT @Y17XAXU 83200000 OCALL EQU X'03' . ALL STARTED/STOPPED @Y17XAXU 83300000 OCSOME EQU X'02' . SOME STARTED/STOPPED @Y17XAXU 83400000 OCNONE EQU X'01' . NONE STARTED/STOPPED @Y17XAXU 83500000 OCUNSET EQU X'00' . STATUS IS UNSET @Y17XAXU 83600000 DS XL1 . RESERVED @Y17XAXF 83650000 OCSEQ DS H . BTU ID TAG SEQ NUMBER S22024 83700022 SPACE 84600022 OCRESNUM DS 0H . RESOURCE RECORD @Y17XAXF 85500000 OCPARM DS H . BRANCH PARAMETER FOR WTG MODULE 85540000 OCRCGNEG EQU 2 GOOD RETURN CODE WITH SENSE @Y17XAXF 85580000 * DATA @Y17XAXF 85660000 OCRCGPOS EQU 1 GOOD RETURN CODE WITH NO @Y17XAXF 85740000 * SENSE DATA @Y17XAXF 85820000 OCRCBNEG EQU -1 BAD RETURN CODE WITH SENSE @Y17XAXF 85900000 * DATA @Y17XAXF 85980000 OCRCBSIB EQU -2 BAD RETURN CODE FROM UNSUC- @Y17XAXF 86060000 * CESSFUL SIB REQUEST @Y17XAXF 86140000 OCRCBPOS EQU -3 BAD RETURN CODE WITH NO @Y17XAXF 86220000 * SENSE DATA @Y17XAXF 86300000 OCRCBMOD EQU -4 BAD RETURN CODE FROM @Y17XAXF 86400000 * INEQUALITY OF LOAD MODULE @Y17XAXF 86600000 * NAMES @Y17XAXF 86800000 OCWTG DS CL2 . NEXT LOAD TO GET CONTROL S22024 87000000 SPACE 87300022 OCBACKUP DS 0CL8 . NAME OF BACKUP DCB S22024 88200000 * DDNAME OR EBCDIC UCB ADDRESS 88300000 OCBUFNED DS H . NUM BUF UNITS NEEDED @Y17XAXF 88400000 OCBUFGOT DS H . NUM BUF UNITS OWNED @Y17XAXF 88500000 OCNCP DS H . SAVED TNT OF LOCAL NCP @Y17XAXF 88550000 OCDVRDCT DS H . DEVICE RECORD COUNT @Y17XAXF 88600000 SPACE 90000022 OCMODNME DS 0CL8 . LOAD MODULE NAME @Y17XAXU 90900000 OCIPLWA DS 0A . IPL WORKAREA PTR @Y17XAXF 91100000 OCWTGSAV DS CL2 . SAVE WTG FIELD @Y17XAXU 91300000 OCPUADR DS CL2 . SAVED PU ADDRESS @Y17XAXU 91500000 OCPTRSAV DS F . SAVED OPCE POINTER @Y17XAXU 92100000 SPACE 3 @Y17XAXF 92100600 * @Y17XAXF 92101200 * CHECKPOINT SPECIAL DATA TO BE SAVED @Y17XAXF 92101800 * @Y17XAXF 92102400 OCCKDATA DS 0CL8 CHECK POINT DATA @Y17XAXF 92103000 OCRSTGTM DS 0F . ADDR OF RESTART GETMAINED AREA 92103200 * @Y17XAXF 92103400 OCCKDAT1 DS CL1 BYTE 1 OF CHKPT DATA @Y17XAXF 92103600 OCCKDAT2 DS CL1 BYTE 2 OF CKPT DATA @Y17XAXF 92104200 DS CL2 RESERVED @Y17XAXF 92104800 OCCKPTWA DS A ADDRESS OF 3705 CHECKPOINT 92105400 * WORKAREA @Y17XAXF 92305400 MEND , */ 92700022 *%PLSOPCE:; 92800022 * DCL 1 IEDQOPCE BDY(WORD) BASED(ROPCE), /*OPERATOR CONTROL 93000022 * ELEMENT DSECT */ 93100022 * 2 OCLINK PTR(31), /*LINK TO THE NEXT OPCE ON 93400000 * WAIT QUEUE @YM07340*/ 93500000 * 2 OCELEM PTR(31), /*LINK TO ATTACHED 93600000 * OPCE'S @Y17XAXU*/ 93620000 * 3 OCELMPRI CHAR(1), /*ELEMENT PRIORITY @Y17XAXU*/ 93640000 * 3 OCELMPTR PTR(24), /*POINTER TO ATTACHED 93660000 * UNIT @Y17XAXU*/ 93680000 * 2 OCUNIT PTR(31), /*LINK TO ATTACHED UNITS */ 93700022 * 3 OCRUDEST PTR(31), /* OPCE WAITING FOR 93730000 * A RESPONSE @Y17XAXU*/ 93760000 * 4 OCCKPKEY BIT(8), /*OPERATOR CONTROL CHECKPOINT 93770000 * KEY @Y17XAXF*/ 93780000 * 5 OCSCAN BIT(8), /* INPUT TO OPCSCAN @OY12425*/ 93781000 * 6 OCADDR BIT(1), /* ADDR ONLY @OY12425*/ 93782000 * 6 OCDDNRLN BIT(1), /* DDN,RLN ONLY @OY12425*/ 93783000 * 6 OCDDNAME BIT(1), /* DDNAME ONLY @OY12425*/ 93784000 * 6 OCALLRLN BIT(1), /* RLN CAN BE ALL @OY12425*/ 93785000 * 6 OCNONAME BIT(1), /* NAME NOT FOUND @OY12425*/ 93786000 * 6 OCNOTUCB BIT(1), /* NOT A UCB ADDR @OY12425*/ 93787000 * 6 * BIT(2), /* RESERVED @OY12425*/ 93788000 * 4 * PTR(24), /*RESERVED @Y17XAXF*/ 93790000 * 2 OCOPTCDE CHAR(1), /* COMMAND OP CODE @Y17XAXU*/ 93800000 * 3 OCPRIFLG CHAR(1), /* PRIORITY FLAG FLD @Y17XAXU*/ 93850000 * 2 OCSWITCH CHAR(1), /*OPERATION SUBTYPE FIELD */ 93900022 * 3 OCQUCKN BIT(1), /*REQUEST FOR QUICK CLOSEDOWN 93920000 * @Y17XAXF*/ 93940000 * 3 * BIT(7), /*RESERVED @Y17XAXF*/ 93960000 * 2 OCFLAG BIT(8), /*SPECIAL CONDITIONS IND */ 94000022 * 3 OCCONSOL BIT(1), /*CONSOLE INPUT */ 94100022 * 3 OCTOTE BIT(1), /*TOTE INPUT */ 94200022 * 3 OCMPP BIT(1), /*APPLICATION PROGRAM INPUT */ 94300022 * 3 OCLINE BIT(1), /*INPUT HAS LINE NUMBER */ 94400022 * 3 OCOUTPUT BIT(1), /*MULTIPLE BLOCK INPUT */ 94500022 * 3 OCSSCP BIT(1), /*SSCP INPUT @Y17XAXF*/ 94600000 * 3 OCATTACH BIT(1), /*ELEMENT ATTACHED */ 94700022 * 3 OCRESP BIT(1), /* THIS ELEMENT IS ASSOC. 94800022 * WITH A RESPONSE BTU S22024*/ 94900022 * 2 OCRLN PTR(8), /*RELATIVE LINE NUMBER */ 95000022 * 2 * PTR(31), /*@YM08001*/ 95100000 * /* BYTES 2-4 ALSO OVERLAYED BY OCCIB @YM08001*/ 95150000 * 3 OCDEST FIXED(16), /*DESTINATION OFFSET IN TNT*/ 95200000 * 4 OCCONID CHAR(1), /*CONSOLE ID @Y17XAXU*/ 95300000 * 4 OCREQVAL CHAR(1), /* OPERATOR SERVICES 95360000 * REQUEST VALUES @Y17XAXU*/ 95370000 * 3 * CHAR(2), /* RESERVED @Y17XAXF*/ 95380000 * 2 OCTRMTBL FIXED(16), /*OFFSET IN TNT TO TERMINAL 95400000 * ENTRY */ 95500022 * 2 OCLINENO FIXED(16), /*HEX LINE NUMBER */ 95600000 * 3 OCTIOT FIXED(16), /*OFFSET IN TIOT TO DDNAME*/ 95670000 * 4 OCWTGB CHAR(2), /* WTG BACKUP FIELD @Y17XAXU*/ 95750000 * 2 OCTRUNIT PTR(31), /* IPL/DUMP TRAILER 95800000 * UNIT @Y17XAXU*/ 95810000 * 3 OCRSID CHAR(2), /* RESOURCE ID @Y17XAXU*/ 95820000 * 4 OCALSTAT CHAR(1), /* ALL OPTION STATUS @Y17XAXU*/ 95830000 * 5 OCRENTRD BIT(1), /* SECOND ENTRY TO VI 95840000 * FOR START LINE @Y17XAXU*/ 95841000 * 5 OCDACTIP BIT(1), /* DEACT-IN-PROG @OY19465*/ 95842082 * 5 OCSEQIND BIT(1), /* OFF - SEQ NO. NOT SET 95843000 * ON - SEQ NO. SET @Y17XAXU*/ 95846000 * 5 OCREDRVE BIT(1), /* REDRIVE ELEMENT @Y17XAXF*/ 95850000 * /* FLAG @Y17XAXF*/ 95855000 * 5 OCACTREQ BIT(1), /* ACT/DEACT REQ @Y17XAXU*/ 95860000 * 5 OCALLFLG BIT(1), /* ALL OPTIONS IN 95870000 * EFFECT @Y17XAXU*/ 95880000 * 5 OCSOME BIT(1), /* SOME STARTED/ 95890000 * STOPPED @Y17XAXU*/ 95900000 * 5 OCNONE BIT(1), /* NONE STARTED/ 95910000 * STOPPED @Y17XAXU*/ 95920000 * 4 * CHAR(1), /* RESERVED @Y17XAXF*/ 95940000 * 3 OCSEQ CHAR(2), /* BTU ID TAG SEQ NO @Y17XAXU*/ 95960000 * 2 OCPARM FIXED(15), /*BRANCH PARAMETER FOR 96000000 * WTG MODULE */ 96100022 * 3 OCRESNUM FIXED(16), /*RESOURCE RECORD @Y17XAXF*/ 96150000 * 2 OCWTG CHAR(2), /*NEXT LOAD TO RECEIVE 96200022 * CONTROL AFTER WAIT */ 96300022 * 2 OCBACKUP CHAR(8) BDY(WORD), /*NAME OF BACKUP DDNAME 96400000 * EBCDIC UCB ADDRESS */ 96410000 * 3 OCBUFNED FIXED(16), /* NUM BUFFER UNITS NEEDED 96420000 * @Y17XAXF*/ 96430000 * 3 OCBUFGOT FIXED(16), /* NUM BUFFER UNITS OWNED 96440000 * @Y17XAXF*/ 96450000 * 3 OCNCP FIXED(16), /* SAVED TNT OF @Y17XAXF*/ 96460000 * /* LOCAL NCP @Y17XAXF*/ 96500000 * 3 OCDVRDCT FIXED(15), /* DEVICE RECORD COUNT 96510000 * @Y17XAXF*/ 96520000 * 2 OCMODNME CHAR(8) BDY(WORD), /* LOAD MOD NME @Y17XAXU*/ 96600000 * 3 OCIPLWA PTR(31), /* IPL WORKAREA PTR @Y17XAXF*/ 96900000 * 4 OCWTGSAV CHAR(2), /* SAVED WTG FIELD @Y17XAXF*/ 97300000 * 4 OCPUADR CHAR(2), /* SAVED PU ADDRESS @Y17XAXF*/ 98000000 * 3 OCPTRSAV PTR(31), /* SAVED OPCE PTR @Y17XAXU*/ 98700000 */* @Y17XAXF*/ 98703000 */* CHECKPOINT SPECIAL DATA TO BE SAVED @Y17XAXF*/ 98706000 */* @Y17XAXF*/ 98709000 * 2 OCCKDATA CHAR(8) BDY(WORD), /* CHECKPOINT DATA @Y17XAXF*/ 98712000 * 3 OCRSTGTM PTR(31), /* ADDR OF RESTART GETMAINED 98713000 * AREA @Y17XAXF*/ 98714000 * 4 OCCKDAT1 CHAR(1), /* BYTE 1 OF CHKPT DATA 98715000 * @Y17XAXF*/ 98718000 * 4 OCCKDAT2 CHAR(1), /* BYTE 2 OF CKPT DATA 98721000 * @Y17XAXF*/ 98724000 * 4 * CHAR(2), /* RESERVED @Y17XAXF*/ 98727000 * 3 OCCKPTWA PTR(31); /* ADDR OF 3705 CHECKPOINT 98729000 * WORKAREA */ 98731000 * /* @Y17XAXF*/ 98733000 * DCL OCCIB PTR(24) DEF(OCREQVAL); /* ADDRESS OF INPUT CIB 98733100 * @YM08001*/ 98733200 * DECLARE 98733500 * 1 OCCKPKY1 BIT(8) DEFINED(OCCKPKEY), /* @Y17XAXF*/ 98734000 * 2 OCCKPTYP BIT(3), /* TYPE OF CKPT REQUEST 98734500 * @Y17XAXF*/ 98735000 * 3 OCCKPINC BIT(1), /* REQUEST INCIDENT CKPT 98735500 * @Y17XAXF*/ 98736000 * 3 OCCKPNCP BIT(1), /* REQUEST 3705 CKPT @Y17XAXF*/ 98736500 * 3 OCCKPRST BIT(1), /* REQUEST 3705 RESTART RECORDS 98737000 * @Y17XAXF*/ 98737500 * 2 OCCKPENV BIT(1), /* ENVIRONMENT CKPT IS TO BE 98738000 * FORCED @Y17XAXF*/ 98738500 * 2 * BIT(4); /* RESERVED @Y17XAXF*/ 98739000 * 98739500 */* @Y17XAXF*/ 98740000 *DCL 1 OCICACTN DEF(OCMODNME), /*ICHNG ACTION WORD @Y17XAXF*/ 98742000 * 2 OCICDADR PTR(31), /*WORKAREA ADDRESS @Y17XAXF*/ 98744000 * 3 OCICTYPE FIXED(8), /*ICHNG MOVE TYPE @Y17XAXF*/ 98746000 * 3 OCICATST PTR(15) BDY(WORD,2), /*TEST FIELD TO DETERMINE 98748000 * PRESENCE OF WORKAREA ADDRESS @Y17XAXF*/ 98750000 * 3 OCICSW BIT(8), /*ACT/DEACT SWITCHES @Y17XAXF*/ 98752000 * 4 * BIT(7), /*RESERVED @Y17XAXF*/ 98754000 * 4 OCICINAC BIT(1); /*DEACTIVATE REQUEST @Y17XAXF*/ 98756000 *@SPACE (1); /*@Y17XAXF*/ 98758000 *DCL OCICSID FIXED(8) CONSTANT(0);/*ICHNG FOR SWITCH ID VERIFICATION 98760000 * @Y17XAXF*/ 98762000 *DCL OCICLES FIXED(8) CONSTANT(1);/*ICHNG FOR LEASED OR SWITCHED LINE 98764000 * WITH NO ID VERIFICATION @Y17XAXF*/ 98766000 *DCL OCICMUL FIXED(8) CONSTANT(2);/*ICHNG FOR MULTIPT LINE @Y17XAXF*/ 98768000 */* @Y17XAXF*/ 98770000 */* DSECT FOR NEG PREFIX @Y17XAXF*/ 98780000 */* @Y17XAXF*/ 98820000 * DECLARE /* @Y17XAXF*/ 98860000 * 1 IEDQOPCN BASED(ADDR(IEDQOPCE)-LENGTH(IEDQOPCN)), /* @Y17XAXF*/ 98880000 * 2 OCLDNME CHAR(8) BDY(WORD), /* LOAD MODULE @Y17XAXF*/ 98900000 * /* MISMATCH NAME @Y17XAXF*/ 98920000 * 3 OCLINTTE PTR(31), /* LINE TTE ADDR @Y17XAXF*/ 98940000 * /* (M6-MB) @Y17XAXF*/ 98960000 * 4 OCRESPCT FIXED(16), /* OUTSTAND RSP COUNT @Y17XAXF*/ 99020000 * 4 OCREQFLG BIT(8), /* OP SERV REQUEST FLG @Y17XAXF*/ 99060000 * 5 OCFLUSHZ BIT(1), /* Z,TP,FLUSH REQUEST FOR DEACT 99100000 * NCP @Y17XAXF*/ 99120000 * 5 * BIT(1), /* RESERVED @Y17XAXF*/ 99140000 * 5 * BIT(1), /* RESERVED @Y17XAXF*/ 99180000 * 5 OCADNCP BIT(1), /* NCP ACT/DEACT CMND @Y17XAXF*/ 99220000 * 5 OCPARTAL BIT(1), /* PARTIAL ACT FLAG @Y17XAXF*/ 99260000 * 5 OCDCARD BIT(1), /* DISCARD FLAG @Y17XAXF*/ 99300000 * 5 OCFORCE BIT(1), /* FORCE FLAG @Y17XAXF*/ 99340000 * 5 OCIDLE BIT(1), /* IDLE FLAG @Y17XAXF*/ 99380000 * 4 OCPREFLG BIT(8), /* GENERAL FLAG BYTE @Y17XAXF*/ 99420000 * 5 OCBFREQ BIT(1), /* CLEANUP BUFF REQ @Y17XAXF*/ 99421000 * 5 OCRSPSNT BIT(1), /* CLEANUP RESP SENT @Y17XAXF*/ 99422000 * 5 OCREPOST BIT(1), /* CLEANUP REPOST REQ @Y17XAXF*/ 99423000 * 5 OCTOTEP BIT(1), /* TOTE POST REQUEST @Y17XAXF*/ 99424000 * 5 * BIT(4), /* RESERVED @Y17XAXF*/ 99425000 * 3 * PTR(31); /* RESERVED @Y17XAXF*/ 99430000 *%OCPREFSZ='LENGTH(IEDQOPCN)'; /* LENGTH OF NEG PREF @Y17XAXF*/ 99500000 * /* @Y17XAXF*/ 99500500 */* @Y17XAXU*/ 99501000 */* OCSWITCH CONSTANTS @Y17XAXU*/ 99511000 */* @Y17XAXU*/ 99521000 *DCL OCBKUP BIT(8) CONSTANT('03'X); /* MODIFY 3705 AS AVAILABLE FOR 99531000 * BACKUP @Y17XAXF*/ 99541000 *DCL OCOFFTPE BIT(8) CONSTANT('05'X); /* VARY OFFTP E COMMAND 99551000 * @Y17XAXF*/ 99561000 *DCL OCOFFTPB BIT(8) CONSTANT('06'X); /* VARY OFFTP B COMMAND 99571000 * @Y17XAXF*/ 99581000 *DCL OCCHNLD BIT(8) CONSTANT('07'X); /* MODIFY CHANGE LOAD @Y17XAXF*/ 99591000 *DCL OCDMPC BIT(8) CONSTANT('0A'X); /* DUMP COMMAND TO MH @Y17XAXU*/ 99601000 *DCL OCONTPE BIT(8) CONSTANT('0A'X); /* VARY ONTP E COMMAND @Y17XAXF*/ 99611000 *DCL OCONTPB BIT(8) CONSTANT('0B'X); /* VARY ONTP B COMMAND @Y17XAXF*/ 99745200 *DCL OCACTLU BIT(8) CONSTANT('10'X); /* ACTLU REQUEST @Y17XAXU*/ 99746000 *DCL OCIPLC BIT(8) CONSTANT('11'X); /* IPL COMMAND TO MH @Y17XAXU*/ 99746500 *DCL OCSTPLNC BIT(8) CONSTANT('11'X); /* STOPLINE,C REQUEST @Y17XAXF*/ 99747000 *DCL OCSTPLNI BIT(8) CONSTANT('12'X); /* STOPLINE,I REQUEST @Y17XAXF*/ 99747500 *DCL OCSWBACK BIT(8) CONSTANT('16'X); /* MODFY 3705 BKUP NCP @Y17XAXF*/ 99748000 *DCL OCBHSET BIT(8) CONSTANT('1D'X); /* MODIFY BHSET @Y17XAXF*/ 99748100 *DCL OCSESSNL BIT(8) CONSTANT('1E'X); /* CHANGE SESSION LIM @Y17XAXF*/ 99749000 *DCL OCTRANL BIT(8) CONSTANT('1F'X); /* CHANGE TRANS LIMIT @Y17XAXF*/ 99749500 *DCL OCDACTLU BIT(8) CONSTANT('20'X); /* DACTLU REQUEST @Y17XAXU*/ 99750000 *DCL OCMIDMSG BIT(8) CONSTANT('20'X); /* REMOVE FROM MIDDLE MESSAGE 99750200 * CONDITION @Y17XAXF*/ 99750400 *DCL OCSWDEVB BIT(8) CONSTANT('20'X); /* SWITCH DEV BACK-UP @Y17XAXF*/ 99750600 *DCL OCSWDEVP BIT(8) CONSTANT('21'X); /* SWITCH DEV PRIMARY @Y17XAXF*/ 99751200 *DCL OCTOFA BIT(8) CONSTANT('22'X); /* REDRIVE INC RECORD @Y17XAXU*/ 99752000 *DCL OCACTVTE BIT(8) CONSTANT('22'X); /* ACTIVATE @Y17XAXF*/ 99752600 *DCL OCDEACTE BIT(8) CONSTANT('23'X); /* DEACTIVATE @Y17XAXF*/ 99753200 *DCL OCTOFC BIT(8) CONSTANT('23'X); /* REQUEST DEACT @Y17XAXU*/ 99754000 *DCL OCSWAP BIT(8) CONSTANT('24'X); /* SWAP DEVICE ID @Y17XAXF*/ 99754300 *DCL OCCHANGE BIT(8) CONSTANT('25'X); /* CHANGE DIAL MODE @Y17XAXF*/ 99754600 *DCL OCOFTPEM BIT(8) CONSTANT('25'X); /* VARY OFFTP EM COMMAND 99754700 * @Y17XAXF*/ 99754800 *DCL OCSSELCT BIT(8) CONSTANT('26'X); /* SELECT MODEM SPEED @Y17XAXF*/ 99754900 *DCL OCOFTPBM BIT(8) CONSTANT('26'X); /* VARY OFFTP BM COMMAND 99755000 * @Y17XAXF*/ 99755100 *DCL OCSWLNME BIT(8) CONSTANT('27'X); /* SWIT LINE MOD TO EP @Y17XAXF*/ 99755200 *DCL OCSWLNMN BIT(8) CONSTANT('28'X); /* SWIT LNE MOD TO NCP @Y17XAXF*/ 99755500 *DCL OCPARO BIT(8) CONSTANT('29'X); /* CMND PARSED IN LCB @Y17XAXU*/ 99756000 *DCL OCIOTR BIT(8) CONSTANT('2A'X); /* START/STOP TRACEING @Y17XAXU*/ 99756600 * /* OF LINES IN ERROR @Y17XAXU*/ 99757200 *DCL OCLCBIN BIT(8) CONSTANT('30'X); /* LCB INPUT TO MH @Y17XAXU*/ 99758000 *DCL OCACTPU BIT(8) CONSTANT('30'X); /* ACTPU (NON-NCP) REQ @Y17XAXU*/ 99760000 *DCL OCFRCDAC BIT(8) CONSTANT('37'X); /* FORCE DEACT REQUEST @Y17XAXU*/ 99760100 *DCL OCCRINOP BIT(8) CONSTANT('38'X); /* CLENUP REQ FOR INOP @Y17XAXU*/ 99760200 *DCL OCCUREQ BIT(8) CONSTANT('39'X); /* CLEANUP REQUEST @Y17XAXU*/ 99760300 *DCL OCDACTPU BIT(8) CONSTANT('40'X); /* DACTPU(NON-NCP) REQ @Y17XAXU*/ 99760500 *DCL OCACTLK BIT(8) CONSTANT('50'X); /* ACTLINK REQUEST @Y17XAXU*/ 99764000 *DCL OCDACTLK BIT(8) CONSTANT('60'X); /* DACTLINK REQUEST @Y17XAXU*/ 99766000 *DCL OCACTNCP BIT(8) CONSTANT('70'X); /* ACTPU(NCP) REQUEST @Y17XAXU*/ 99768000 *DCL OCCHGSL BIT(8) CONSTANT('80'X); /* CHNG SESS LIMIT REQ @Y17XAXU*/ 99770000 *DCL OCSCANON BIT(8) CONSTANT('80'X); /* SCAN HAS BEEN DONE @Y17XAXF*/ 99771000 *DCL OCCHGNP BIT(8) CONSTANT('90'X); /* CHNG NEG POLL LIMIT @Y17XAXU*/ 99772000 *DCL OCCHGSSP BIT(8) CONSTANT('A0'X); /* CHNG SERV SEEK PAUS @Y17XAXU*/ 99774000 *DCL OCCHGTL BIT(8) CONSTANT('B0'X); /* CHNG XMISS LIM REQ @Y17XAXU*/ 99776000 *DCL OCSWEP BIT(8) CONSTANT('C0'X); /* SW TO EP MODE REQ @Y17XAXU*/ 99778000 *DCL OCSWNCP BIT(8) CONSTANT('D0'X); /* SW TO NCP MODE REQ @Y17XAXU*/ 99780000 *DCL OCVARON BIT(8) CONSTANT('D1'X); /* INTER VARY ON REQ @Y17XAXF*/ 99780600 *DCL OCVAROFF BIT(8) CONSTANT('D2'X); /* INTER VARY OFF REQ @Y17XAXF*/ 99781200 *DCL OCSETTD BIT(8) CONSTANT('E0'X); /* SET TIME/DATE REQ @Y17XAXU*/ 99782000 *DCL OCOPYDSM BIT(8) CONSTANT('E1'X); /* COPY DEST. MODE @Y17XAXF*/ 99782400 *DCL OCRPLDSM BIT(8) CONSTANT('E2'X); /* REPLACE DEST MODE @Y17XAXF*/ 99782800 *DCL OCOPYDSI BIT(8) CONSTANT('E3'X); /* COPY DEV SESS INFO @Y17XAXF*/ 99783200 *DCL OCRPLDSI BIT(8) CONSTANT('E4'X); /* REPL DEV SESS INFO @Y17XAXF*/ 99783600 *DCL OCSUBT BIT(8) CONSTANT('E5'X); /* START OR STOP @Y17XAXF*/ 99783700 * /* SUBTASK TRACE @Y17XAXF*/ 99783800 *DCL OCSESTRM BIT(8) CONSTANT('E6'X); /* SESS TERM REQ TO/FROM LUS */ 99784000 * /* @Y17XAXF*/ 99784200 *DCL OCBUF BIT(8) CONSTANT('E7'X); /* CHANGE BUFFTR OPT. @OY19405*/ 99784382 *DCL OCDISCON BIT(8) CONSTANT('F0'X); /* DISCONNECT REQUEST @Y17XAXU*/ 99784400 *DCL OCRSTART BIT(8) CONSTANT('F1'X); /* RSTART RECORD REQ @Y17XAXU*/ 99784600 *DCL OCSND1 BIT(8) CONSTANT('F2'X); /* RESTART COMMAND @Y17XAXU*/ 99788000 *DCL OCSND2 BIT(8) CONSTANT('F3'X); /* RESTART COMMAND @Y17XAXU*/ 99790000 *DCL OCSND3 BIT(8) CONSTANT('F4'X); /* RESTART COMMAND @Y17XAXU*/ 99792000 *DCL OCSND4 BIT(8) CONSTANT('F5'X); /* RESTART COMMAND @Y17XAXU*/ 99794000 *DCL OCSND5 BIT(8) CONSTANT('F6'X); /* RESTART COMMAND @Y17XAXU*/ 99796000 *DCL OCSND6 BIT(8) CONSTANT('F7'X); /* RESTART COMMAND @Y17XAXU*/ 99798000 *DCL OCSND7 BIT(8) CONSTANT('F8'X); /* RESTART COMMAND @Y17XAXU*/ 99800000 *DCL OCSND8 BIT(8) CONSTANT('F9'X); /* RESTART COMMAND @Y17XAXU*/ 99802000 */* @Y17XAXU*/ 99820000 */* OCALSTAT CONSTANTS @Y17XAXU*/ 99840000 */* @Y17XAXU*/ 99860000 *DECLARE OCALL BIT(8) CONSTANT('03'X); /* ALL STRT/STOPPED @Y17XAXU*/ 99880000 *DECLARE OCUNSET BIT(8) CONSTANT('00'X); /* STATUS IS UNSET @Y17XAXU*/ 99900000 */* */ 99902000 */* CONSTANTS FOR OCSCAN */ 99904000 */* */ 99906000 *DCL OCDDADDR BIT(8) CONSTANT('A0'X); /* VALUE TO INDICATE TO DCB 99908000 * LOOK UP THAT REG 11 POINTS 99910000 * TO EITHER A DDNAME OR CHANNEL 99912000 * ADDRESS */ 99914000 */* @Y17XAXF*/ 99914300 */* OCPARM RETURN CODE CONSTANTS @Y17XAXF*/ 99914600 */* @Y17XAXF*/ 99914900 *DCL OCRCGNEG FIXED(15) CONSTANT(2); /* GOOD RETURN CODE @Y17XAXF*/ 99915200 * /* WITH SENSE DATA @Y17XAXF*/ 99915500 *DCL OCRCGPOS FIXED(15) CONSTANT(1); /* GOOD RETURN CODE @Y17XAXF*/ 99915800 * /* WITH NO SENSE @Y17XAXF*/ 99916100 * /* DATA @Y17XAXF*/ 99916400 *DCL OCRCBNEG FIXED(15) CONSTANT(-1); /* BAD RETURN CODE @Y17XAXF*/ 99916700 * /* WITH SENSE DATA @Y17XAXF*/ 99917000 *DCL OCRCBSIB FIXED(15) CONSTANT(-2); /* BAD RETURN CODE @Y17XAXF*/ 99917300 * /* FROM UNSUCCESS- @Y17XAXF*/ 99917600 * /* FUL SIB REQUEST @Y17XAXF*/ 99917900 *DCL OCRCBPOS FIXED(15) CONSTANT(-3); /* BAD RETURN CODE @Y17XAXF*/ 99918200 * /* WITH NO SENSE @Y17XAXF*/ 99918500 * /* DATA @Y17XAXF*/ 99918800 *DCL OCRCBMOD FIXED(15) CONSTANT(-4); /* BAD RETURN CODE @Y17XAXF*/ 99919000 * /* FROM INEQUALITY @Y17XAXF*/ 99919200 * /* OF LOAD MODULE @Y17XAXF*/ 99919400 * /* NAMES @Y17XAXF*/ 99919600