|
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: 13970 (0x3692)
Types: s3xseg
Names: »S$ETCC«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ETCC«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 3 * 00030000
.* * 00040000
.* NAME: $ETCC * 00050000
.* * 00060000
.* FUNCTION: * 00070000
.* . CCP GENERATION SECOND PASS MACRO INSTRUCTION -- DEFINE * 00080000
.* SYMBOLS FOR TASK COMPLETION CODES. * 00090000
.* * 00100000
.* INPUT OPERANDS: * 00110000
.* . DF-YES/Y/1/NO/N/0 * 00120000
.* SPECIFIES WHETHER DFF SUPPORTED OR NOT * 00130000
.********************************************************************** 00140000
$ETCC &DF-1 00150000
.* 00160000
TABLE &DF 00170000
YES TABDF 1 00180000
Y TABDF 1 00190000
NO TABDF 0 00200000
N TABDF 0 00210000
.* 00220000
TEXT 00230000
.* 00240000
SPACE 2 00250000
*********************************************************************** 00260000
* 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 * 00270000
*********************************************************************** 00280000
SPACE 2 00290000
* CODES FOR ERRORS DETECTED BY $CC4II -- COMMUNICATIONS INTERFACE 00300000
SPACE 1 00310000
TCCIOP EQU X'01' INVALID OP CODE/MODIFIERS 00320000
TCCIOK EQU X'02' INVALID OP FOR 5471 CONSOLE 00330000
TCCNNF EQU X'03' STN NOT DEFINED IN SYSTEM 00340000
TCCNAP EQU X'04' TERMINAL NOT ALLOCATED TO PROGRA 00350000
TCCNAN EQU X'05' ALLOC TERM REFERENCED BY OTHER 00360000
* THAN ALLOCATED NAME 00370000
TCCMBL EQU X'06' BLANK STN FOR MRTS PROGRAM 00380000
TCCRBL EQU X'07' BLANK STN AND REQUESTOR RELEASED 00390000
TCCIBL EQU X'08' BLANK STN INVALID FOR THIS OP 00400000
TCCISN EQU X'09' INVALID USE OF SUB-TERMINAL NAME 00410000
TCCNAT EQU X'0A' STN NOT ASSIGNED TO TERMINAL 00420000
TCCITA EQU X'0B' TERMINAL ATTRIBUTE SET INVALID 00430000
* FOR TERMINAL SPECIFIED 00440000
TCCIOC EQU X'0C' TERMINAL DOES NOT HAVE I/O 00450000
* CAPABILITY SPECIFIED IN OPERATIN 00460000
TCCIOL EQU X'0D' INVALID OUTPUT LENGTH 00470000
TCCIIL EQU X'0E' INVALID INPUT LENGTH 00480000
TCCTPB EQU X'0F' INPUT LENGTH GT TP BUFFER SIZE 00490000
TCCIMO EQU X'10' INVALID OP WITH DATA FROM 00500000
* PROGRAM REQUEST OUTSTANDING 00510000
TCCIIO EQU X'11' INVALID OP WITH INVITE INPUT 00520000
* OUTSTANDING TO THIS TERMINAL 00530000
TCCIAN EQU X'12' ACCEPT INVALID WITH NO 00540000
* OUTSTANDING INVITES FOR NON-NEP 00550000
TCCIAC EQU X'13' NO OUTSTANDING INVITES FOR NEP 00560000
* WITH ACTIVE TERMINAL COUNT NOT 00570000
* LESS THAN MAX TERMINAL COUNT 00580000
TCCNIO EQU X'14' INVALID OP WITH NO INVITE 00590000
* OUTSTANDING FOR THIS TERMINAL 00600000
TCCIGB EQU X'15' INPUT AREA NOT LARGE ENOUGH FOR 00610000
* BSCA GET BLOCK 00620000
TCCICA EQU X'16' COPY TO TERMINAL WITHOUT MAPPING 00630000
TCCICN EQU X'17' COPY TO TERMINAL NAME NOT FOUND 00640000
TCCICT EQU X'18' COPY INVALID TO 3275 00650000
TCCIEA EQU X'19' ERASE TO TERMINAL WITHOUT MAPPIG 00660000
TCCIPA EQU X'1A' PUT OVERRIDE WITHOUT MAPPING 00670000
TCCIPM EQU X'1B' INVALID PUT WITH MAPPING -NO EOT 00680000
TCCITB EQU X'1C' RECORD AREA TOO SMALL FOR BSCA 00690000
* GET WITH ITB, OR OUTPUT 00700000
* LENGTH TOO SMALL FOR PUT - ITB 00710000
TCCIAI EQU X'1D' ACCPET BUT IMPOSSIBLE TO RECEIVE 00720000
* DATA FROM ANY TERMINAL WITH 00730000
* INVITE CURRENTLY OUTSTANDING 00740000
TCCIKL EQU X'1E' OUTPUT LENGTH TO CONSOLE 00750000
* GREATER THAN 80 00760000
TCCLRG EQU X'1F' OUTPUT LENGTH LARGER THAN 00770000
* TP BUFFER SIZE 00780000
SPACE 1 00790000
* ERRORS DETECTED CONCERNING 'SUBR90' MOVE ROUTINE 00800000
SPACE 1 00810000
TCCLRP EQU X'20' LENGTH OF FIELDS TO BE MOVED 00820000
* IS GREATER AS THE GIVEN BUFFER- 00830000
* LENGTH 00840000
SPACE 1 00850000
* ERRORS DETECTED CONCERNING AN 'ACQUIRE TERMINAL' OPERATION 00860000
SPACE 1 00870000
TCCAST EQU X'21' ACQ OF SUB-TERMINAL NAME 00880000
TCCAKN EQU X'22' ACQUIRE CONSOLE 00890000
TCCAAS EQU X'23' ATTEMPT TO ACQUIRE AN OWNED 00900000
* TERMINAL WHO IS NOT REQUESTOR, 00910000
* OR IS THE REQUESTOR BUT THIS IS 00920000
* NOT A SET ATTRIBUTES OPERATION 00930000
TCCADT EQU X'24' SET ATTRIBUTES TO OWNED TERMINAL 00940000
* IN PROCESS OF BSCA DATA TRANSFER 00950000
TCCATS EQU X'25' TERMINAL ATTRIBUTE SET ERROR 00960000
SPACE 1 00970000
* ERRORS DETECTED CONCERNING A 'RELEASE TERMINAL' OPERATION 00980000
SPACE 1 00990000
TCCRST EQU X'26' RELEASE SUB-TERMINAL NAME 01000000
TCCROW EQU X'27' RELEASE OF BSCA TERMINAL WHICH 01010000
* CURRENTLY OWNS THE LINE 01020000
SPACE 1 01030000
* ERRORS DETECTED BY THE RPG COMMUNICATIONS SERVICE ROUTINE 'SUBR92' 01040000
SPACE 1 01050000
TCCRPL EQU X'28' LENGTH SPECIFIED FOR INPUT OR 01060000
* OUTPUT OPERATION IS GREATER THAN 01070000
* THE RECORD LENGTH IN THE DTF 01080000
TCCRCB EQU X'29' PUT THEN GET OPERATION 01090000
* PUT PENDING AND NOT FOLLOWED BY 01100000
* A GET OF THE PUT THEN GET 01110000
SPACE 1 01120000
* CANCELLATION BY THE SYSTEM OPERATOR 01130000
SPACE 1 01140000
TCCCCN EQU X'2A' CONSOL CANCEL 01150000
TCCCCP EQU X'2B' SYSTEM OPERATOR CANCELED CCP 01160000
SPACE 1 01170000
* ERRORS DETECTED UPON USER PROGRAM EXIT 01180000
SPACE 1 01190000
TCCINV EQU X'2C' TASK HAD INVITES OUTSTANDING 01200000
* AT END-OF-JOB 01210000
TCCEOT EQU X'2D' TASK HAS UNFINISHED BSCA EOT 01220000
* OPERATION AT END-OF-JOB 01230000
SPACE 1 01240000
* FILE OPERATION ERROR -- INVALID ADD TO SHARED FILE 01250000
SPACE 1 01260000
TCCIVA EQU X'2E' INVALID ADDER 01270000
SPACE 01280000
* TERMINATION CODE FOR INVALID CHARACTER SENT TO THE 3270 SYSTEM. 01290000
SPACE 01300000
TCCHAR EQU X'2F' ILLEGAL CHARACTER OR ADDRESS 01310000
* SENT TO THE 3270 SYSTEM. 01320000
SPACE 1 01330000
* RPG TERMINATION CODE 01340000
TCCRIS EQU X'30' PGM USED SUBR91 WITH 'SPECIAL' 01350000
* FILES, OR SUBR92 WITH 'EXIT/ 01360000
* RLABL OPERATION. 01370000
SPACE 1 01380000
TCCNEJ EQU X'31' NEP EOJ BEFORE SHUTDOWN 01390000
SPACE 1 01400000
TCCSQB EQU X'32' NO AVAILABLE SECTOR QUEUE BLOCK 01410000
* FOR SHARED FILE I/O REQUEST 01420000
* UNCONDITIONAL HALT ISSUED FROM USER PROGRAM 01430000
SPACE 1 01440000
* RPG II CODES FROM SUBR92 01450000
SPACE 1 01460000
TCC33 EQU X'33' INDICATOR 91 NOT RESET FOR MORE 01470000
* THAN TWO OPERATIONS. 01480000
SPACE 1 01490000
TCC34 EQU X'34' SPECIAL FILE USES SUBR92 BUT AN 01500000
* ARRAY IS NOT ASSOCIATED WITH 01510000
* THE FILE. 01520000
SPACE 1 01530000
* ADDITIONAL TERMINATION CODES FROM $CC4II - COMMUNITCATIONS INTER. 01530700
SPACE 1 01531400
TCCNDF EQU X'35' DFF TERMINAL REFERENCED BY 01532100
* A NON-DFF TASK 01532800
TCCWAT EQU X'36' WAIT OPERATION DATA AREA WAS 01533500
* NOT 10 BYTES (24 FOR RPG) 01534200
TCCNRP EQU X'37' REQUIRED PORT NOT DEFINED AT 01534900
* ASSIGNMENT OR IT WAS RELEASED 01535600
TCCPNC EQU X'38' PORT COMMAND REQUEST NOT 01536300
* ISSUED TO AN AQUIRABLE PORT 01537000
TCCRTC EQU X'39' ERROR DETECTED USING RTC OPCOD 01537700
* 01538400
TCCDCN EQU X'3A' TASK CANCEL WITH DUMP 01540000
SPACE 1 01550000
TCCDCP EQU X'3B' CCP CANCEL WITH DUMP 01560000
SPACE 1 01570000
TCCAQG EQU X'3C' GENERIC KEY GIVEN FOR A GENERIC 01571000
* AQUIRE OPERATION DOES NOT SELECT 01572000
* ANY TNT TO TEST IF ACQUIRABLE 01573000
TCCAQP EQU X'3D' ATTEMPT TO SET ATTRIBUTES 01574000
* ON A PORT TERMINAL 01575000
TCCAQN EQU X'3E' ATTEMPT TO AQUIRE A 01576000
* NON AQUIRABLE PORT 01577000
TCCTCH EQU X'3F' TASK CHAIN NOT SUPPORTED 01618000
SPACE 1 01620000
* 3741 TERMINATION CODE 01621000
TCCST1 EQU X'40' 3741 HAS INDICATED THAT 01622000
* STATUS WILL BE SENT BUT SENT 01623000
* DATA INSTEAD. 01624000
SPACE 1 01625000
* SPOOL FILE UTILITY TERMINATION CODE 01625800
TCCSFU EQU X'41' SPOOL FILE UTILITY PGM WAS 01626600
* REQUESTED VIA TASK CHAINING 01627400
* OR PRUF 01628200
TCCNMM EQU X'48' ONLY MSG MODE PUTS ARE VALID 01628400
* TO NON-SIOC PORTS 01628600
SPACE 1 01629000
* CCP TERMINATION CODES FOR PROGRAM CHECK TERMINATION. 01630000
TCCPRT EQU X'50' STORAGE PROTECT VIOLATION 01640000
TCCQCD EQU X'51' INVALID Q-CODE 01650000
TCCOPC EQU X'52' INVALID OPCODE 01660000
TCCADR EQU X'53' INVALID ADDRESS 01670000
TCCPRV EQU X'54' PRIVELEGED OPERATION 01680000
* EQU X'55' RESERVED FOR PROGRAM CHECK 01690000
* EQU X'56' RESERVED FOR PROGRAM CHECK 01700000
SPACE 01710000
* ERRORS DETECTED FOR BSCC SIOC TERMINATION CODES. 01711000
TCCLDT EQU X'70' SIOC. LOST DATA. 01712000
TCCCLS EQU X'71' SIOC. OTHER CPU CLOCK STOPPED 01713000
TCCPRM EQU X'72' SIOC. PERM ERROR IN OTHER CPU 01714000
TCCABT EQU X'73' SIOC. ABORT FROM OTHER CPU REC 01715000
SPACE 1 01716000
TCCHLT EQU X'7F' UNCONDITIONAL HALT FROM USER TSK 01720000
SPACE 1 01730000
* ERROR DETECTED BY GENERAL ENTRY INTERCEPT -- INVALID SUB-RIB 01740000
SPACE 1 01750000
TCCRIB EQU X'80' INVALID SUB-RIB TO GENERAL ENTRY 01760000
.* 01770000
SPACE 2 01780000
*---------------------------------------------------------------------* 01790000
* PSEUDO OPEN/CLOSE/ALLOCATE TASK COMPLETION CODES * 01800000
*---------------------------------------------------------------------* 01810000
SPACE 1 01820000
TCCOPN EQU X'82' PSUEDO-OPEN ERROR--INVALID DTF 01830000
SPACE 1 01840000
* CODE 82 TERMINATION SUBHALTS 01840400
SPACE 1 01840800
TCC#01 EQU X'01' FILE NOT ALLOCATED 01841200
TCC#02 EQU X'02' FILE NAME NOT RECOGIZED 01841600
TCC#03 EQU X'03' FILE NOT ALLOCATED TO TASK 01842000
TCC#04 EQU X'04' LINES TO SKIP > MAX ALLOWED TO SKIP 01842400
TCC#05 EQU X'05' BUFFER NOT ON 7C BOUNDARY 01842800
TCC#06 EQU X'06' CARD BUFFER NOT ALLIGNED 01843200
TCC#07 EQU X'07' NOT A VALID ACCESS 01843600
TCC#08 EQU X'08' ACCESS NOT ALLOWED FOR THIS ORGANIZATION 01844000
TCC#09 EQU X'09' ADD ACCESS,BUT SDTF NOT ADD TYPE 01844400
TCC#10 EQU X'10' LOAD ACCESS/ORGANIZATION CONFLICT 01844800
TCC#11 EQU X'11' NOT USED 01845200
TCC#12 EQU X'12' ISA/ISUA ACCESS BUT PREVIOUS ADDS DONE 01845600
TCC#13 EQU X'13' Q BYTES NOT COMPATIBLE 01846000
TCC#14 EQU X'14' RECORD OR KEY LENGTH,OR KEY DISPLACEMENTS NOT = 01846400
TCC#15 EQU X'15' DEADLY EMBRACE 01846800
TCC#16 EQU X'16' NOT USED 01847200
TCC#17 EQU X'17' NOT USED 01847600
TCC#18 EQU X'18' ATTEMPT TO OPEN AS CA OR IR WHILE ADDS IN PROG. 01848000
TCC#19 EQU X'19' NOT RECOMPILED FOR RELEASE 3 01848400
TCC#20 EQU X'20' NOT A RANDOM ACCESS 01848800
TCC#21 EQU X'21' OPEN AS MVF BUT NOT FIRST VOLUME 01849200
TCC#22 EQU X'22' MORE THAN 4 VOLUMES 01851000
TCC#23 EQU X'23' NOT INDEXED OR DIRECT 01852000
TCC#24 EQU X'24' NOT ENOUGH SDTF'S CHAINED (INDEXED) 01853000
TCC#25 EQU X'25' NO SHARE FILE WANTED BUT IN USE BY OTHER LEVEL 01854000
TCC#26 EQU X'26' UNORDERED LOAD ACCESS IN DTF;NOT SO IN SDTF 01855000
TCC#27 EQU X'27' FILE SHARE CONFLICT(NO FSQE'S OR NO SHARE 01856000
* ACCESS BUT OPEN AS SHARE) 01857000
SPACE 1 01858000
TCCFSA EQU X'83' DTF OR IOB EXTENDS INTO FSA 01859000
SPACE 1 01860000
TCCDER EQU X'84' I/O ERROR WHILE PRIMING OR 01870000
* PURGING BUFFERS DURING OPEN/CLS 01880000
SPACE 1 01890000
TCCALC EQU X'8B' PSEUDO-ALLOCATE UNOWNED DEVICE 01900000
SPACE 2 01910000
AIF (&DF EQ '0').END 01920000
.* 01930000
SPACE 1 01940000
* ERRORS DETECTED BY DISPLAY FORMAT FACILITY 01950000
SPACE 1 01960000
TCC238 EQU X'EE' MODIFY DATA IS NOT ALLOWED 01970000
* FOR AN INPUT FIELD. 01980000
TCC239 EQU X'EF' AN INVALID MODIFY DATA 01990000
* CHARACTER WAS GIVEN FOR PUT 02000000
* OVERRIDE. 02010000
TCC240 EQU X'F0' AN INVALID CURSOR CHARACTER 02020000
* WAS GIVEN FOR PUT OVERRIDE. 02030000
TCC241 EQU X'F1' AN INVALID TYPE CHARACTER WAS 02040000
* GIVEN FOR PUT OVERRIDE. 02050000
TCC242 EQU X'F2' LENGTH OF OUTPUT DATA IS NOT 02060000
* CORRECT FOR PUT MESSAGE OR 02070000
* PUT OVERRIDE. 02080000
TCC243 EQU X'F3' THE MODEL NUMBER OF THE FORMAT 02090000
* DOES NOT MATCH THE MODEL 02100000
* NUMBER OF THE TERMINAL. 02110000
TCC244 EQU X'F4' FIELD NAME PROVIDED IN THE 02120000
* RECORD AREA FOR A PUT OVER- 02130000
* RIDE DOES NOT MATCH A FIELD 02140000
* NAME IN THE FDT FOR THE CURRENT 02150000
* FORMAT. 02160000
TCC246 EQU X'F6' THE FIELD DESCRIPTOR TABLE 02170000
* SIZE IN THE PROGRAM APPENDED 02180000
* STORAGE AREA IS NOT LARGE 02190000
* ENOUGH TO CONTAIN THE FDT FOR 02200000
* THE DESIRED FORMAT. 02210000
TCC247 EQU X'F7' THE MODIFY DATA OPERATION IS 02212000
* THE ONLY PUT OVERRIDE OPERATION 02214000
* VALID FOR PRINTER GENERATED 02216000
* FORMATS. 02218000
TCC248 EQU X'F8' THE OUTPUT HOLD AREA MUST BE 02220000
* AT LEAST 512 BYTES IN LENGTH 02230000
* FOR BLOCKING OF OUTPUT TEXT. 02240000
TCC249 EQU X'F9' DISK I/O ERROR RECEIVED DURING 02250000
* OPERATION OF DFCR. 02260000
TCC245 EQU X'F5' ERASE FIELD NOT VALID FOR AN 02261000
* OUTPUT FIELD TYPE OR A SPD 02262000
* FIELD TYPE. IT IS ONLY VALID 02263000
* FOR AN INPUT OR OUTPUT/INPUT 02264000
* FIELD TYPE. 02265000
TCC250 EQU X'FA' FROM AND TO TERMINALS NOT ON 02270000
* SAME LINE, ATTACHED TO SAME 02280000
* CONTROL UNIT, OR NOT BOTH 02290000
* ONLINE FOR A COPY OPERATION. 02300000
TCC251 EQU X'FB' LINE BUFFER IS NOT LARGER OR 02310000
* EQUAL IN LENGTH TO THE OUTPUT 02320000
* HOLD AREA FOR DFF. 02330000
TCC252 EQU X'FC' THE DESIRED DISPLAY FORMAT WAS 02340000
* NOT FOUND ON THE SPECIFIED 02350000
* DISK PACK. 02360000
TCC253 EQU X'FD' NON-SELECTOR PEN DETECTABLE 02370000
* FIELDS (INPUT,OUTPUT/INPUT) 02380000
* RECEIVED FROM A TERMINAL. THE 02390000
* INPUT WAS CAUSED BY A SELECTOR 02400000
* PEN ATTENTION FIELD. 02410000
TCC254 EQU X'FE' NOT ENOUGH SPACE WAS ALLOCATED 02420000
* FOR THE PROGRAM APPENDED 02430000
* STORAGE AREA. NEED MORE SPACE 02440000
* FOR TERMINALS OR FORMATS USED 02450000
* BY THIS PROGRAM. 02460000
TCC255 EQU X'FF' ATTEMPTING TO GET, INVITE INPUT, 02470000
* COPY FROM, PUT OVERRIDES, AND 02480000
* THE TERMINAL DID NOT RECEIVE 02490000
* AN INITIAL FORMAT PREVIOUSLY 02500000
* FROM THIS PROGRAM. 02510000
.* 02520000
.END ANOP . COMPLETION OF MACRO 02530000
.* 02540000
SPACE 1 02550000
MEND 02560000