|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 17018 (0x427a)
Types: s3xseg
Names: »S$ESMG«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ESMG«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: 5704SC2CP RELEASE 03 * 00030000
.* * 00040000
.* NAME: $ESMG * 00050000
.* * 00060000
.* FUNCTION GENERATE THE TEXT FOR THE COMMAND PROCESSOR MESSAGES * 00070000
.* TO THE SYSTEM OPERATOR. * 00080000
.* * 00090000
.* INPUT OPERANDS: * 00100000
.* * N- TWO CHARACTER IDENTIFIER OF THE PROGRAM IN * 00110000
.* WHICH THE MACRO IS USED. * 00120000
.* * POS-LAST IDENTIFIES THIS AS THE LAST MESSAGE THAT IS * 00130000
.* EXPANDED IN THIS PROGRAM. * 00140000
.* * MGN- THREE CHARACTER MESSAGE IDENTIFIER. * 00150000
.********************************************************************** 00160000
&LABEL $ESMG &N-,&POS-,&MGN-,&VAR1-,&VAR2-,&VAR3-,&VAR4-,&VAR5- 00170000
TEXT 00180000
AIF (T'&LABEL EQ 'O').NOLAB 00190000
&LABEL EQU * 00200000
.NOLAB ANOP 00210000
&N&MGN DC AL1(&N&MGN.L) LENGTH OF TEXT OF THIS MESSAGE 00220000
&N&MGN.B DC CL4'&MGN' MESSAGE IDENTIFIER 00230000
AIF (&MGN NE '000').M010 00240000
DC CL15'CCP STARTED' 00250000
.M010 AIF (&MGN NE '010').M022 00260000
&N&VAR1 DC 8XL1'0' FILENAME/UNIT RECORD AREA 00270000
DC CL20': UNABLE TO OPEN' 00280000
.M022 AIF (&MGN EQ '022').M093 00290000
AIF (&MGN NE '093').M061 00300000
.M093 ANOP 00310000
DC CL32'REJECTED-PGM-REQUEST PENDING/' 00320000
DC CL08'ACTIVE' 00330000
.M061 AIF (&MGN NE '061').M066 00340000
DC CL32'CONSOLE NOT AVAILABLE FOR' 00350000
DC CL08'REQUESTS' 00360000
.M066 AIF (&MGN NE '066').M310 00370000
DC CL32'I/O ERROR ON PCT FILE--PROGNAME' 00380000
DC CL04' IS ' 00390000
&N.&VAR1 DC 6XL1'0' 00400000
DC CL5' ' 00410000
.M310 AIF (&MGN NE '310').M312 00410600
DC CL32'LINE CLOSED' 00411200
.M312 AIF (&MGN NE '312').M313 00411800
DC CL32'LINE OPEN-READY TO BE VARIED' 00412400
DC CL06'ONLINE' 00413000
.M313 AIF (&MGN NE '313').M314 00413600
DC CL32'CLOSE FAILS' 00414200
.M314 AIF (&MGN NE '314').M315 00414800
DC CL32'CLOSE FAILS-LINE NOT VARIED OFF ' 00415400
DC CL29'OR CCP DOES NOT HAVE THE LINE' 00416000
.M315 AIF (&MGN NE '315').M316 00416600
DC CL32'OPEN FAILS-CCP OR ANOTHER' 00417200
DC CL30'PARTITION ALREADY HAS THE LINE' 00417800
.M316 AIF (&MGN NE '316').M318 00418400
DC CL32'OPEN FAILS' 00419000
.M318 AIF (&MGN NE '318').M319 00420000
DC CL27'TERMINAL ALREADY ONLINE' 00430000
.M319 AIF (&MGN NE '319').M320 00440000
DC CL32'TERMINAL STILL BEING VARIED OFF' 00450000
DC CL04'LINE' 00460000
.M320 AIF (&MGN NE '320').M321 00470000
DC CL1'''' 00480000
&N.&VAR1 DC 2XL1'0' 00490000
DC CL20''' VARIED ONLINE AS ''' 00500000
&N.&VAR2 DC 6XL1'0' 00510000
DC CL4'''' 00520000
.M321 AIF (&MGN NE '321').M324 00530000
DC CL31'TERMINAL BEING VARIED OFFLINE' 00540000
.M324 AIF (&MGN NE '324').M325 00550000
DC CL16'SYNTAX ERROR' 00560000
.M325 AIF (&MGN NE '325').M326 00570000
DC CL32'SYMBOLIC NAME NOT ASSIGNED TO' 00580000
DC CL08'TERMINAL' 00590000
.M326 AIF (&MGN NE '326').M327 00600000
DC CL25'UNKNOWN SYMBOLIC NAME' 00610000
.M327 AIF (&MGN NE '327').M328 00620000
DC CL23'INVALID TERMINAL ID' 00630000
.M328 AIF (&MGN NE '328').M330 00633000
DC CL15'CAN''T VARY PORT' 00636000
.M330 AIF (&MGN NE '330').M331 00640000
DC CL30'NOT CURRENT SYMBOLIC NAME' 00650000
.M331 AIF (&MGN NE '331').M332 00660000
DC CL26'CAN''T VARY SUB-TERMINAL' 00670000
.M332 AIF (&MGN NE '332').M333 00680000
DC CL22'CAN''T VARY CONSOLE' 00690000
.M333 AIF (&MGN NE '333').M334 00700000
DC CL20'TP LINE NOT OPEN' 00710000
.M334 AIF (&MGN NE '334').M335 00720000
DC CL31'TERMINAL HAS NO SYMBOLIC NAME' 00730000
.M335 AIF (&MGN NE '335').M336 00740000
DC CL28'TERMINAL IN ONLINE TEST' 00750000
.M336 AIF (&MGN NE '336').M338 00760000
DC CL32'TERMINAL BELONGS TO USER' 00770000
DC CL08'PROGRAM' 00780000
.M338 AIF (&MGN NE '338').M340 00790000
DC CL30'TERMINAL ALREADY OFFLINE' 00800000
.M340 AIF (&MGN NE '340').M341 00810000
DC CL16'MESSAGE SENT' 00820000
.M341 AIF (&MGN NE '341').M342 00830000
DC CL18'SYNTAX ERROR' 00840000
.M342 AIF (&MGN NE '342').M343 00850000
DC CL24'INVALID TERMINAL ID' 00860000
.M343 AIF (&MGN NE '343').M344 00870000
DC CL24'UNKNOWN SYMBOLIC NAME' 00880000
.M344 AIF (&MGN NE '344').M345 00890000
DC CL20'NAME UNASSIGNED' 00900000
.M345 AIF (&MGN NE '345').M346 00910000
DC CL28'NOT A COMMAND TERMINAL' 00920000
.M346 AIF (&MGN NE '346').M347 00930000
DC CL20'TERMINAL OFFLINE' 00940000
.M347 AIF (&MGN NE '347').M348 00950000
DC CL32'TERMINAL BELONGS TO USER' 00960000
DC CL08'PROGRAM' 00970000
.M348 AIF (&MGN NE '348').M349 00980000
DC CL20'MESSAGE TOO LONG' 00990000
.M349 AIF (&MGN NE '349').M350 00993000
DC CL18'TERMINAL IS A PORT' 00996000
.M350 AIF (&MGN NE '350').M352 01000000
DC CL32'TERMINAL IN ERROR RECOVERY' 01010000
.M352 AIF (&MGN NE '352').M353 01020000
DC CL20'TERMINAL IN TEST' 01030000
.M353 AIF (&MGN NE '353').M360 01040000
DC CL20'LINE DISCONNECTED' 01050000
.M360 AIF (&MGN NE '360').M361 01060000
DC CL20'NAME ASSIGNED' 01070000
.M361 AIF (&MGN NE '361').M362 01080000
DC CL20'SYNTAX ERROR' 01090000
.M362 AIF (&MGN NE '362').M363 01100000
DC CL30'INVALID/MISSING OPERAND' 01110000
.M363 AIF (&MGN NE '363').M364 01120000
DC CL20'NAME NOT KNOWN' 01130000
.M364 AIF (&MGN NE '364').M365 01140000
DC CL35'CAN''T ASSIGN SUB-TERMINAL NAME' 01150000
.M365 AIF (&MGN NE '365').M366 01160000
DC CL25'CAN''T ASSIGN CONSOLE' 01170000
.M366 AIF (&MGN NE '366').M367 01180000
DC CL25'NAME CURRENTLY ACTIVE' 01190000
.M367 AIF (&MGN NE '367').M368 01200000
DC CL20'NAME IN USE' 01210000
.M368 AIF (&MGN NE '368').M369 01213000
DC CL17'CAN''T ASSIGN PORT' 01216000
.M369 AIF (&MGN NE '369').M370 01220000
DC CL25'INVALID TERMINAL ID' 01230000
.M370 AIF (&MGN NE '370').M372 01240000
DC CL25'NAME UNAVAILABLE' 01250000
.M372 AIF (&MGN NE '372').M373 01260000
DC CL32'PHYSICAL CHARACTERISTICS DON''T' 01270000
DC CL08'MATCH' 01280000
.M373 AIF (&MGN NE '373').M374 01290000
DC CL25'INVALID PHONE INDEX #' 01300000
.M374 AIF (&MGN NE '374').M375 01310000
DC CL32'PHONE INDEX # INVALID FOR' 01320000
DC CL20'NONSWITCHED TERMINAL' 01330000
.M375 AIF (&MGN NE '375').M378 01340000
DC CL15'NAME ASSIGNED ''' 01350000
&N.&VAR1 DC 2XL1'00' 01360000
DC CL15''' NAME IS NOW ' 01370000
&N.&VAR2 DC 6XL1'00' 01380000
DC CL6' ' 01390000
.M378 AIF (&MGN NE '378').M379 01400000
DC CL15'START TEST ON ''' 01410000
&N.&VAR1 DC 2XL1'00' TERMINAL ID 01420000
DC CL1'''' 01430000
&N.&VAR2 DC 6XL1'00' '--LOOP' OR '---ALL' CONSTANT 01440000
.M379 AIF (&MGN NE '379').M381 01450000
DC CL19'STOP LOOP TEST ON ''' 01460000
&N.&VAR1 DC 2XL1'00' 01470000
DC CL09'''' 01480000
.M381 AIF (&MGN NE '381').M382 01490000
DC CL30'TEST REQ. ALREADY ACTIVE' 01500000
.M382 AIF (&MGN NE '382').M383 01510000
DC CL20'STOP INVALID NOW' 01520000
.M383 AIF (&MGN NE '383').M384 01530000
DC CL25'INVALID TEST NUMBER' 01540000
.M384 AIF (&MGN NE '384').M385 01550000
DC CL25'INVALID COUNT VALUE' 01560000
.M385 AIF (&MGN NE '385').M386 01570000
DC CL30'TERMINAL NOT OUTPUT CAPABLE' 01580000
.M386 AIF (&MGN NE '386').M387 01590000
DC CL20'TERMINAL OFFLINE' 01600000
.M387 AIF (&MGN NE '387').M388 01610000
DC CL25'TERMINAL IN DATA MODE' 01620000
.M388 AIF (&MGN NE '388').M389 01630000
DC CL30'SYMBOLIC NAME NOT FOUND' 01640000
.M389 AIF (&MGN NE '389').M390 01650000
DC CL25'INVALID TERMINAL ID' 01660000
.M390 AIF (&MGN NE '390').M391 01670000
DC CL01'''' 01680000
&N.&VAR1 DC 2XL1'00' 01690000
DC CL22''' ONLINE TEST ENDED' 01700000
.M391 AIF (&MGN NE '391').M392 01710000
DC CL20'SYNTAX ERROR' 01720000
.M392 AIF (&MGN NE '392').M393 01730000
DC CL01'''' 01740000
&N.&VAR1 DC 2XL1'00' 01750000
DC CL28''' ONLINE TEST NOT STARTED' 01760000
.M393 AIF (&MGN NE '393').M395 01770000
DC CL30'CANNOT START OLT, LINE CLOSED' 01780000
.M395 AIF (&MGN NE '395').M396 01790000
DC CL30'SWITCHED LINE NOT CONNECTED' 01800000
.M396 AIF (&MGN NE '396').M397 01810000
DC CL30'SELECTED TERM. NOT A CPU' 01820000
.M397 AIF (&MGN NE '397').M398 01830000
DC CL20'NAME UNASSIGNED' 01840000
.M398 AIF (&MGN NE '398').M400 01843000
DC CL20'CAN''T TEST PORT' 01846000
.M400 AIF (&MGN NE '400').M401 01850000
DC CL20'ERP ACCEPTED' 01860000
.M401 AIF (&MGN NE '401').M402 01870000
DC CL20'SYNTAX ERROR' 01880000
.M402 AIF (&MGN NE '402').M403 01890000
DC CL25'INVALID TERMINAL ID' 01900000
.M403 AIF (&MGN NE '403').M405 01910000
DC CL31'TERMINAL NOT IN ERROR RECOVERY' 01920000
.M405 AIF (&MGN NE '405').M407 01921000
DC CL14'CAN''T ERP PORT' 01922000
.M407 AIF (&MGN NE '407').M408 01923000
DC CL28'AUTOMATIC ERP NOT SUPPORTED' 01924000
.M408 AIF (&MGN NE '408').M410 01925000
DC CL2'OK' 01926000
.M410 AIF (&MGN NE '410').M411 01930000
&N.&VAR1 DC CL06' INPUT' 01940000
DC CL11' ERROR ON ''' 01950000
&N.&VAR2 DC 2XL1'00' 01960000
DC CL04'''' 01970000
.M411 AIF (&MGN NE '411').M413 01980000
&N.&VAR1 DC CL06' INPUT' 01990000
DC CL07' ERROR-' 02000000
&N.&VAR2 DC 2XL1'00' 02010000
DC CL05' ON ''' 02020000
&N.&VAR3 DC 2XL1'00' 02030000
DC CL05'''' 02040000
.M413 AIF (&MGN NE '413').M414 02050000
DC CL13'OUTPUT TO ''' 02060000
&N.&VAR1 DC 2XL1'00' 02070000
DC CL17''' IN CCP ERROR' 02080000
DC CL16'RECOVERY IGNORED' 02090000
.M414 AIF (&MGN NE '414').M415 02100000
DC CL01'''' 02110000
&N.&VAR1 DC 2XL1'00' 02120000
DC CL22''' SIGNED OFF BY CCP AS ' 02130000
&N.&VAR2 DC 6XL1'00' 02140000
.M415 AIF (&MGN NE '415').M416 02150000
DC CL14'SWITCHED LINE ' 02160000
&N.&VAR1 DC 2XL1'00' 02170000
DC CL16' DISCONNECTED - ' 02180000
DC CL12'I/O PURGED' 02190000
.M416 AIF (&MGN NE '416').M417 02200000
DC CL01'''' 02210000
&N.&VAR1 DC 2XL1'00' 02220000
DC CL27''' IN CCP ERROR RECOVERY' 02230000
.M417 AIF (&MGN NE '417').M418 02240000
DC CL01'''' 02250000
&N.&VAR1 DC 2XL1'00' 02260000
DC CL29''' IN CCP ERROR RECOVERY-' 02270000
DC CL08'BYPASSED' 02280000
.M418 AIF (&MGN NE '418').M419 02290000
DC CL09'TP LINE ''' 02300000
&N.&VAR1 DC 2XL1'00' LINE ID 02310000
DC CL14''' CLOSED' 02320000
.M419 AIF (&MGN NE '419').M420 02330000
DC CL01'''' 02340000
&N.&VAR1 DC 2XL1'00' 02350000
DC CL22''' VARIED OFFLINE' 02360000
.M420 AIF (&MGN NE '420').M421 02370000
DC CL20'TRACE OK' 02380000
.M421 AIF (&MGN NE '421').M423 02390000
DC CL25'TRACE NOT IN SYSTEM' 02400000
.M423 AIF (&MGN NE '423').M424 02400400
DC CL12'TRACE NOT ON' 02400800
.M424 AIF (&MGN NE '424').M425 02401200
DC CL20'CCP TRACE ALREADY ON' 02401600
.M425 AIF (&MGN NE '425').M426 02402000
DC CL17'$TRACE ALREADY ON' 02402400
.M426 AIF (&MGN NE '426').M427 02402800
DC CL13'NO TRACE FILE' 02403200
.M427 AIF (&MGN NE '427').M428 02403600
DC CL23'TRACE PROGRAM NOT FOUND' 02404000
.M428 AIF (&MGN NE '428').M429 02404400
DC CL38'INSUFFICIENT STORAGE FOR TRACE REQUEST' 02404800
.M429 AIF (&MGN NE '429').M430 02405200
DC CL27'DISK ERROR ON $CCPDUMP FILE' 02405600
.M430 AIF (&MGN NE '430').M431 02406000
DC CL8'TRACE ON' 02406400
.M431 AIF (&MGN NE '431').M432 02406800
DC CL9'TRACE OFF' 02407200
.M432 AIF (&MGN NE '432').M433 02407600
DC CL13'DISK TRACE ON' 02408000
.M433 AIF (&MGN NE '433').M434 02408400
DC CL14'DISK TRACE OFF' 02408800
.M434 AIF (&MGN NE '434').M440 02409200
DC CL17'$CCPDD IS RUNNING' 02409600
.M440 AIF (&MGN NE '440').M441 02410000
DC CL08'OK' 02420000
.M441 AIF (&MGN NE '441').M442 02430000
DC CL18'INVALID OPERAND' 02440000
.M442 AIF (&MGN NE '442').M443 02450000
DC CL31'INVALID TASK-ID + PROGRAM NAME' 02460000
.M443 AIF (&MGN NE '443').M444 02470000
DC CL26'TASK ALREADY SUSPENDED' 02480000
.M444 AIF (&MGN NE '444').M445 02490000
DC CL24'CAN NOT SUSPEND NOW' 02500000
.M445 AIF (&MGN NE '445').M460 02503000
DC CL22'DISK ERROR READING PCT' 02506000
.M460 AIF (&MGN NE '460').M462 02510000
DC CL08'OK' 02520000
.M462 AIF (&MGN NE '462').M463 02530000
DC CL26'COMMANDS NOT SUSPENDED' 02540000
.M463 AIF (&MGN NE '463').M464 02550000
DC CL18'INVALID TASK ID' 02560000
.M464 AIF (&MGN NE '464').M465 02570000
DC CL31'INIT REJECTED, USERS IN EFFECT' 02580000
.M465 AIF (&MGN NE '465').M466 02590000
DC CL23'INVALID PROGRAM NAME' 02600000
.M466 AIF (&MGN NE '466').M467 02610000
DC CL30'SUSPEND USERS NOT IN EFFECT' 02620000
.M467 AIF (&MGN NE '467').M480 02630000
DC CL29'SUSPEND INIT NOT IN EFFECT' 02640000
.M480 AIF (&MGN NE '480').M483 02650000
DC CL15'CANCEL OK' 02660000
.M483 AIF (&MGN NE '483').M484 02670000
DC CL5'TASK ' 02680000
&N.&VAR1 DC XL1'00' TASK ID 02690000
DC CL16' IS NOT PROGRAM ' 02700000
&N.&VAR2 DC 6XL1'00' PROGRAM NAME 02710000
DC CL3' ' 02720000
.M484 AIF (&MGN NE '484').M486 02730000
DC CL31'CAN''T CANCEL $ PROGRAM' 02740000
.M486 AIF (&MGN NE '486').M487 02750000
DC CL18'TASK NOT ACTIVE' 02760000
.M487 AIF (&MGN NE '487').M488 02770000
DC CL31'CAN''T CANCEL PGM IN ALLOCATION' 02780000
.M488 AIF (&MGN NE '488').M490 02783000
DC CL17'CAN''T CANCEL NOW' 02786000
.M490 AIF (&MGN NE '490').M500 02787000
DC CL32'UNABLE TO SHUTDOWN OR CANCEL ' 02788000
DC CL31'WHILE RUNNING $CCPAS OR $CCPAL' 02789000
.M500 AIF (&MGN NE '500').M501 02790000
DC CL20'SHUTDOWN ACCEPTED' 02800000
.M501 AIF (&MGN NE '501').M502 02810000
DC CL30'PRIOR SHUTDOWN REQUESTED' 02820000
.M502 AIF (&MGN NE '502').M503 02830000
DC CL25'SHUTDOWN STARTED' 02840000
.M503 AIF (&MGN NE '503').M504 02850000
DC CL31'CCP SHUTDOWN COMPLETED' 02860000
.M504 AIF (&MGN EQ '504').M505 02870000
AIF (&MGN NE '505').M507 02880000
.M505 ANOP 02890000
DC CL32'DISK ERROR OCCURRED WHILE' 02900000
DC CL14'READING PCT''S' 02910000
.M507 AIF (&MGN NE '507').M508 02920000
DC CL32'ERROR OCCURRED WHILE CLOSING' 02930000
DC CL05'FILE' 02940000
&N.&VAR1 DC 8XL1'00' 02950000
DC CL5' ' 02960000
.M508 AIF (&MGN NE '508').M509 02970000
DC CL32'SHUTDOWN REJECTED - LOOPING TEST' 02980000
DC CL05' ON ''' 02990000
&N.&VAR1 DC 2XL1'00' 03000000
DC CL1'''' 03010000
.M509 AIF (&MGN NE '509').M510 03011000
DC CL26'SHUTDOWN PENDING- ENTERED' 03012000
SHTIME DC CL5' : ' 03013000
.M510 AIF (&MGN NE '510').M511 03014000
DC CL38'$CC5CL NOT FOUND- NO DISK FILES CLOSED' 03015000
.M511 AIF (&MGN NE '511').M512 03016000
DC CL33'SHUTDOWN REJECTED - PORT ACTIVITY' 03017000
.M512 AIF (&MGN NE '512').M520 03018000
DC CL16'$CC4AM NOT FOUND' 03019000
.M520 AIF (&MGN NE '520').M521 03020000
DC CL1'''' 03030000
&N.&VAR1 DC 2XL1'00' TERMINAL ID 03040000
DC CL13''' SIGNED OFF ' 03050000
&N.&VAR2 DC 4XL1'00' 'HOLD' OR 'DROP' 03060000
DC CL12' NAME IS ' 03070000
&N.&VAR3 DC 6XL1'00' TERMINAL NAME 03080000
DC CL6' ' 03090000
.M521 AIF (&MGN NE '521').M522 03100000
DC CL1'''' 03110000
&N.&VAR1 DC 2XL1'00' 03120000
DC CL29''' RELEASED AND SIGNED OFF --' 03130000
DC CL08'NAME IS ' 03140000
&N.&VAR2 DC 6XL1'00' 03150000
DC CL6' ' 03160000
.M522 AIF (&MGN NE '522').M524 03170000
DC CL1'''' 03180000
&N.&VAR1 DC 2XL1'00' 03190000
DC CL14''' NAME IS NOW ' 03200000
&N.&VAR2 DC 6XL1'00' 03210000
DC CL6' ' 03220000
.M524 AIF (&MGN NE '524').M525 03230000
DC CL8'FOR PGM-' 03240000
&N.&VAR1 DC 8XL1'00' 03250000
DC CL16' (TASK-N): LINE' 03260000
DC CL15'(B/M) N DIAL #' 03270000
&N.&VAR2 DC 6XL1'00' 03280000
DC CL6' ' 03290000
.M525 AIF (&MGN NE '525').M527 03300000
DC CL8'FOR PGM-' 03310000
&N.&VAR1 DC 8XL1'00' 03320000
DC CL16' (TASK-N): LINE' 03330000
DC CL32'(M/B) N WAITING TO RECEIVE CALL' 03340000
DC CL6' ' 03350000
.M527 AIF (&MGN NE '527').M528 03360000
DC CL01'''' 03370000
&N.&VAR1 DC 2XL1'00' 03380000
DC CL10''' SIGN ON ' 03390000
&N.&VAR2 DC 7XL1'00' 03400000
DC CL6' ' 03410000
.M528 AIF (&MGN NE '528').M529 03420000
DC CL32'ERROR IN DATA FOR DFF AT' 03430000
DC CL09'POSITION ' 03440000
&N.&VAR1 DC 4XL1'00' 03450000
DC CL6' ' 03460000
.M529 AIF (&MGN NE '529').M533 03470000
DC CL18'TERMINAL RELEASE: ' 03480000
&N.&VAR1 DC 6XL1'00' 03490000
DC CL02'(''' 03500000
&N.&VAR2 DC 2XL1'00' 03510000
DC CL3''')' 03520000
.M533 AIF (&MGN NE '533').M534 03530000
DC CL32'POLL LOOP COUNT EXCEEDED ON BSCA' 03540000
DC CL05' LINE' 03550000
N.&VAR1 DC 1XL1'00' 03560000
DC CL6' ' 03570000
.M534 AIF (&MGN NE '534').M900 03580000
DC CL26'INVALID TEST REQUEST FOR''' 03590000
&N.&VAR1 DC 2XL1'00' 03600000
DC CL3'''' 03610000
.M900 AIF (&MGN NE '900').M999 03620000
DC CL06'FROM ''' 03630000
&N.&VAR1 DC 2XL1'00' 03640000
DC CL03''': ' 03650000
&N.&VAR2 DC 92XL1'00' 03660000
.M999 ANOP 03670000
&N&MGN.E EQU * 03680000
&N&MGN.L EQU &N&MGN.E-&N&MGN.B+3 03690000
AIF (&POS NE 'LAST').NOFF 03700000
DC XL1'FF' DELIMITER 03710000
.NOFF ANOP 03720000
MEND 03730000