* %GOTO PLSXNPL; /* 00100010 MACRO 00200010 TXNPLD 00300010 .*A000000-999999 @Y17XAXG 00400010 * ... CHANGE NEGATIVE POLL LIMIT ... 00500010 IEDXNPLD DSECT 00600010 XNPLCMD DS 0XL6 CHANGE NEGATIVE POLL LIMIT 00700010 XNPLCODE DS 0XL3 COMMAND CODE 00800010 XNPLNETS DS XL1 NETWORK SERVICES 00900010 XNPLPRE DS XL1 PRE SNA CODE 01000010 XNPLREQ DS XL1 NEG POLL LIM REQUEST 01100010 XNPLADDR DS XL2 NETWORK ADDRESS OF PU 01200010 XNPLVAL DS XL1 NEW VALUE FOR NEG POLL LIMIT 01300010 MEND */ 01400010 *%PLSXNPL : ; 01500010 *DECLARE 01600010 * 1 IEDXNPLD BASED(XNPLPTR), 01700010 * 2 XNPLCMD, /* CHANGE NEGATIVE POLL 01800010 * LIMIT COMMAND */ 01900010 * 3 XNPLCODE CHAR(3), /* COMMAND CODE */ 02000010 * 4 XNPLNETS CHAR(1), /* NETWORK SERVICES */ 02100010 * 4 XNPLPRE CHAR(1), /* PRE SNA CODE */ 02200010 * 4 XNPLREQ CHAR(1), /* NEG POLL LIM REQUEST */ 02300010 * 3 XNPLADDR CHAR(2), /* NETWORK ADDRESS OF PU */ 02400010 * 3 XNPLVAL CHAR(1); /* NEW VAL FOR NEG POLL LIM */ 02500010 */* */ 02600010