* %GOTO PLSXEXT; /* BILINGUAL HEADER 02000010 MACRO 04000010 TXEXTD 06000010 .*A000000-999999 @Y17XAXV 07000010 * ... EXECUTE TEST ... 08000010 IEDXEXTD DSECT 10000010 XEXTCODE DS 0XL3 COMMAND CODE (FID1) 12000010 XEXTNETS DS XL1 NETWORK SERVICES 14000010 XEXTMAIN DS XL1 MAINTENANCE SERVICES 16000010 XEXTREQ DS XL1 EXECUTE TEST REQUEST 18000010 XEXTADDR DS XL2 NETWORK ADDRESS 20000010 XEXTPBDU DS 0XL4 PARTIAL BASIC DATA UNIT 22000010 XEXTCMD0 DS XL1 FID0 COMMAND 24000010 XEXTMODF DS XL1 MODIFIER 26000010 XEXTSYSR DS XL1 SYSTEM RESPONSE 28000010 XEXTEXTR DS XL1 EXTENDED RESPONSE 30000010 XEXTEND EQU * END OF EXECUTE TEST COMMAND 32000010 XEXTTEXT EQU * INTERPRETIVE COMMANDS TEXT 34000010 MEND */ 36000010 *%PLSXEXT:; 38000010 */* */ 40000010 */* ... EXECUTE TEST ... */ 42000010 */* */ 44000010 * DCL 46000010 * 1 IEDXEXTD BASED(IEDXEXTP), 48000010 * 2 XEXTCODE CHAR(3), /*COMMAND CODE (FID1)*/ 50000010 * 3 XEXTNETS CHAR(1), /*NETWORK SERVICES*/ 52000010 * 3 XEXTMAIN CHAR(1), /*MAINTENANCE SERVICES*/ 54000010 * 3 XEXTREQ CHAR(1), /*EXECUTE TEST REQUEST*/ 56000010 * 2 XEXTADDR BIT(16), /*NETWORK ADDRESS*/ 58000010 * 2 XEXTPBDU CHAR(4), /*PARTIAL BASIC DATA UNIT*/ 60000010 * 3 XEXTCMD0 CHAR(1), /*FID0 COMMAND*/ 62000010 * 3 XEXTMODF CHAR(1), /*MODIFIER*/ 64000010 * 3 XEXTSYSR CHAR(1), /*SYSTEM RESPONSE*/ 66000010 * 3 XEXTEXTR CHAR(1), /*EXTENDED RESPONSE*/ 68000010 * 2 XEXTEND CHAR(0); /*END OF EXECUTE TEST COMMAND*/ 70000010 * DCL 72000010 * XEXTTEXT CHAR(*) DEF(XEXTEND);/*INTERPRETIVE COMMANDS TEXT*/ 74000010