|
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: 7366 (0x1cc6)
Types: s3xseg
Names: »S$ETMG«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$ETMG«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 3 * 00030000
.* * 00040000
.* NAME: $ETMG * 00050000
.* * 00060000
.* FUNCTION GENERATE THE TEXT FOR COMMAND PROCESSOR MESSAGES TO * 00070000
.* THE TERMINAL OPERATOR. * 00080000
.* * 00090000
.* INPUT OPERANDS: * 00100000
.* * N- TWO CHARACTER SUFFIX OF THE PROGRAM IN WHICH * 00110000
.* THIS MACRO IS USED. * 00120000
.* * POS-LAST THIS IS THE LAST OF THIS BLOCK OF MESSAGES * 00130000
.* EXPANDED IN THIS PROGRAM. * 00140000
.* * MGN- THREE CHARACTER MESSAGE IDENTIFIER. * 00150000
.********************************************************************** 00160000
&LABEL $ETMG &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) ONE BYTE MESSAGE LENGTH 00220000
&N&MGN.B DC CL4'&MGN' MESSAGE NUMBER PREFIX 00230000
.A01 AIF (&MGN NE 'A01').A02 00240000
DC CL25'SIGNED ON-PROCEED' 00250000
.A02 AIF (&MGN NE 'A02').A03 00260000
DC CL20'MESSAGE SENT' 00270000
.A03 AIF (&MGN NE 'A03').A04 00280000
DC CL25'Q STATUS - PROCEED' 00290000
.A04 AIF (&MGN NE 'A04').A05 00300000
DC CL25'NOQ STATUS-PROCEED' 00310000
.A05 AIF (&MGN NE 'A05').A06 00320000
DC CL25'ACCEPTED-PROCEED' 00330000
.A06 AIF (&MGN NE 'A06').A07 00340000
DC CL25'ACCEPTED-PROCEED' 00350000
.A07 AIF (&MGN NE 'A07').A08 00360000
DC CL31'ENTER /MSG, /RELEASE, OR /RUN' 00370000
.A08 AIF (&MGN NE 'A08').A09 00380000
DC CL20'RELEASED-PROCEED' 00390000
.A09 AIF (&MGN NE 'A09').A10 00400000
DC CL20'RESUME PROGRAM' 00410000
.A10 AIF (&MGN NE 'A10').A11 00420000
DC CL11'SIGNED OFF-' 00430000
&N.&VAR1 DC 4XL1'00' 'HOLD' OR 'DROP' 00440000
DC CL15' TERMINAL' 00450000
.A11 AIF (&MGN NE 'A11').A12 00460000
DC CL10'CLEAR' 00470000
.A12 AIF (&MGN NE 'A12').E01 00480000
DC CL20'PROCEED-CANCELLED' 00490000
.E01 AIF (&MGN NE 'E01').E02 00500000
DC CL18'INVALID SYNTAX' 00510000
.E02 AIF (&MGN NE 'E02').E03 00520000
DC CL18'OPERAND MISSING' 00530000
.E03 AIF (&MGN NE 'E03').E04 00540000
DC CL30'ALREADY SIGNED ON-PROCEED' 00550000
.E04 AIF (&MGN NE 'E04').E05 00560000
DC CL20'PASSWORD ERROR' 00570000
.E05 AIF (&MGN NE 'E05').E06 00580000
DC CL30'THAT COMMAND NOT VALID NOW' 00590000
.E06 AIF (&MGN NE 'E06').E07 00600000
DC CL20'MESSAGE TOO LONG' 00610000
.E07 AIF (&MGN NE 'E07').E08 00620000
DC CL28'THAT COMMAND NOT VALID NOW' 00630000
.E08 AIF (&MGN NE 'E08').E09 00640000
DC CL30'INVALID SIGN OFF OPTION' 00650000
.E09 AIF (&MGN NE 'E09').E10 00660000
DC CL18'NOT SIGNED ON' 00670000
.E10 AIF (&MGN NE 'E10').E15 00680000
DC CL30'THAT COMMAND NOT VALID NOW' 00690000
.E15 AIF (&MGN NE 'E15').E16 00700000
DC CL31'ENTER /FILE THEN PROG REQ' 00710000
.E16 AIF (&MGN NE 'E16').E17 00720000
DC CL30'THAT COMMAND NOT VALID NOW' 00730000
.E17 AIF (&MGN NE 'E17').E18 00740000
DC CL25'FILE NAME TOO LONG' 00750000
.E18 AIF (&MGN NE 'E18').E19 00760000
DC CL30'THAT COMMAND NOT VALID NOW' 00770000
.E19 AIF (&MGN NE 'E19').E20 00780000
DC CL20'INVALID SYNTAX' 00790000
.E20 AIF (&MGN NE 'E20').E21 00800000
DC CL9'FILENAME' 00810000
&N.&VAR1 DC 8XL1'0' 00820000
DC CL10' UNKNOWN' 00830000
.E21 AIF (&MGN NE 'E21').E22 00840000
DC CL31'THIS FILE COMBINATION NOT VALID' 00850000
.E22 AIF (&MGN NE 'E22').E23 00860000
DC CL30'THAT COMMAND NOT VALID NOW' 00870000
.E23 AIF (&MGN NE 'E23').E24 00880000
DC CL20'NAME TOO LONG' 00890000
.E24 AIF (&MGN NE 'E24').E25 00900000
DC CL25'UNKNOWN TERMINAL NAME' 00910000
.E25 AIF (&MGN NE 'E25').E28 00920000
DC CL30'UNASSIGNED TERMINAL NAME' 00930000
.E28 AIF (&MGN NE 'E28').E29 00940000
DC CL31'PROG NAME INVALID OR SUPPRESSED' 00950000
.E29 AIF (&MGN NE 'E29').E30 00960000
DC CL18'NOT SIGNED ON' 00970000
.E30 AIF (&MGN NE 'E30').E31 00980000
DC CL15'SHUTDOWN' 00990000
.E31 AIF (&MGN NE 'E31').E32 01000000
DC CL31'DATA EXCESSIVE OR NOT ALLOWED' 01010000
.E32 AIF (&MGN NE 'E32').E33 01012000
DC CL38'RUF INPUT WITH NON-RUF PROGRAM REQUEST' 01014000
.E33 AIF (&MGN NE 'E33').R01 01016000
DC CL39'RUF INPUT FOR AN ACTIVE NON-RUF PROGRAM' 01018000
.R01 AIF (&MGN NE 'R01').R02 01020000
DC CL30'COMMANDS SUSPENDED-WAIT' 01030000
.R02 AIF (&MGN NE 'R02').R03 01040000
DC CL31'COMMANDS RESUMED-REENTER' 01050000
.R03 AIF (&MGN NE 'R03').R04 01060000
DC CL31'REQUESTED PROG SUSPENDED' 01070000
.R04 AIF (&MGN NE 'R04').R05 01080000
DC CL28'REQUESTED PROG BUSY' 01090000
.R05 AIF (&MGN NE 'R05').R07 01100000
DC CL31'PROG NO LONGER AVAILABLE' 01110000
.R07 AIF (&MGN NE 'R07').R09 01120000
DC CL24'SYSTEM ERROR - RETRY' 01130000
.R09 AIF (&MGN NE 'R09').R10 01140000
DC CL31'UNIT RECORD DEVICE UNAVAILABLE' 01150000
.R10 AIF (&MGN NE 'R10').R13 01160000
DC CL31'LOGICAL TERMINAL UNAVAILABLE' 01170000
.R13 AIF (&MGN NE 'R13').R14 01180000
DC CL20'CORE UNAVAILABLE' 01190000
.R14 AIF (&MGN NE 'R14').R16 01200000
DC CL28'CORE TEMP UNAVAILABLE' 01210000
.R16 AIF (&MGN NE 'R16').R19 01220000
DC CL31'DISK FILE TEMP UNAVAILABLE' 01230000
.R19 AIF (&MGN NE 'R19').R20 01240000
DC CL28'REQUIRED TERMINAL IN USE' 01250000
.R20 AIF (&MGN NE 'R20').R21 01260000
DC CL31'REQUESTED PROG IN /Q WAIT STATE' 01270000
.R21 AIF (&MGN NE 'R21').R23 01280000
DC CL31'SYSTEM TEMPORARILY BUSY' 01290000
.R23 AIF (&MGN NE 'R23').R24 01300000
DC CL31'REQUIRED TERM PERM ALLOCATED' 01310000
.R24 AIF (&MGN NE 'R24').R25 01320000
DC CL31'SWITCHED LINE NOT AVAILABLE' 01330000
.R25 AIF (&MGN NE 'R25').R26 01340000
DC CL31'TERM NOT IMMEDIATELY AVAILABLE' 01350000
.R26 AIF (&MGN NE 'R26').R27 01360000
DC CL31'DISK FILE ACCESS NOT ALLOWED' 01370000
.R27 AIF (&MGN NE 'R27').R28 01380000
DC CL24'TERMINAL NOT AVAILABLE' 01390000
.R28 AIF (&MGN NE 'R28').R29 AJS 01392000
DC CL21'FILE SHARE CONFLICT' 01394000
.R29 AIF (&MGN NE 'R29').S01 AJS 01396000
DC CL31'REQUIRED FILE PERM ALLOCATED' AJS 01398000
.S01 AIF (&MGN NE 'S01').S02 01400000
DC CL20'PROG REL-PROCEED' 01410000
.S02 AIF (&MGN NE 'S02').S03 01420000
DC CL20'PROG REL-SHUTDOWN' 01430000
.S03 AIF (&MGN NE 'S03').S04 01440000
DC CL20'PROG END-PROCEED' 01450000
.S04 AIF (&MGN NE 'S04').S05 01460000
DC CL10'SHUTDOWN' 01470000
.S05 AIF (&MGN NE 'S05').S06 01480000
DC CL20'PROG END-SHUTDOWN' 01490000
.S06 AIF (&MGN NE 'S06').S07 01500000
DC CL30'PROG CANCELLED-SHUTDOWN' 01510000
.S07 AIF (&MGN NE 'S07').S08 01520000
DC CL17'NOW ONLINE-NAMED ' 01530000
&N.&VAR1 DC 6XL1'0' 01540000
.S08 AIF (&MGN NE 'S08').S09 01550000
DC CL15'NOW OFFLINE' 01560000
.S09 AIF (&MGN NE 'S09').S11 01570000
DC CL30'PROG CANCELLED-PROCEED' 01580000
.S11 AIF (&MGN NE 'S11').S12 01590000
DC CL25'INPUT IGNORED-PROCEED' 01600000
.S12 AIF (&MGN NE 'S12').S13 01610000
DC CL20'TP ERROR ON INPUT' 01620000
.S13 AIF (&MGN NE 'S13').S99 01630000
DC CL20'INPUT IGNORED' 01640000
.S99 ANOP 01650000
&N&MGN.E EQU * 01660000
&N&MGN.L EQU &N&MGN.E-&N&MGN.B+3 MESSAGE LENGTH EQUATE 01670000
AIF (&POS NE 'LAST').NOFF 01680000
DC XL1'FF' MESSAGES DELIMITER 01690000
.NOFF ANOP 01700000
MEND 01710000