* %GOTO PLSXSSP; /* 03000010 MACRO 06000010 TXSSPD 09000010 .*A000000-999999 @Y17XAXG 12000010 * ... CHANGE SERVICE SEEKING PAUSE ... 15000010 IEDXSSPD DSECT 18000010 XSSPCMD DS 0XL5 CHANGE SERVICE SEEKING PAUSE 21000010 * COMMAND 24000010 XSSPCODE DS 0XL3 COMMAND 27000010 XSSPNETS DS XL1 NETWORK SERVICES 30000010 XSSPPRE DS XL1 PRE SNA CODE 33000010 XSSPREQ DS XL1 SERV SEEK PAUSE REQUEST 36000010 XSSPADDR DS XL2 NETWORK ADDRESS OF PU 39000010 XSSPVAL DS XL1 VEW VALUE FOR SERV SEEK PAUSE 42000010 MEND */ 45000010 *%PLSXSSP : ; 48000010 *DECLARE 51000010 * 1 IEDXSSPD BASED(XSSPPTR), 54000010 * 2 XSSPCMD, /* CHANGE SERVICE SEEKING 57000010 * PAUSE COMMAND */ 60000010 * 3 XSSPCODE CHAR(3), /* COMMAND CODE */ 63000010 * 4 XSSPNETS CHAR(1), /* NETWORK SERVICES */ 66000010 * 4 XSSPPRE CHAR(1), /* PRE SNA CODE */ 69000010 * 4 XSSPREQ CHAR(1), /* SERV SEEK PAUSE REQUEST */ 72000010 * 3 XSSPADDR CHAR(2), /* NETWORK ADDRESS OF PU */ 75000010 * 3 XSSPVAL CHAR(1); /* NEW VAL FOR SERV SEEK PAU*/ 78000010 */* */ 81000010