* %GOTO PLSOCTR; /* BILINGUAL HEADER 01000010 MACRO 02000010 TOCTRD 03000010 .*A000000-999999 @Y17XAXF 04000010 IEDOCTR DSECT 05000010 * 06000010 * IPL/DUMP TRAILOR TO OPCE 07000010 * 08000010 OCTROPCE DS A . OPCE POINTER 09000010 OCTRDCB DS A . DCB POINTER 10000010 OCTRLCB DS A . LCB POINTER 11000010 DS XL1 . RESERVED 12000010 OCTRSW DS XL1 . SWITCHING FLAGS 13000010 OCTROUT EQU X'80' . LOOP CONTROL 14000010 OCTRNOS EQU X'40' . NO SENSE REQUIRED 15000010 OCTRBLST EQU X'20' . IPL NO SENSE 15500010 OCTRFA EQU X'10' EXIT TO ACTIVATE REQD @YM05689 16000010 OCTRINMF EQU X'08' . FROM MF 17000010 * EQU X'04'-X'01' . RESERVED 18000010 OCTRRTE DS XL1 ROUTE FLAG 19000010 OCTRFC EQU X'80' . EXIT TO IGCFC10D 20000010 OCTRMD EQU X'40' . EXIT TO IGCMD10D 21000010 OCTRMP EQU X'20' . EXIT TO IGCMP10D 22000010 OCTRC0 EQU X'10' . EXIT TO IGCC010D 23000010 OCTR09 EQU X'08' . EXIT TO IGC0910D 24000010 OCTR07 EQU X'04' . EXIT TO IGC0710D 25000010 OCTR00 EQU X'02' EXIT TO IGC0010D 26000010 OCTR06 EQU X'01' . EXIT TO IGC0610D 27000010 OCTRRTN DS XL1 . RETURN FLAG 28000010 OCTRIP EQU X'80' . IN PROGRESS 29000010 OCTRCH EQU X'40' . CHAINED OR ATTACHED 30000010 * EQU X'20'-X'10' . RESERVED 31000010 OCTRERO EQU X'08' . DUMP ERROR 32000010 OCTRERI EQU X'04' . IPL ERROR 33000010 * EQU X'02'-X'01' . RESERVED 34000010 OCTRTTE DS A . TTE POINTER 35000010 OCTRDVD DS A . DEV DEPENDENT FLD PTR 36000010 OCTRUCB DS A . UCB POINTER 37000010 OCTRADR DS A . I/O RETURN ADDR 38000010 OCTRSAVE DS A . RETURN ADDRESS FIELD 38500010 OCTRLEN EQU *-IEDOCTR . LEN OF TRAILER 39000010 MEND 40000010 */ 41000010 *%PLSOCTR:; 42000010 * DECLARE 43000010 * 1 IEDOCTR BASED, 44000010 */* */ 45000010 */* IPL/DUMP TRAILER TO OPCE */ 46000010 */* */ 47000010 * 2 OCTROPCE PTR(31), /* OPCE POINTER */ 48000010 * 2 OCTRDCB PTR(31), /* DCB POINTER */ 49000010 * 2 OCTRLCB PTR(31), /* LCB POINTER */ 50000010 * 2 * PTR(8), /* RESERVED */ 51000010 * 2 OCTRSW BIT(8), /* SWITCHING FLAGS */ 52000010 * 3 OCTROUT BIT(1), /* LOOP CONTROL */ 53000010 * 3 OCTRNOS BIT(1), /* NO SENSE REQUIRED */ 54000010 * 3 OCTRBLST BIT(1), /* IPL NO SENSE */ 54500010 * 3 OCTRFA BIT(1), /* EXIT TO ACTIVATE REQD @YM05689*/ 55000010 * 3 OCTRINMF BIT(1), /* FROM MF */ 56000010 * 3 * BIT(3), /* RESERVED */ 57000010 * 2 OCTRRTE PTR(8), /* ROUTE FLAG */ 58000010 * 3 OCTRFC BIT(1), /* EXIT TO IGCFC10D */ 58100010 * 3 OCTRMD BIT(1), /* EXIT TO IGCMD10D */ 58200010 * 3 OCTRMP BIT(1), /* EXIT TO IGCMP10D */ 58300010 * 3 OCTRC0 BIT(1), /* EXIT TO IGCC010D */ 58400010 * 3 OCTR09 BIT(1), /* EXIT TO IGC0910D */ 58500010 * 3 OCTR07 BIT(1), /* EXIT TO IGC0710D */ 58600010 * 3 OCTR00 BIT(1), /* EXIT TO IGC0010D */ 58700010 * 3 OCTR06 BIT(1), /* EXIT TO IGC0610D */ 58800010 * 2 OCTRRTN BIT(8), /* RETURN FLAG */ 59000010 * 3 OCTRIP BIT(1), /* IN PROGRESS */ 60000010 * 3 OCTRCH BIT(1), /* CHAINED OR ATTAHCED */ 61000010 * 3 * BIT(2), /* RESERVED */ 62000010 * 3 OCTRERD BIT(1), /* DUMP ERROR */ 63000010 * 3 OCTRERI BIT(1), /* IPL ERROR */ 64000010 * 3 * BIT(2), /* RESERVED */ 65000010 * 2 OCTRTTE PTR(31), /* TTE POINTER */ 66000010 * 2 OCTRDVD PTR(31), /* DEV DEPENDENT FLD PTR */ 67000010 * 2 OCTRUCB PTR(31), /* UCB POINTER */ 68000010 * 2 OCTRADR PTR(31), /* I/O RETURN ADDR */ 69000010 * 2 OCTRSAVE PTR(31); /* RETURN ADDRESS */ 69500010 *%OCTRLENL='LENGTH(IEDOCTR)'; /* LEN OF TRAILER */ 70000010