Seq # *Modification Id* Act
----------------------------+
00004 M01S00004.ns2440 ---| SETCHT TITLE SET INPUT CHARACTER TYPE.
00005 M01S00005.ns2440 ---|*COMMENT SET INPUT CHARACTER TYPE.
Line S00001 Modification History
M01(Added by)
ns2440
Seq # *Modification Id* Act
----------------------------+
00006 M01S00001.ns2440 +++| TITLE SETCHT - SET INPUT CHARACTER TYPE.
00007 M01S00002.ns2440 +++|*COMMENT SETCHT - SET INPUT CHARACTER TYPE.
Line S00006 Modification History
M01(Removed by)
281l803
Seq # *Modification Id* Act
----------------------------+
00008 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1977.
Line S00001 Modification History
M01(Added by)
281l803
Seq # *Modification Id* Act
----------------------------+
00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00010 M00S00007.setcht +++| SETCHT SPACE 4,10
00011 M00S00008.setcht +++|***** SETCHT - SET CHARACTER TYPE.
00012 M00S00009.setcht +++|*
00013 M00S00010.setcht +++|* W.E. MARTIN. 77/05/05.
00014 M00S00011.setcht +++| SPACE 4,10
00015 M00S00012.setcht +++|* COMMOM TEXT DEFINITION.
00016 M00S00013.setcht +++|
00017 M00S00014.setcht +++|
00018 M00S00015.setcht +++|*CALL COMCMAC
00019 M00S00016.setcht +++|*CALL COMKMAC
00020 M00S00017.setcht +++|*CALL COMSPRD
00021 M00S00018.setcht +++| SPACE 4,30
00022 M00S00019.setcht +++|*** SETCHT - SET CHARACTER TYPE.
00023 M00S00020.setcht +++|*
00024 M00S00021.setcht +++|* SET CHARACTER TYPE ALLOWS A TASK TO CHANGE THE CHARACTER
00025 M00S00022.setcht +++|* TYPE ASSOCIATED WITH A PARTICULAR TERMINAL. THE ARGUMENTS
00026 M00S00023.setcht +++|* ARE CHECKED FOR VALIDITY AND A *CTI* CALL IS MADE IN ORDER
00027 M00S00024.setcht +++|* TO PASS THE REQUEST ON TO THE NETWORK SUPERVISOR.
00028 M00S00025.setcht +++|*
00029 M00S00026.setcht +++|* CALL FORMAT -
00030 M00S00027.setcht +++|* FORTRAN EXTENDED - CALL SETCHT(TERMINAL,STATUS,ACT)
00031 M00S00028.setcht +++|*
00032 M00S00029.setcht +++|* COBOL - ENTER SETCHT USING TERMINAL, STATUS, ACT.
00033 M00S00030.setcht +++|*
00034 M00S00031.setcht +++|* TERMINAL = TERMINAL WHICH IS TO HAVE ITS ATTRIBUTES
00035 M00S00032.setcht +++|* CHANGED. TERMINAL IS 1 - 7 CHARACTERS,
00036 M00S00033.setcht +++|* ZERO OR BLANK FILLED. IF A BINARY ZERO
00037 M00S00034.setcht +++|* IS SUPPLIED, THE OPERATION APPLIES TO
00038 M00S00035.setcht +++|* ORIGINATING TERMINAL.
00039 M00S00036.setcht +++|*
00040 M00S00037.setcht +++|* STATUS = LOCATION WHICH IS TO HAVE THE TERMINAL
00041 M00S00038.setcht +++|* LOGGIN STATUS RETURNED.
00042 M00S00039.setcht +++|*
00043 M00S00040.setcht +++|* ACT = INTEGER VALUE FOR FORTRAN AND COMP-1 FOR
00044 M00S00041.setcht +++|* COBOL, VALUE RANGING FROM 2 - 4, OR THE
00045 M00S00042.setcht +++|* CHARACTER STRINGS - *ASCII7*, *ASCII5* AND
00046 M00S00043.setcht +++|* *DISPLAY*.
00047 M00S00044.setcht +++|
00048 M00S00045.setcht +++| VFD 42/0LSETCHT,18/SETCHT
00049 M00S00046.setcht +++|
00050 M00S00047.setcht +++| SETCHT SUBR ENTRY/EXIT
00051 M00S00048.setcht +++| SX6 A0 SAVE (A0)
00052 M00S00049.setcht +++| MX0 42
00053 M00S00050.setcht +++| SA6 SCTA
00054 M00S00051.setcht +++| SB1 1
00055 M00S00052.setcht +++|
00056 M00S00053.setcht +++|* PROCESS TERMINAL NAME.
00057 M00S00054.setcht +++|
00058 M00S00055.setcht +++| SA3 X1
00059 M00S00056.setcht +++| UX2,B3 X3
00060 M00S00057.setcht +++| ZR X1,SCT8 IF NO ARGUMENTS - ABORT TASK
00061 M00S00058.setcht +++| NZ B3,SCT1 IF NOT COBOL COMPUTATIONAL-1 ARGUMENT
00062 M00S00059.setcht +++| BX1 X1-X1
00063 M00S00060.setcht +++| ZR X2,SCT2 IF ZERO TERMINAL NAME
00064 M00S00061.setcht +++| SCT1 BX1 X0*X3
00065 M00S00062.setcht +++| ZR X1,SCT2 IF ZERO TERMINAL NAME
00066 M00S00063.setcht +++| RJ ZFN ZERO FILL NAME
00067 M00S00064.setcht +++| SCT2 BX5 X1
00068 M00S00065.setcht +++|
00069 M00S00066.setcht +++|* PROCESS STATUS PARAMETER.
00070 M00S00067.setcht +++|
00071 M00S00068.setcht +++| SA1 A1+B1 READ NEXT ARGUMENT
00072 M00S00069.setcht +++| ZR X1,SCT8 IF NO *STATUS* ARGUMENT - ABORT TASK
00073 M00S00070.setcht +++| SX7 X1 SET STATUS RETURN ADDRESS
00074 M00S00071.setcht +++|
00075 M00S00072.setcht +++|* PROCESS ACT PARAMETER.
00076 M00S00073.setcht +++|
00077 M00S00074.setcht +++| SA2 A1+B1
00078 M00S00075.setcht +++| SA7 SCTB+1
00079 M00S00076.setcht +++| ZR X2,SCT5 IF NO *ACT* ARGUMENT
00080 M00S00077.setcht +++| SA1 X2
00081 M00S00078.setcht +++| BX7 X0*X1
00082 M00S00079.setcht +++| UX3,B3 X1 UNPACK POSSIBLE COBOL ARGUMENT
00083 M00S00080.setcht +++| ZR B3,SCT3 IF NOT COBOL COMPUTATIONAL-1
00084 M00S00081.setcht +++| NZ X7,SCT6 IF CHARACTER ARGUMENT
00085 M00S00082.setcht +++| SCT3 SX4 X3-5
00086 M00S00083.setcht +++| PL X4,SCT8 IF ARGUMENT TOO LARGE
00087 M00S00084.setcht +++| SX4 X3-2
00088 M00S00085.setcht +++| NG X4,SCT8 IF TASK *ACT* SETS MODE TO BINARY
00089 M00S00086.setcht +++| SCT4 BX6 X5+X3 SET TERMINAL NAME AND CHARACTER TYPE
00090 M00S00087.setcht +++| SA6 SCTB
00091 M00S00088.setcht +++| SETCHT A6
00092 M00S00089.setcht +++| SCT5 SA1 SCTA RESTORE (A0)
00093 M00S00090.setcht +++| SA0 X1+
00094 M00S00091.setcht +++| EQ SETCHTX RETURN
00095 M00S00092.setcht +++|
00096 M00S00093.setcht +++|
00097 M00S00094.setcht +++|* PERFORM TABLE LOOKUP FOR DISPLAY ARGUMENTS.
00098 M00S00095.setcht +++|
00099 M00S00096.setcht +++| SCT6 RJ ZFN ZERO FILL NAME
00100 M00S00097.setcht +++| SB3 TSCTL (B3) = TABLE SIZE
00101 M00S00098.setcht +++| SCT7 SA3 TSCT-1+B3
00102 M00S00099.setcht +++| BX4 X0*X3
00103 M00S00100.setcht +++| SB3 B3-B1
00104 M00S00101.setcht +++| BX7 X4-X1
00105 M00S00102.setcht +++| SX3 X3
00106 M00S00103.setcht +++| ZR X7,SCT4 IF ARGUMENT FOUND
00107 M00S00104.setcht +++| GE B3,SCT7 IF TABLE NOT EXHAUSTED
00108 M00S00105.setcht +++|
00109 M00S00106.setcht +++|* ABORT TASK FOR ARGUMENT ERROR.
00110 M00S00107.setcht +++|
00111 M00S00108.setcht +++| SCT8 SA1 SETCHT READ TRACE-BACK WORD
00112 M00S00109.setcht +++| MX0 30
00113 M00S00110.setcht +++| LX1 30
00114 M00S00111.setcht +++| SA2 X1-1 READ *RJ* FROM CALLING PROGRAM
00115 M00S00112.setcht +++| BX6 -X0*X2
00116 M00S00113.setcht +++| SA6 SCTB
00117 M00S00114.setcht +++| ARGERR A6 EXIT TO EXECUTIVE
00118 M00S00115.setcht +++|
00119 M00S00116.setcht +++| SCTA BSS 1 TEMPORARY STORAGE (A0)
00120 M00S00117.setcht +++| SCTB BSS 2 LOCATION FOR MESSAGE HEADER
00121 M00S00118.setcht +++|
00122 M00S00119.setcht +++|* TABLE OF TERMINAL CHARACTER TYPES.
00123 M00S00120.setcht +++|*T 42/ CHARACTER TYPE, 18/ NETWORK REQUIRED VALUE