* %GOTO PLSOPAVT; /* 00500022 MACRO 01000022 TOPCAVTD 02000022 .*A-000000-999999 @X31X8X0 02100008 .*C070000,160000,738000,766000 X03039 02300008 .*D768000 X03039 02600008 .*C070000,738000 @Z30X8XE 02600108 .*A665000 @XA09783 02700100 .*A170000,360000,410000,826000,838000 @Y17XAXU 02700200 .*C027001,200000,360000,400000-405000,780000,826000,838000 @Y17XAXU 02720200 .*C930000 @Y17XAXU 02740200 .*D962000 @Y17XAXU 02760200 SPACE 03000022 IEDQOPCD DSECT 04000022 SPACE 05000022 * OPERATOR CONTROL ADDRESS VECTOR TABLE 06000022 * VERSION DATE JUNE 7, 1974 @Z30X8XE 07000008 SPACE 08000022 OPCDOUBL DS D . WORK SPACE FOR TRANSIENTS 09000022 SPACE 10000022 OPCAVTPT DS A . ADDRESS OT TCAM AVT 11000022 OPCCOPCE DS A . ADDRESS OF CURRENT ELEMENT (OPCE) 12000022 OPCDCBLK DS A . ADDRESS OF DCB, RLN, ADDRESS LOOK-UP 13000022 OPCOPTLK DS A . ADDRESS OF OPTION FIELD LOOK-UP CODE 14000022 OPCTOFLK DS A . ADDRESS TO GET TNT OFFSET,TERM ENTRY 15000022 OPCIPLAD DS A . ADDRESS OF IPL DCB @Y17XAXU 15500000 DS A . UNUSED X03039 16000008 OPCLCB DS A . ADDRESS OF LCB SET UP ROUTINE 17000022 OPCPGCK DS A . IN-PROG CHECK AND SET RTN @Y17XAXU 17200000 OPCTNTEA DS A . FIND TNT ROUTINE @Y17XAXU 17400000 OPCPSTWT DS A . TPOST-TWAIT RTN @Y17XAXU 17600000 * A(POSTWAIT) @Y17XAXU 17700000 SPACE 18000022 OPCTRMWA DS F . WORKAREA FOR TERM ENTRY ADDRESS 19000022 OPCSAVE DS 18F . OP CTL SAVE AREA @Y17XAXU 20000000 SPACE 21000022 * DO NOT INSERT CARDS OR MOVE CARDS BETWEEN THESE COMMENTS * 22000022 OPCQCBAD DS A . ADDRESS OF OPC QCB 23000022 OPCRSAVE DS 2F . BASE AND RETURN SAVEAREA (IGC0010D) 24000022 OPCWORK DS A . ADDRESS OF RESIDENT WORKAREA 25000022 OPCWRKSZ DS H . SIZE OF RESIDENT WORKAREA 26000022 OPCFLAG1 DS X . FLAG BYTE FOR TRANSIENT USE 27000022 OPCFLAG2 DS X . FLAG BYTE FOR TRANSIENT USE 28000022 OPCBFERB DS 4F . BUFFER REQUEST ERB 29000022 * DO NOT INSERT CARDS OR MOVE CARDS BETWEEN THESE COMMENTS * 30000022 SPACE 31000022 OPCCKERB DS 4F . CHECKPOINT REQUEST ERB 32000022 OPCAQCTL DS 0F . SVC 102 PARAMETER LIST @Y17XAXF 33000000 OPCAQWD1 DS 0F . LIST WORD 1 @Y17XAXF 33100000 OPCAQREQ DS CL1 . SVC REQUEST CODE @Y17XAXF 33200000 OPCAQFST DS AL3 . FIRST ADDR OR INDEX @Y17XAXF 33300000 OPCAQWD2 DS 0F . LIST WORD 2 @Y17XAXF 33400000 OPCAQRQ2 DS CL1 . ACTION CODE @Y17XAXF 33500000 OPCAQSEC DS AL3 . SECOND ADDR OR INDEX @Y17XAXF 33600000 OPCAQWD3 DS 0F . LIST WORD 3 @Y17XAXF 33700000 OPCAQRQ3 DS CL1 . ACTION CODE @Y17XAXF 33800000 OPCAQLST DS AL3 . LAST ADDR OR INDEX @Y17XAXF 33900000 OPCWAIT DS 3F . OP CONTROL INPUT WAIT LIST 34000022 OPCXCTL DS 2A . LIST FORM OF XCTL, USED BY TRANSIENT 35000022 OPCLDNME DS 0CL8 . XCTL MODULE NAME @Y17XAXU 36000000 DS CL3'IGC' . MODULE NAME PREFIX @Y17XAXU 36200000 OPCMODID DS CL2 . MODULE ID @Y17XAXU 36400000 DS CL3'10D' . MODULE NAME SUFFIX @Y17XAXU 36600000 SPACE 37000022 OPCWAITC DS F . QCW FOR CHECKPOINT WAIT QUEUE 38000022 OPCWAITL DS F . QCW FOR LCB WAIT LIST 39000022 OPCWAITN DS F . FID0 RESP WAIT CHAIN @Y17XAXU 40000000 OPCWAITO DS F . OUTPUT QUEUE QCW @Y17XAXU 40500000 OPCWAITP DS A . SSCP OPCE Q FOR ACTPU'S @Y17XAXU 41000000 OPCWAITR DS F . QCW FOR RESOURCE WAIT QUEUE 42000022 OPCWAITA DS F . QCW FOR ACT/DEACT WAIT CHN @Y17XAXU 42100000 OPCCKPTF DS F . FIRST OPCE FOR CHECKPT @Y17XAXU 42200000 OPCCKPTL DS F . LAST OPCE FOR CHECKPT @Y17XAXU 42300000 OPCHORT DS F . CONHORT SEARCH ROUTINE @Y17XAXU 42400000 OPCHORTG DS F . COHORTG SEARCH ROUTINE @Y17XAXU 42500000 OPCSCNC DS F . FID1 EXPEDITE FLOW OR 42600000 * TS PROFILE 1 WAIT CHAIN @Y17XAXU 42700000 OPCFMDFC DS F . ALL OTHER FID1'S 42800000 * WAIT CHAIN @Y17XAXU 42900000 SPACE 43000022 OPCNEXT DS A . ADDRESS OF ELEMENT NOW CURRENT 44000022 OPCGETBF DS A . ADDRESS OF BUFFER REQUEST ROUTINE 45000022 OPCFREBF DS A . ADDRESS OF BUFFER UNIT FREE ROUTINE 46000022 SPACE 47000022 OPCBFREQ DS H . NO. OF UNITS NEEDED BY WAIT LIST 48000022 OPCHA8 DS H . HALF WORD SET TO EIGHT 49000022 OPCCLNTS DS X . T&S SWITCH FOR QUEUE SEARCH @YM07310 50000000 OPCIPLCT DS X . COUNT OF 3705'S BEING IPLED @YM08447 50500000 OPCAVBUF DS H . NO. OF UNITS IN OPC FREE POOL 51000022 SPACE 52000022 OPCBFIRS DS F . ADDRESS OF FIRST UNIT IN FREE POOL 53000022 OPCBFEND DS F . CURRENT UNIT END (IGC0110D) 54000022 SPACE 55000022 OPCSPEC DS X . FLAGS SET ONLY BY IEDQCA 56000022 SPACE 57000022 * BIT DEFINITIONS FOR OPCSPEC FIELD * 58000022 OPCALTD EQU X'80' . ALTERNATE DESTINATION SPECIFIED 59000022 OPCPART EQU X'40' . PARTIAL UNIT REQUEST 60000022 OPCRSTRT EQU X'20' . RESTART IN PROGRESS 61000022 OPCFRMCA EQU X'10' . INITIAL ENTRY (TO 00) S22024 61300022 * FROM IEDQCA S22024 61600022 SPACE 62000022 OPCOQSW DS X . SWITCH, INDICATES OUTPUT BUSY (FF) 63000022 OPCHNEND DS 2H . EXECUTED TEST FOR END OF BUFFER UNIT 64000022 OPCSTCBS DS X . SWITCH TO INDICATE STCB BUSY (FF) 65000022 OPCEND DS X . TEST BYTE FOR END OF BUFFER 66000022 OPCCKCIB DS A ADDR OF CMD CHECK RTN @YA04391 66500061 OPPOLSTP DS A . ADDRESS OF POLLSTOP @XA09783 66700000 OPCRQCNT DS H . FID1 SC/NC COUNTER/SEQ @Y17XAXU 66800000 OPCADGOT DS H . NO OF BUFF UNITS A/D USING @Y17XAXF 66810000 OPCWRKSP DS 7F . INTERNAL SAVE AREA @Y17XAXF 66830000 OPCBUFWT DS A . ANCHOR FOR REDRIVE OPCE'S @Y17XAXF 66834000 * WAITING ON BUFFER UNITS @Y17XAXF 66838000 OPCDECR DS A . ADDR OF ADGOT DECREMENT RTN @Y17XAXF 66842000 * A(DECRCT) @Y17XAXF 66846000 OPCAPXTL DS A (OPCXCTL2) ADDR TO XCTL LIST FOR APPL @Y17XAXF 66850000 * PROGRAM USAGE @Y17XAXF 66854000 OPCTOTCK DS A . @ TOTE HIERARCHY SCAN RTN @Y17XAXF 66857000 OPCWAITV DS A . VARY WAIT CHAIN FOR 3705 66858000 * RESOURCES @Y17XAXF 66859000 * 66860000 OPCPWCOB DS 0CL12 . OPERATOR CONTROL QCB @YM08403 66866000 OPCPWQCB DS 0F . @YM08403 66872000 OPCPWVTO DS XL1 . VTO @YM08403 66878000 OPCPWCHN DS AL3 . CHAIN OF ELEMENTS @YM08403 66884000 OPCPWECB DS 0F . ECB @YM08403 66890000 OPCPWCCC DS XL1 . COMPLETION CODE @YM08403 66896000 DS AL3 . UNUSED @YM08403 66902000 DS XL1 . UNUSED @YM08486 66908000 DS AL3 . NEXT STCB @YM08486 66914000 OPCSCOFF EQU X'04' . ENTRY OFFSET IN OPCDCBLK @Y17XAXU 66920000 DS 140F . RESIDENT WORKAREA @Y17XAXF 66924000 DS XL8 . XCTL FIELD @Y17XAXF 66928000 DS XL152 . LCB FIELD @Y17XAXF 66932000 DS XL84 . SCB FIELD @Y17XAXF 66936000 OPCDSRWT DS F . DISPLAY STORE QUEUE @ZM47883 66938010 OPCBOTTM EQU * END OF MAPPING @Y17XAXU 66940000 OPCLEN EQU OPCBOTTM-IEDQOPCD . SIZE OF MAPPING @Y17XAXU 66960000 SPACE 2 67000022 MEND , */ 68000022 *%PLSOPAVT:; 68200022 */* @Y17XAXF*/ 68220000 */* COMMANDS ENTERED FROM CONSOLE OR TERMINAL @Y17XAXF*/ 68240000 */* @Y17XAXF*/ 68260000 *DCL OCVARY BIT(8) CONSTANT('28'X); /*VARY COMMAND @Y17XAXF*/ 68280000 *DCL OCHALT BIT(8) CONSTANT('3C'X); /*HALT COMMAND @Y17XAXF*/ 68300000 *DCL OCMODIFY BIT(8) CONSTANT('44'X); /*MODIFY COMMAND @Y17XAXF*/ 68320000 *DCL OCDSPLAY BIT(8) CONSTANT('68'X); /*DISPLAY COMMAND @Y17XAXF*/ 68340000 *DCL OCHOLD BIT(8) CONSTANT('6C'X); /*HOLD COMMAND @Y17XAXF*/ 68360000 *DCL OCRLEASE BIT(8) CONSTANT('70'X); /*RELEASE COMMAND @Y17XAXF*/ 68380000 */* @Y17XAXF*/ 68400000 */* TOTE OR MPP COMMANDS @Y17XAXF*/ 68420000 */* @Y17XAXF*/ 68440000 *DCL OCCLOSEQ BIT(8) CONSTANT('10'X); /* CLOSEDOWN - QUICK @Y17XAXF*/ 68460000 *DCL OCCLOSEF BIT(8) CONSTANT('11'X); /* CLOSEDOWN - FLUSH @Y17XAXF*/ 68480000 *DCL OCSTARTL BIT(8) CONSTANT('40'X); /* START LINE CMD @Y17XAXF*/ 68500000 *DCL OCSTOPL BIT(8) CONSTANT('41'X); /* STOP LINE COMMAND @Y17XAXF*/ 68520000 *DCL OCSTARTB BIT(8) CONSTANT('45'X); /* START TERM (BOTH) @Y17XAXF*/ 68540000 *DCL OCSTARTT BIT(8) CONSTANT('46'X); /* TOTE START TERM @Y17XAXF*/ 68560000 *DCL OCSTOPB BIT(8) CONSTANT('47'X); /* STOP TERM (BOTH) @Y17XAXF*/ 68580000 *DCL OCDEACT BIT(8) CONSTANT('48'X); /* TOTE DEACTIVATE @Y17XAXF*/ 68600000 *DCL OCICHNG BIT(8) CONSTANT('49'X); /* ICHNG COMMAND @Y17XAXF*/ 68620000 *DCL OCTCHNG BIT(8) CONSTANT('56'X); /* TCHNG COMMAND @Y17XAXF*/ 68630000 *DCL OCMRLSE BIT(8) CONSTANT('87'X); /* MRELEASE COMMAND @Y17XAXF*/ 68640000 *DCL OCHOLDT BIT(8) CONSTANT('88'X); /* TOTE HOLD COMMAND @Y17XAXF*/ 68660000 *DECLARE 73000022 * 1 IEDQOPCD BDY(DWORD) BASED(ROPCAVT), 73200022 * 73400022 */* OPERATOR CONTROL ADDRESS VECTOR TABLE */ 73600022 */* VERSION DATE JUNE 7, 1974 Y30X8XE*/ 73800008 * 74000022 * 2 OPCDOUBL CHAR(8), /* . WORK SPACE FOR 74200022 * TRANSIENTS */ 74400022 * 74600022 * 2 OPCAVTPT PTR(31), /* . ADDRESS OT TCAM AVT */ 74800022 * 2 OPCCOPCE PTR(31), /* . ADDRESS OF CURRENT 75000022 * ELEMENT (OPCE) */ 75200022 * 2 OPCDCBLK PTR(31), /* . ADDRESS OF DCB, RLN, 75400022 * ADDRESS LOOK-UP */ 75600022 * 2 OPCOPTLK PTR(31), /* . ADDRESS OF OPTION 75800022 * FIELD LOOK-UP CODE */ 76000022 * 2 OPCTOFLK PTR(31), /* . ADDRESS TO GET TNT 76200022 * OFFSET,TERM ENTRY */ 76400022 * 2 OPCIPLAD PTR(31), /* ADDR OF IPL DCB @Y17XAXU*/ 76500000 * 2 * PTR(31), /* . UNUSED X03039*/ 76600008 * 2 OPCLCB PTR(31), /* . ADDRESS OF LCB SET UP 77000022 * ROUTINE */ 77200022 * 2 OPCPGCK PTR(31), /* . IN-PROG CHECK AND 77230000 * SET ROUTINE @Y17XAXU*/ 77260000 * 2 OPCTNTEA PTR(31), /* . FIND TNT RTN @Y17XAXU*/ 77290000 * 2 OPCPSTWT PTR(31), /* TPOST-TWAIT RTN 77320000 * ROUTINE @Y17XAXF*/ 77330000 * 2 OPCTRMWA PTR(31), /* . WORKAREA FOR TERM 77600022 * ENTRY ADDRESS */ 77800022 * 2 OPCSAVE (18) FIXED(31), /* OP CTL SAVE AREA @Y17XAXU*/ 78000000 * 78200022 */* DO NOT INSERT CARDS OR MOVE CARDS BETWEEN THESE COMMENTS */ 78400022 * 2 OPCQCBAD PTR(31), /* . ADDRESS OF OPC QCB */ 78600022 * 2 OPCRSAVE (2) PTR(31), /* . BASE AND RETURN 78800022 * SAVEAREA (IGC0010D) */ 79000022 * 2 OPCWORK PTR(31), /* . ADDRESS OF RESIDENT 79200022 * WORKAREA */ 79400022 * 2 OPCWRKSZ FIXED(15), /* . SIZE OF RESIDENT 79600022 * WORKAREA */ 79800022 * 2 OPCFLAG1 CHAR(1), /* . FLAG BYTE FOR 80000022 * TRANSIENT USE */ 80200022 * 2 OPCFLAG2 CHAR(1), /* . FLAG BYTE FOR 80400022 * TRANSIENT USE */ 80600022 * 2 OPCBFERB (4) FIXED(31), /* . BUFFER REQUEST ERB */ 80800022 */* DO NOT INSERT CARDS OR MOVE CARDS BETWEEN THESE COMMENTS */ 81000022 * 81200022 * 2 OPCCKERB (4) FIXED(31), /* . CHECKPOINT REQUEST ERB */ 81400022 * 2 OPCAQCTL (3) FIXED(31), /* SVC 102 PARAMETER LIST @Y17XAXF*/ 81500000 * 2 OPCWAIT (3) FIXED(31), /* . OP CONTROL INPUT WAIT 81800022 * LIST */ 82000022 * 2 OPCXCTL (2) PTR(31), /* . LIST FORM OF XCTL, 82200022 * USED BY TRANSIENT */ 82400022 * 2 OPCLDNME CHAR(8), /* . XCTL MOD NAME @Y17XAXU*/ 82600000 * 3 * CHAR(3), /* . MODULE NAME 82630000 * PREFIX @Y17XAXU*/ 82660000 * 3 OPCMODID CHAR(2), /* . MODULE ID @Y17XAXU*/ 82690000 * 3 * CHAR(3), /* . MODULE NAME 82720000 * SUFFIX @Y17XAXU*/ 82750000 * 82800022 * 2 OPCWAITC PTR(31), /* . QCW FOR CHECKPOINT 83000022 * WAIT QUEUE */ 83200022 * 2 OPCWAITL PTR(31), /* . QCW FOR LCB WAIT LIST */ 83400022 * 2 OPCWAITN PTR(31), /* . FID0 RESPONSE 83600000 * WAIT CHAIN @Y17XAXU*/ 83800000 * 2 OPCWAITO PTR(31), /* . OUTPUT QUEUE QCW */ 84000022 * 2 OPCWAITP PTR(31), /* SSCP OPCE Q FOR 84060000 * ACTPU'S @Y17XAXU*/ 84120000 * 2 OPCWAITR PTR(31), /* . QCW FOR RESOURCE WAIT 84200022 * QUEUE */ 84400022 * 2 OPCWAITA PTR(31), /* . QCW FOR ACT/DEACT 84410000 * WAIT CHAIN @Y17XAXU*/ 84415000 * 2 OPCCKPTF PTR(31), /* . FIRST OPCE FOR 84430000 * CHECKPOINT @Y17XAXU*/ 84440000 * 2 OPCCKPTL PTR(31), /* . LAST OPCE FOR 84450000 * CHECKPOINT @Y17XAXU*/ 84460000 * 2 OPCHORT PTR(31), /* . COHORT SEARCH 84470000 * ROUTINE @Y17XAXU*/ 84480000 * 2 OPCHORTG PTR(31), /* . COHORTG SEARCH 84490000 * ROUTINE @Y17XAXU*/ 84500000 * 2 OPCSCNC PTR(31), /* . FID1 EXPEDITE FLOW 84510000 * OR TS PROFILE 1 84520000 * WAIT CHAIN @Y17XAXU*/ 84530000 * 2 OPCFMDFC PTR(31), /* . ALL OTHER FID1'S 84540000 WAIT CHAIN @Y17XAXU*/ 84550000 * 84600022 * 2 OPCNEXT PTR(31), /* . ADDRESS OF ELEMENT NOW 84800022 * CURRENT */ 85000022 * 2 OPCGETBF PTR(31), /* . ADDRESS OF BUFFER 85200022 * REQUEST ROUTINE */ 85400022 * 2 OPCFREBF PTR(31), /* . ADDRESS OF BUFFER UNIT 85600022 * FREE ROUTINE */ 85800022 * 86000022 * 2 OPCBFREQ FIXED(15), /* . NO. OF UNITS NEEDED BY 86200022 * WAIT LIST */ 86400022 * 2 OPCHA8 FIXED(15), /* . HALF WORD SET TO EIGHT */ 86600022 * 2 OPCCLNTS BIT(8), /* TEST-&-SET SWITCH FOR */ 86800000 * /* QUEUE SEARCH @YM07310*/ 86900000 * 2 OPCIPLCT FIXED(8), /* COUNT OF 3705'S BEING IPLED 87000000 * @YM08447*/ 87100000 * 2 OPCAVBUF FIXED(15), /* . NO. OF UNITS IN OPC 87200022 * FREE POOL */ 87400022 * 87600022 * 2 OPCBFIRS PTR(31), /* . ADDRESS OF FIRST UNIT 87800022 * IN FREE POOL */ 88000022 * 2 OPCBFEND PTR(31), /* . CURRENT UNIT END 88200022 * (IGC0110D) */ 88400022 * 88600022 * 2 OPCSPEC CHAR(1), /* . FLAGS SET ONLY BY 88800022 * IEDQCA */ 89000022 * 89200022 */* BIT DEFINITIONS FOR OPCSPEC FIELD */ 89400022 * 3 OPCALTD BIT(1), /* . ALTERNATE DESTINATION 89600022 * SPECIFIED */ 89800022 * 3 OPCPART BIT(1), /* . PARTIAL UNIT REQUEST */ 90000022 * 3 OPCRSTRT BIT(1), /* . RESTART IN PROGRESS */ 90200022 * 3 OPCFRMCA BIT(1), /* INITIAL ENTRY (TO 00) 90400022 * FROM IEDQCA S22024*/ 90600000 * 3 * BIT(1), /* RESERVED */ 90800022 * 3 * BIT(1), /* RESERVED */ 91000022 * 3 * BIT(1), /* RESERVED */ 91200022 * 3 * BIT(1), /* RESERVED */ 91400022 * 91600022 * 2 OPCOQSW CHAR(1), /* . SWITCH, INDICATES 91800022 * OUTPUT BUSY (FF) */ 92000022 * 2 OPCHNEND (2) FIXED(15), /* . EXECUTED TEST FOR END 92200022 * OF BUFFER UNIT */ 92400022 * 2 OPCSTCBS CHAR(1), /* . SWITCH TO INDICATE 92600022 * STCB BUSY (FF) */ 92800022 * 2 OPCEND CHAR(1), /* TEST BYTE FOR END OF @Y17XAXU 93000000 * BUFFER */ 93200022 * 2 OPCCKCIB PTR(31), /*ADDR OF CMD REMOV@YA04391*/ 96200000 * 2 OPPOLSTP PTR(31), /* . ADDR OF POLSTOP 97200000 * @YA04391*/ 97800000 * 2 OPCRQCNT FIXED(15), /* FID1 SC/NC CTR/SEQ 98400000 * NUMBER @Y17XAXU*/ 99000000 * 2 OPCADGOT FIXED(16), /* NO OF BUFF UNITS @Y17XAXF*/ 99030000 * /* A/D USING @Y17XAXF*/ 99032000 * 2 OPCWRKSP(7) PTR(31), /* INTERNAL SAV AREA @Y17XAXF*/ 99032300 * 2 OPCBUFWT PTR(31), /* ANCHOR FOR REDRIVE OPCE'S */ 99032600 * /* WAITING ON BUFFER UNITS */ 99032900 * /* @Y17XAXF*/ 99033200 * 2 OPCDECR PTR(31), /* ADDR OF ADGOT DECREMENT */ 99033500 * /* ROUTINE @Y17XAXF*/ 99033800 * 2 OPCAPXTL PTR(31), /* ADDR TO XCTL LIST FOR */ 99034100 * /* APPL PGM USAGE @Y17XAXF*/ 99034400 * 2 OPCTOTCK PTR(31), /* ADDR OF TOTE HIERARCHY */ 99034700 * /* SCAN ROUTINE @Y17XAXF*/ 99035000 * 2 OPCWAITV PTR(31), /* VARY WAIT CHAIN FOR 99035200 * 3705 RESOURCES @Y17XAXF*/ 99035500 * 2 OPCPWCOB BDY(WORD), /* OPERATOR CNTL QCB @YM08403*/ 99035700 * 3 OPCPWQCB, /* @YM08403*/ 99036000 * 4 OPCPWVTO CHAR(1), /* VTO @YM08403*/ 99036500 * 4 OPCPWCHN PTR(24), /* CHAIN OF ELEMENTS @YM08403*/ 99036700 * 3 OPCPWECB, /* ECB @YM08403*/ 99037000 * 4 OPCPWCCC CHAR(1), /* COMPLETION CODE @YM08403*/ 99037200 * 4 * PTR(24), /* UNUSED @YM08403*/ 99037500 * 3 * CHAR(1), /* UNUSED @YM08486*/ 99037700 * 3 * PTR(24), /* NEXT STCB @YM08486*/ 99038000 * 2 * CHAR(560), /* RESIDENT WORKAREA @Y17XAXF*/ 99039200 * 2 * CHAR(8), /* XCTL FIELD @Y17XAXF*/ 99039400 * 2 * CHAR(152), /* LCB FIELD @Y17XAXF*/ 99039600 * 2 * CHAR(84), /* SCB FIELD @Y17XAXF*/ 99039800 * 2 OPCDSRWT FIXED(31), /* DSPLY STORE QUEUE @ZM47883*/ 99039910 * 2 OPCBOTTM CHAR(0); /* END OF MAPPING @Y17XAXU*/ 99040000 * %OPCLEN='LENGTH(IEDQOPCD)'; /* SIZE OF MAPPING @Y17XAXU*/ 99060000 */* CONSTANTS */ 99100000 * 99200000 *DCL OPCSCOFF BIT(8) CONSTANT('04'X); /* ENTRY OFFSET IN 99300000 * OPCDCBLK ROUTINE @Y17XAXU*/ 99400000 * DECLARE 99440000 * 1 OPCAQWD DEF(OPCAQCTL), 99480000 * 2 OPCAQWD1 FIXED(31), /* LIST WORD 1 @Y17XAXF*/ 99520000 * 3 OPCAQREQ CHAR(1), /* SVC REQUEST CODE @Y17XAXF*/ 99560000 * 3 OPCAQFST PTR(24), /* FIRST ADDR OR INDEX @Y17XAXF*/ 99600000 * 2 OPCAQWD2 FIXED(31), /* LIST WORD 2 @Y17XAXF*/ 99640000 * 3 OPCAQRQ2 CHAR(1), /* ACTION CODE @Y17XAXF*/ 99680000 * 3 OPCAQSEC PTR(24), /* SECOND ADDR OR INDEX @Y17XAXF*/ 99720000 * 2 OPCAQWD3 FIXED(31), /* LIST WORD 3 @Y17XAXF*/ 99760000 * 3 OPCAQRQ3 CHAR(1), /* ACTION CODE @Y17XAXF*/ 99800000 * 3 OPCAQLST PTR(24); /* LAST ADDR OR INDEX @Y17XAXF*/ 99840000