|
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: 10160 (0x27b0)
Types: s3xseg
Names: »S$ETCC«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$ETCC«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $ETCC * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 8, MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO INSTRUCTION -- DEFINE * 00100000
.* SYMBOLS FOR TASK COMPLETION CODES. * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . DF-YES/Y/1/NO/N/0 * 00150000
.* * 00160000
.* SPECIFIES WHETHER DFF SUPPORTED OR NOT * 00170000
.* * 00180000
.********************************************************************** 00190000
$ETCC &DF- 00200000
.* 00210000
TABLE &DF 00220000
YES TABDF 1 00230000
Y TABDF 1 00240000
NO TABDF 0 00250000
N TABDF 0 00260000
'' TABDF 1 00270000
.* 00280000
TEXT 00290000
.* 00300000
SPACE 2 00310000
*********************************************************************** 00320000
* T A S K C O M P L E T I O N C O D E S Y M B O L S * 00330000
*********************************************************************** 00340000
SPACE 2 00350000
* CODES FOR ERRORS DETECTED BY $CC4II -- COMMUNICATIONS INTERFACE 00360000
SPACE 1 00370000
TCCIOP EQU X'01' INVALID OP CODE/MODIFIERS 00380000
TCCIOK EQU X'02' INVALID OP FOR 5471 CONSOLE 00390000
TCCNNF EQU X'03' STN NOT DEFINED IN SYSTEM 00400000
TCCNAP EQU X'04' TERMINAL NOT ALLOCATED TO PROGRA 00410000
TCCNAN EQU X'05' ALLOC TERM REFERENCED BY OTHER 00420000
* THAN ALLOCATED NAME 00430000
TCCMBL EQU X'06' BLANK STN FOR MRTS PROGRAM 00440000
TCCRBL EQU X'07' BLANK STN AND REQUESTOR RELEASED 00450000
TCCIBL EQU X'08' BLANK STN INVALID FOR THIS OP 00460000
TCCISN EQU X'09' INVALID USE OF SUB-TERMINAL NAME 00470000
TCCNAT EQU X'0A' STN NOT ASSIGNED TO TERMINAL 00480000
TCCITA EQU X'0B' TERMINAL ATTRIBUTE SET INVALID 00490000
* FOR TERMINAL SPECIFIED 00500000
TCCIOC EQU X'0C' TERMINAL DOES NOT HAVE I/O 00510000
* CAPABILITY SPECIFIED IN OPERATIN 00520000
TCCIOL EQU X'0D' INVALID OUTPUT LENGTH 00530000
TCCIIL EQU X'0E' INVALID INPUT LENGTH 00540000
TCCTPB EQU X'0F' INPUT LENGTH GT TP BUFFER SIZE 00550000
TCCIMO EQU X'10' INVALID OP WITH DATA FROM 00560000
* PROGRAM REQUEST OUTSTANDING 00570000
TCCIIO EQU X'11' INVALID OP WITH INVITE INPUT 00580000
* OUTSTANDING TO THIS TERMINAL 00590000
TCCIAN EQU X'12' ACCEPT INVALID WITH NO 00600000
* OUTSTANDING INVITES FOR NON-NEP 00610000
TCCIAC EQU X'13' NO OUTSTANDING INVITES FOR NEP 00620000
* WITH ACTIVE TERMINAL COUNT NOT 00630000
* LESS THAN MAX TERMINAL COUNT 00640000
TCCNIO EQU X'14' INVALID OP WITH NO INVITE 00650000
* OUTSTANDING FOR THIS TERMINAL 00660000
TCCIGB EQU X'15' INPUT AREA NOT LARGE ENOUGH FOR 00670000
* BSCA GET BLOCK 00680000
TCCICA EQU X'16' COPY TO TERMINAL WITHOUT MAPPING 00690000
TCCICN EQU X'17' COPY TO TERMINAL NAME NOT FOUND 00700000
TCCICT EQU X'18' COPY INVALID TO 3275 00710000
TCCIEA EQU X'19' ERASE TO TERMINAL WITHOUT MAPPIG 00720000
TCCIPA EQU X'1A' PUT OVERRIDE WITHOUT MAPPING 00730000
TCCIPM EQU X'1B' INVALID PUT WITH MAPPING -NO EOT 00740000
TCCITB EQU X'1C' RECORD AREA TOO SMALL FOR BSCA 00750000
* GET WITH ITB, OR OUTPUT 00760000
* LENGTH TOO SMALL FOR PUT - ITB 00770000
TCCIAI EQU X'1D' ACCPET BUT IMPOSSIBLE TO RECEIVE 00780000
* DATA FROM ANY TERMINAL WITH 00790000
* INVITE CURRENTLY OUTSTANDING 00800000
TCCIKL EQU X'1E' OUTPUT LENGTH TO CONSOLE 00810000
* GREATER THAN 80 00820000
TCCLRG EQU X'1F' OUTPUT LENGTH LARGER THAN 00830000
* TP BUFFER SIZE 00840000
SPACE 1 00850000
* ERRORS DETECTED CONCERNING 'SUBR90' MOVE ROUTINE 00860000
SPACE 1 00870000
TCCLRP EQU X'20' LENGTH OF FIELDS TO BE MOVED 00880000
* IS GREATER AS THE GIVEN BUFFER- 00890000
* LENGTH 00900000
SPACE 1 00910000
* ERRORS DETECTED CONCERNING AN 'ACQUIRE TERMINAL' OPERATION 00920000
SPACE 1 00930000
TCCAST EQU X'21' ACQ OF SUB-TERMINAL NAME 00940000
TCCAKN EQU X'22' ACQUIRE CONSOLE 00950000
TCCAAS EQU X'23' ATTEMPT TO ACQUIRE AN OWNED 00960000
* TERMINAL WHO IS NOT REQUESTOR, 00970000
* OR IS THE REQUESTOR BUT THIS IS 00980000
* NOT A SET ATTRIBUTES OPERATION 00990000
TCCADT EQU X'24' SET ATTRIBUTES TO OWNED TERMINAL 01000000
* IN PROCESS OF BSCA DATA TRANSFER 01010000
TCCATS EQU X'25' TERMINAL ATTRIBUTE SET ERROR 01020000
SPACE 1 01030000
* ERRORS DETECTED CONCERNING A 'RELEASE TERMINAL' OPERATION 01040000
SPACE 1 01050000
TCCRST EQU X'26' RELEASE SUB-TERMINAL NAME 01060000
TCCROW EQU X'27' RELEASE OF BSCA TERMINAL WHICH 01070000
* CURRENTLY OWNS THE LINE 01080000
SPACE 1 01090000
* ERRORS DETECTED BY THE RPG COMMUNICATIONS SERVICE ROUTINE 'SUBR92' 01100000
SPACE 1 01110000
TCCRPL EQU X'28' LENGTH SPECIFIED FOR INPUT OR 01120000
* OUTPUT OPERATION IS GREATER THAN 01130000
* THE RECORD LENGTH IN THE DTF 01140000
TCCRCB EQU X'29' PUT THEN GET OPERATION 01150000
* PUT PENDING AND NOT FOLLOWED BY 01160000
* A GET OF THE PUT THEN GET 01170000
SPACE 1 01180000
* CANCELLATION BY THE SYSTEM OPERATOR 01190000
SPACE 1 01200000
TCCCCN EQU X'2A' CONSOL CANCEL 01210000
TCCCCP EQU X'2B' SYSTEM OPERATOR CANCELED CCP 01220000
SPACE 1 01230000
* ERRORS DETECTED UPON USER PROGRAM EXIT 01240000
SPACE 1 01250000
TCCINV EQU X'2C' TASK HAD INVITES OUTSTANDING 01260000
* AT END-OF-JOB 01270000
TCCEOT EQU X'2D' TASK HAS UNFINISHED BSCA EOT 01280000
* OPERATION AT END-OF-JOB 01290000
SPACE 1 01300000
* FILE OPERATION ERROR -- INVALID ADD TO SHARED FILE 01310000
SPACE 1 01320000
TCCIVA EQU X'2E' INVALID ADDER 01330000
SPACE 01340000
* TERMINATION CODE FOR INVALID CHARACTER SENT TO THE 3270 SYSTEM. 01350000
SPACE 01360000
TCCHAR EQU X'2F' ILLEGAL CHARACTER OR ADDRESS 01370000
* SENT TO THE 3270 SYSTEM. 01380000
SPACE 1 01390000
* RPG TERMINATION CODE 01400000
TCCRIS EQU X'30' PGM USED SUBR91 WITH 'SPECIAL' 01410000
* FILES, OR SUBR92 WITH 'EXIT/ 01420000
* RLABL OPERATION. 01430000
SPACE 1 01440000
TCCNEJ EQU X'31' NEP EOJ BEFORE SHUTDOWN 01450000
SPACE 1 01460000
TCCSQB EQU X'32' NO AVAILABLE SECTOR QUEUE BLOCK 01470000
* FOR SHARED FILE I/O REQUEST 01480000
* UNCONDITIONAL HALT ISSUED FROM USER PROGRAM 01490000
SPACE 01500000
* RPG II CODES FROM SUBR92 01510000
SPACE 01520000
TCC33 EQU X'33' INDICATOR 91 NOT RESET FOR MORE 01530000
* THAN TWO OPERATIONS. 01540000
SPACE 01550000
TCC34 EQU X'34' SPECIAL FILE USES SUBR92 BUT AN 01560000
* ARRAY IS NOT ASSOCIATED WITH 01570000
* THE FILE. 01580000
SPACE 01590000
SPACE 1 01600000
* ADDITIONAL TERMINATION CODES FROM $CC4II - COMMUNITCATIONS INTER. 01610000
SPACE 1 01620000
TCCNDF EQU X'35' DFF TERMINAL REFERENCED BY 01630000
* A NON-DFF TASK 01640000
SPACE 1 01650000
TCCHLT EQU X'7F' UNCONDITIONAL HALT FROM USER TSK 01660000
SPACE 1 01670000
SPACE 1 01680000
* ERROR DETECTED BY GENERAL ENTRY INTERCEPT -- INVALID SUB-RIB 01690000
SPACE 1 01700000
TCCRIB EQU X'80' INVALID SUB-RIB TO GENERAL ENTRY 01710000
.* 01720000
SPACE 2 01730000
*---------------------------------------------------------------------* 01740000
* PSEUDO OPEN/CLOSE/ALLOCATE TASK COMPLETION CODES * 01750000
*---------------------------------------------------------------------* 01760000
SPACE 1 01770000
TCCOPN EQU X'82' PSUEDO-OPEN ERROR--INVALID DTF 01780000
SPACE 1 01790000
TCCCLS EQU X'83' PSEUDO-CLOSE ERROR 01800000
SPACE 1 01810000
TCCDER EQU X'84' I/O ERROR WHILE PRIMING OR 01820000
* PURGING BUFFERS DURING OPEN/CLS 01830000
SPACE 1 01840000
TCCALC EQU X'8B' PSEUDO-ALLOCATE UNOWNED DEVICE 01850000
SPACE 2 01860000
AIF (&DF EQ '0').END . SKIP IF *NO* DFF 01870000
.* 01880000
SPACE 1 01890000
* ERRORS DETECTED BY DISPLAY FORMAT FACILITY 01900000
SPACE 1 01910000
TCC238 EQU X'EE' MODIFY DATA IS NOT ALLOWED 01920000
* FOR AN INPUT FIELD. 01930000
TCC239 EQU X'EF' AN INVALID MODIFY DATA 01940000
* CHARACTER WAS GIVEN FOR PUT 01950000
* OVERRIDE. 01960000
TCC240 EQU X'F0' AN INVALID CURSOR CHARACTER 01970000
* WAS GIVEN FOR PUT OVERRIDE. 01980000
TCC241 EQU X'F1' AN INVALID TYPE CHARACTER WAS 01990000
* GIVEN FOR PUT OVERRIDE. 02000000
TCC242 EQU X'F2' LENGTH OF OUTPUT DATA IS NOT 02010000
* CORRECT FOR PUT MESSAGE OR 02020000
* PUT OVERRIDE. 02030000
TCC243 EQU X'F3' THE MODEL NUMBER OF THE FORMAT 02040000
* DOES NOT MATCH THE MODEL 02050000
* NUMBER OF THE TERMINAL. 02060000
TCC244 EQU X'F4' FIELD NAME PROVIDED IN THE 02070000
* RECORD AREA FOR A PUT OVER- 02080000
* RIDE DOES NOT MATCH A FIELD 02090000
* NAME IN THE FDT FOR THE CURRENT 02100000
* FORMAT. 02110000
TCC245 EQU X'F5' INVALID FIELD TYPE FOR ERASE -- 02112000
* ERASE ONLY VALID FOR INPUT OR 02114000
* INPUT/OUTPUT FIELDS. 02116000
TCC246 EQU X'F6' THE FIELD DESCRIPTOR TABLE 02120000
* SIZE IN THE PROGRAM APPENDED 02130000
* STORAGE AREA IS NOT LARGE 02140000
* ENOUGH TO CONTAIN THE FDT FOR 02150000
* THE DESIRED FORMAT. 02160000
TCC248 EQU X'F8' THE OUTPUT HOLD AREA MUST BE 02170000
* AT LEAST 512 BYTES IN LENGTH 02180000
* FOR BLOCKING OF OUTPUT TEXT. 02190000
TCC249 EQU X'F9' DISK I/O ERROR RECEIVED DURING 02200000
* OPERATION OF DFCR. 02210000
TCC250 EQU X'FA' FROM AND TO TERMINALS NOT ON 02220000
* SAME LINE, ATTACHED TO SAME 02230000
* CONTROL UNIT, OR NOT BOTH 02240000
* ONLINE FOR A COPY OPERATION. 02250000
TCC251 EQU X'FB' LINE BUFFER IS NOT LARGER OR 02260000
* EQUAL IN LENGTH TO THE OUTPUT 02270000
* HOLD AREA FOR DFF. 02280000
TCC252 EQU X'FC' THE DESIRED DISPLAY FORMAT WAS 02290000
* NOT FOUND ON THE SPECIFIED 02300000
* DISK PACK. 02310000
TCC253 EQU X'FD' NON-SELECTOR PEN DETECTABLE 02320000
* FIELDS (INPUT,OUTPUT/INPUT) 02330000
* RECEIVED FROM A TERMINAL. THE 02340000
* INPUT WAS CAUSED BY A SELECTOR 02350000
* PEN ATTENTION FIELD. 02360000
TCC254 EQU X'FE' NOT ENOUGH SPACE WAS ALLOCATED 02370000
* FOR THE PROGRAM APPENDED 02380000
* STORAGE AREA. NEED MORE SPACE 02390000
* FOR TERMINALS OR FORMATS USED 02400000
* BY THIS PROGRAM. 02410000
TCC255 EQU X'FF' ATTEMPTING TO GET, INVITE INPUT, 02420000
* COPY FROM, PUT OVERRIDES, AND 02430000
* THE TERMINAL DID NOT RECEIVE 02440000
* AN INITIAL FORMAT PREVIOUSLY 02450000
* FROM THIS PROGRAM. 02460000
* ...OR AN ERROR WAS RECIEVED LAST 02470000
* TIME A FORMAT WAS WENT TO THE 02480000
* TERMINAL,...OR THE 'CLEAR' KEY 02490000
* WAS RECIEVED FOR THE LASY 'GET'. 02500000
.* 02510000
.END ANOP . COMPLETION OF MACRO 02520000
.* 02530000
SPACE 1 02540000
MEND 02550000