cdc:nos2.source:opl.opl871:deck:sform
Deck SFORM
49 Modifications
Listing Sections
- Deck SFORM Start
- Deck SFORM Part 1 (Line 1152)
- Deck SFORM Part 2 (Line 2830)
- Deck SFORM Part 3 (Line 4426)
- Deck SFORM Part 4 (Line 5497)
- Deck SFORM Part 5 (Line 6487)
- Deck SFORM Part 6 (Line 7627)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.sform +++|PROC SFORM; 00002 M01S00002.sform +++| 00003 M01S00003.sform +++|# TITLE SFORM - SCREEN FORMATTING OBJECT ROUTINES. # 00004 M01S00004.sform +++| 00005 M01S00005.sform +++|BEGIN # SFORM # 00006 M01S00006.sform +++| 00007 M01S00007.sform +++|# 00008 M01S00008.sform +++|*** SFORM - SCREEN FORMATTING OBJECT ROUTINES. 00009 M01S00009.sform +++|*
Line S00010 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M02S00010.281l803 ---|* COPYRIGHT CONTROL DATA CORPORATION, 1984. 00011 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M01S00011.sform +++|# 00013 M01S00012.sform +++| 00014 M01S00013.sform +++|DEF EDITORVDT #0#; # STAND ALONE VERSION OF VIRTERM # 00015 M01S00014.sform +++|DEF EUROPEAN #0#; # NOT EUROPEAN NUMERIC FORMAT #
Line S00015 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00016 M02S00015.242l642 ---|DEF LISTCON #0#; # DO NOT LIST COMMON DECKS #
Line S00001 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2346 |
Seq # *Modification Id* Act ----------------------------+ 00017 M02S00001.ns2346 ---|DEF LISTCON #1#; # LIST COMMON DECKS # # IF # 00018 M01S00001.ns2346 +++|*IF DEF,LIST 00019 M01S00002.ns2346 +++|DEF LISTCON #1#; # EXPANDED COMMON DECKS # 00020 M01S00003.ns2346 +++|*ELSE 00021 M01S00004.ns2346 +++|DEF LISTCON #0#; # NO EXPANDED COMMON DECKS # 00022 M01S00005.ns2346 +++|*ENDIF 00023 M01S00016.sform +++|DEF SINGLE #1#; # SINGLE USER (VIRTERM) #
Line S00017 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | ns2346 |
Seq # *Modification Id* Act ----------------------------+ 00024 M02S00017.ns2346 ---|DEF MULTI #0#; # NOT MULTI-USER VERSION # 00025 M01S00006.ns2346 +++|DEF MULTI #0#; # NOT A MULTI-USER # 00026 M01S00002.242l642 +++|*IF UNDEF,QTRM 00027 M01S00003.242l642 +++|DEF QTRMV #0#; # NOT QTRM VERSION # 00028 M01S00004.242l642 +++|*ELSE 00029 M01S00005.242l642 +++|DEF QTRMV #1#; # QTRM VERSION # 00030 M01S00006.242l642 +++|*ENDIF 00031 M01S00018.sform +++| 00032 M01S00019.sform +++|XDEF 00033 M01S00020.sform +++| BEGIN 00034 M01S00001.243l647 +++| PROC SFATTR$; # SET FIELD ATTRIBUTES # 00035 M01S00021.sform +++| PROC SFCLOS$; # UNLOAD PANEL # 00036 M01S00022.sform +++| PROC SFCSET$; # SET CHARACTER SET # 00037 M01S00007.242l642 +++|*IF DEF,QTRM 00038 M01S00008.242l642 +++| PROC SFDQUE$; # QTRM DEQUEUE TERMINAL DATA # 00039 M01S00009.242l642 +++|*ENDIF 00040 M01S00001.ns2605 +++| PROC SFGETF$; # GET FIELD CHARACTER STRING # 00041 M01S00023.sform +++| PROC SFGETI$; # GET INTEGER VALUE # 00042 M01S00024.sform +++| PROC SFGETK; # GET FUNCTION KEY INPUT # 00043 M01S00001.241l630 +++| PROC SFGETN$; # GET TERMINAL MODEL NAME # 00044 M01S00025.sform +++| PROC SFGETP$; # GET FUNCTION KEY POSITION # 00045 M01S00026.sform +++| PROC SFGETR$; # GET REAL VALUE # 00046 M01S00001.ns2619 +++| PROC SFLUSH$; # FLUSH OUTPUT TO SCREEN # 00047 M01S00010.242l642 +++|*IF DEF,QTRM 00048 M01S00011.242l642 +++| PROC SFMODE$; # QTRM SET TERMINAL MODE # 00049 M01S00012.242l642 +++| PROC SFNQUE$; # QTRM ENQUEUE TERMINAL DATA # 00050 M01S00013.242l642 +++|*ENDIF 00051 M01S00027.sform +++| PROC SFOPEN$; # LOAD PANEL AND OPEN FOR USE # 00052 M01S00028.sform +++| PROC SFPOSR$; # POSITION TABLE ROW # 00053 M01S00002.ns2605 +++| PROC SFSETF$; # SET FIELD CHARACTER STRING # 00054 M01S00014.242l642 +++|*IF DEF,QTRM 00055 M01S00015.242l642 +++| PROC SFQTRM$; # QTRM IDENTIFY USER # 00056 M01S00016.242l642 +++|*ENDIF 00057 M01S00029.sform +++| PROC SFSETP$; # SET CURSOR POSITION FOR READ # 00058 M01S00030.sform +++| PROC SFSREA$; # READ PANEL FROM TERMINAL #
Line S00031 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00059 M02S00031.242l642 ---| PROC SFSSHO$; # WRITE AND READ PANEL # 00060 M01S00017.242l642 +++|*IF UNDEF,QTRM 00061 M01S00018.242l642 +++| PROC SFSSHO$; # WRITE AND READ PANEL # 00062 M01S00019.242l642 +++|*ENDIF 00063 M01S00032.sform +++| PROC SFSWRI$; # WRITE PANEL TO TERMINAL # 00064 M01S00033.sform +++| END 00065 M01S00034.sform +++| 00066 M01S00035.sform +++|XREF 00067 M01S00036.sform +++| BEGIN 00068 M01S00037.sform +++|*CALL COMFXVT 00069 M01S00020.242l642 +++|*IF DEF,QTRM 00070 M01S00021.242l642 +++| PROC CMMALF; # CMM ALLOCATE A BLOCK # 00071 M01S00022.242l642 +++| PROC CMMFRF; # CMM FREE A BLOCK # 00072 M01S00023.242l642 +++|*ENDIF 00073 M01S00038.sform +++| PROC VDTCLO; # CLOSE TERMINAL # 00074 M01S00002.ns2619 +++| PROC VDTFOS; # FLUSH OUTPUT TO SCREEN # 00075 M01S00024.242l642 +++|*IF UNDEF,QTRM 00076 M01S00039.sform +++| PROC VDTGSL; # GET TERMINAL MODEL # 00077 M01S00025.242l642 +++|*ENDIF 00078 M01S00040.sform +++| PROC VDTMSG$; # DAYFILE AND B-DISPLAY MESSAGE # 00079 M01S00026.242l642 +++|*IF UNDEF,QTRM 00080 M01S00041.sform +++| PROC VDTOPN; # OPEN TERMINAL # 00081 M01S00027.242l642 +++|*ENDIF 00082 M01S00042.sform +++| END 00083 M01S00043.sform +++| 00084 M01S00044.sform +++|XREF 00085 M01S00045.sform +++| BEGIN 00086 M01S00001.sform21 +++| PROC ABORT; # ABORT THE PROGRAM/USER # 00087 M01S00046.sform +++| FUNC GFP; # GENERATE FLOATING POINT VALUE # 00088 M01S00047.sform +++| PROC LCP; # LOAD CAPSULE # 00089 M01S00048.sform +++| PROC PLT; # PANEL LOAD TABLE # 00090 M01S00049.sform +++| PROC UCP; # UNLOAD CAPSULE # 00091 M01S00050.sform +++| END 00092 M01S00051.sform +++|CONTROL EJECT; 00093 M01S00052.sform +++| 00094 M01S00053.sform +++|# DEFINITIONS FOR COMMONLY USED CHARACTER VALUES, PSEUDO WHILE LOOP, # 00095 M01S00054.sform +++|# AND VALIDFIELD (DEFINED AS =FIELD GQ 0= ) WHICH IS FREQUENTLY USED # 00096 M01S00055.sform +++|# IN THE CODE TO DETERMINE IF THE FIELD IN QUESTION IS A VALID ONE. # 00097 M01S00056.sform +++| 00098 M01S00057.sform +++|DEF ASTERISK #O"0052"#; # 12 BIT ASTERISK # 00099 M01S00058.sform +++|DEF BLANK #O"0040"#; # 12 BIT BLANK # 00100 M01S00059.sform +++|DEF CAPA #O"0101"#; # 12 BIT UPPER CASE A # 00101 M01S00060.sform +++|DEF CAPE #O"0105"#; # 12 BIT UPPER CASE E # 00102 M01S00061.sform +++|DEF CAPZ #O"0132"#; # 12 BIT UPPER CASE Z # 00103 M01S00003.ns2605 +++|DEF CSMR #O"0067"#; # SYSTEM CHARACTER SET MODE WORD # 00104 M01S00062.sform +++|DEF COMMA #O"0054"#; # 12 BIT COMMA # 00105 M01S00063.sform +++|DEF DOLLAR #O"0044"#; # 12 BIT DOLLAR SIGN # 00106 M01S00064.sform +++|DEF LOWA #O"0141"#; # 12 BIT LOWER CASE A # 00107 M01S00065.sform +++|DEF LOWZ #O"0172"#; # 12 BIT LOWER CASE Z # 00108 M01S00066.sform +++|DEF MINUS #O"0055"#; # 12 BIT MINUS SIGN # 00109 M01S00067.sform +++|DEF NINECH #O"0071"#; # 12 BIT NINE (CHARACTER) # 00110 M01S00068.sform +++|DEF PANHEADLEN #5#; # LENGTH OF PANEL HEADER # 00111 M01S00069.sform +++|DEF PERIOD #O"0056"#; # 12 BIT PERIOD # 00112 M01S00070.sform +++|DEF PLUS #O"0053"#; # 12 BIT PLUS SIGN # 00113 M01S00071.sform +++|DEF VALIDFIELD #FIELD GQ 0#; # VALID INPUT FIELD # 00114 M01S00072.sform +++|DEF WHYLE #FOR DUMMY = DUMMY WHILE#; # PSUEDO WHILE LOOP # 00115 M01S00073.sform +++|DEF XMASKOF #B<51,9>#; # X COORDINATE PART OF FLDPOS # 00116 M01S00074.sform +++|DEF YMASKOF #B<45,6>#; # Y COORDINATE PART OF FLDPOS # 00117 M01S00075.sform +++|DEF ZEROCH #O"0060"#; # 12 BIT ZERO (CHARACTER) #
Line S00028 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | ns2346 |
Seq # *Modification Id* Act ----------------------------+ 00118 M02S00028.ns2346 ---|CONTROL EJECT;
Line S00001 Modification History | |
---|---|
M01 (Added by) | ns2275 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00119 M02S00001.242l642 ---|
Line S00002 Modification History | |
---|---|
M01 (Added by) | ns2275 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00120 M02S00002.242l642 ---|STATUS OPENSTATUS # SFOPEN STATUS #
Line S00003 Modification History | |
---|---|
M01 (Added by) | ns2275 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00121 M02S00003.242l642 ---| NOERROR, # NO ERROR #
Line S00004 Modification History | |
---|---|
M01 (Added by) | ns2275 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00122 M02S00004.242l642 ---| UNPANEL, # UNKNOWN PANEL NAME #
Line S00005 Modification History | |
---|---|
M01 (Added by) | ns2275 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00123 M02S00005.242l642 ---| INCAPFOR, # INCORRECT CAPSULE FORMAT #
Line S00006 Modification History | |
---|---|
M01 (Added by) | ns2275 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00124 M02S00006.242l642 ---| PLTFULL, # PANEL LOAD TABLE FULL #
Line S00007 Modification History | |
---|---|
M01 (Added by) | ns2275 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00125 M02S00007.242l642 ---| PANELOPEN, # PANEL ALREADY OPEN #
Line S00008 Modification History | |
---|---|
M01 (Added by) | ns2275 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00126 M02S00008.242l642 ---| INTERNAL, # INTERNAL *FDL* ERROR #
Line S00009 Modification History | |
---|---|
M01 (Added by) | ns2275 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00127 M02S00009.242l642 ---| NOSCREEN, # NOT IN SCREEN MODE #
Line S00010 Modification History | |
---|---|
M01 (Added by) | ns2275 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00128 M02S00010.242l642 ---| UNSPTERM; # UNSUPPORTED TERMINAL #
Line S00076 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00129 M02S00076.242l642 ---|
Line S00077 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00130 M02S00077.242l642 ---|STATUS MESSSTAT # MESSAGE PROMPTS #
Line S00078 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00131 M02S00078.242l642 ---| HELP, # USER/SMF HELP #
Line S00079 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00132 M02S00079.242l642 ---| CONFIRM, # PLEASE CONFIRM #
Line S00080 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00133 M02S00080.242l642 ---| REENTER; # PLEASE REENTER #
Line S00081 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00134 M02S00081.242l642 ---|
Line S00082 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00135 M02S00082.242l642 ---|STATUS FORMTYPE # FORMAT TYPES #
Line S00083 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00136 M02S00083.242l642 ---| BAD, # NOT VALID #
Line S00084 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00137 M02S00084.242l642 ---| X, # DISPLAYABLE FORMAT #
Line S00085 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00138 M02S00085.242l642 ---| A, # ALPHABETIC FORMAT #
Line S00086 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00139 M02S00086.242l642 ---| NINE, # INTEGER FORMAT #
Line S00087 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00140 M02S00087.242l642 ---| N, # NUMERIC FORMAT #
Line S00088 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00141 M02S00088.242l642 ---| $, # DOLLAR FORMAT #
Line S00089 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00142 M02S00089.242l642 ---| E, # REAL FORMAT #
Line S00090 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00143 M02S00090.242l642 ---| Y, # YYMMDD DATE FORMAT #
Line S00091 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00144 M02S00091.242l642 ---| M, # MMDDYY DATE FORMAT #
Line S00092 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00145 M02S00092.242l642 ---| D; # DDMMYY DATE FORMAT #
Line S00093 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00146 M02S00093.242l642 ---| 00147 M01S00029.242l642 +++| 00148 M01S00030.242l642 +++|# COMFVDT CONTAINS STATUS SWITCHES USED BY SFORM, VIRTERM AND FSE. # 00149 M01S00094.sform +++|*CALL COMFVDT 00150 M01S00031.242l642 +++|*IF DEF,QTRM 00151 M01S00032.242l642 +++| 00152 M01S00033.242l642 +++|# COMFVD3 CONTAINS STORAGE LOCATIONS USED BY BOTH VIRTERM AND SFORM. # 00153 M01S00034.242l642 +++|*ENDIF 00154 M01S00035.242l642 +++|*IFCALL QTRM,COMFVD3 00155 M01S00095.sform +++|CONTROL EJECT; 00156 M01S00096.sform +++| 00157 M01S00097.sform +++|ITEM DUMMY I; # DUMMY PARAMETER # 00158 M01S00098.sform +++| 00159 M01S00099.sform +++|BASED ARRAY ARRLIST [0:0] S(2); # ARRAY LIST # 00160 M01S00100.sform +++| BEGIN 00161 M01S00101.sform +++| ITEM ARRNAME C(00,00,07); # ARRAY NAME # 00162 M01S00102.sform +++| ITEM ARRCURROW U(01,00,12); # CURRENT ROW ON SCREEN # 00163 M01S00103.sform +++| ITEM ARRTOPROW U(01,18,18); # TOP ROW ON SCREEN # 00164 M01S00104.sform +++| ITEM ARRNUMROWS U(01,36,08); # NUMBER OF ROWS ON SCREEN # 00165 M01S00105.sform +++| ITEM ARRNUMVARS U(01,44,08); # NUMBER OF VARIABLES PER ROW # 00166 M01S00106.sform +++| END 00167 M01S00002.243l647 +++| 00168 M01S00003.243l647 +++|BASED ARRAY ARR2LIST [0:0] S(2); # ARRAY LIST FOR *SFATTR* # 00169 M01S00004.243l647 +++| BEGIN 00170 M01S00005.243l647 +++| ITEM ARR2CURROW U(01,00,12); # CURRENT ROW ON SCREEN # 00171 M01S00006.243l647 +++| ITEM ARR2NUMVAR U(01,44,08); # NUMBER OF VARIABLES PER ROW # 00172 M01S00007.243l647 +++| END 00173 M01S00107.sform +++| 00174 M01S00108.sform +++|BASED ARRAY ATTLIST [0:0] P(1); # ATTRIBUTE LIST # 00175 M01S00109.sform +++| BEGIN 00176 M01S00110.sform +++| ITEM ATTMASK U(00,00,12); # ATTRIBUTE MASK FOR *VDTSAM* # 00177 M01S00111.sform +++| ITEM ATTLINEWT U(00,58,02); # LINE WEIGHT FOR *VDTBOX* # 00178 M01S00112.sform +++| END 00179 M01S00113.sform +++| 00180 M01S00008.243l647 +++|BASED ARRAY ATT2LIST [0:0] P(1); # ATTRIBUTE LIST FOR *SFATTR* # 00181 M01S00009.243l647 +++| BEGIN 00182 M01S00010.243l647 +++| ITEM ATT2MASK U(00,00,12); # ATTRIBUTE MASK FOR VDTSAM # 00183 M01S00011.243l647 +++| END 00184 M01S00012.243l647 +++| 00185 M01S00114.sform +++|BASED ARRAY BOXLIST [0:0] P(1); # BOX LIST # 00186 M01S00115.sform +++| BEGIN 00187 M01S00116.sform +++| ITEM BOXWORD U(00,00,60); # FULL WORD # 00188 M01S00117.sform +++| ITEM BOXATTORD U(00,00,12); # ATTRIBUTE ORDINAL # 00189 M01S00118.sform +++| ITEM BOXCHAR U(00,12,04); # LINE DRAWING CHARACTER # 00190 M01S00119.sform +++| ITEM BOXYCORD U(00,16,06); # Y COORDINATE # 00191 M01S00120.sform +++| ITEM BOXXCORD U(00,22,09); # X COORDINATE # 00192 M01S00121.sform +++| ITEM BOXREPEAT U(00,31,09); # REPEAT COUNT FOR THIS CHAR. # 00193 M01S00122.sform +++| END 00194 M01S00123.sform +++| 00195 M01S00004.ns2605 +++|BASED ARRAY CORE[0:0] P(1); # MEMORY # 00196 M01S00005.ns2605 +++| BEGIN 00197 M01S00006.ns2605 +++| ITEM COREWORD I(00,00,60); # FULL WORD # 00198 M01S00007.ns2605 +++| END 00199 M01S00008.ns2605 +++| 00200 M01S00124.sform +++|BASED ARRAY FLDLIST [0:0] P(1); # FIELD LIST # 00201 M01S00125.sform +++| BEGIN 00202 M01S00126.sform +++| ITEM FLDENTRY U(00,00,60); # FULL WORD # 00203 M01S00127.sform +++| ITEM FLDVARFLAG B(00,00,01); # VARIABLE FIELD FLAG # 00204 M01S00128.sform +++| ITEM FLDATTORD U(00,01,07); # FIELD ATTRIBUTE ORDINAL # 00205 M01S00129.sform +++| ITEM FLDINPUTV B(00,08,01); # INPUT FIELD FLAG # 00206 M01S00130.sform +++| ITEM FLDOUTPUTV B(00,09,01); # OUTPUT FIELD FLAG # 00207 M01S00036.242l642 +++| ITEM FLDSTFLAGS U(00,10,04); # FIELD STATUS FLAGS # 00208 M01S00131.sform +++| ITEM FLDENTERED B(00,10,01); # INPUT ENTERED IN FIELD FLAG # 00209 M01S00132.sform +++| ITEM FLDVALID B(00,11,01); # INPUT PASSED VALIDATION #
Line S00133 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00210 M02S00133.242l642 ---| ITEM FLDREWRITE B(00,12,01); # REWRITE FILED TO SCREEN FLAG #
Line S00134 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00211 M02S00134.242l642 ---| ITEM FLDACTIVE B(00,13,01); # ACTIVE FIELD # 00212 M01S00037.242l642 +++| ITEM FLDREWRITE B(00,12,01); # REWRITE FIELD ON SCREEN FLAG # 00213 M01S00038.242l642 +++| ITEM FLDACTIVE B(00,13,01); # ACTIVE FIELD FLAG # 00214 M01S00135.sform +++| ITEM FLDVARORD U(00,15,08); # ORDINAL INTO VARLIST FOR FIELD # 00215 M01S00136.sform +++| ITEM FLDCONOS U(00,18,18); # CONSTANT OFFSET INTO RECORD # 00216 M01S00137.sform +++| ITEM FLDVDTCORD U(00,23,13); # CHARACTER ORDINAL IN VARDATA # 00217 M01S00138.sform +++| ITEM FLDLENGTH U(00,36,09); # LENGTH IN 12 BIT CHARACTERS # 00218 M01S00139.sform +++| ITEM FLDPOS U(00,45,15); # COORDINATES OF FIELD # 00219 M01S00140.sform +++| ITEM FLDYCORD U(00,45,06); # Y COORDINATE OF FIELD # 00220 M01S00141.sform +++| ITEM FLDXCORD U(00,51,09); # X COORDINATE OF FIELD # 00221 M01S00142.sform +++| END
Line S00143 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 00222 M02S00143.243l647 ---| 00223 M01S00013.243l647 +++| 00224 M01S00014.243l647 +++|BASED ARRAY FLD2LIST [0:0] P(1); # FIELD LIST FOR *SFATTR* # 00225 M01S00015.243l647 +++| BEGIN 00226 M01S00016.243l647 +++| ITEM FLD2ATTORD U(00,01,07); # FIELD ATTRIBUTE ORDINAL # 00227 M01S00017.243l647 +++| ITEM FLD2INPUTV B(00,08,01); # INPUT FIELD FLAG # 00228 M01S00018.243l647 +++| ITEM FLD2OUTPUT B(00,09,01); # OUTPUT FIELD FLAG # 00229 M01S00019.243l647 +++| ITEM FLD2ENTERE B(00,10,01); # INPUT ENTERED IN FIELD FLAG # 00230 M01S00020.243l647 +++| ITEM FLD2VALID B(00,11,01); # INPUT PASSED VALIDATION # 00231 M01S00021.243l647 +++| ITEM FLD2REWRIT B(00,12,01); # REWRITE FIELD ON SCREEN FLAG # 00232 M01S00022.243l647 +++| ITEM FLD2VARORD U(00,15,08); # ORDINAL INTO VARLIST FOR FIELD # 00233 M01S00023.243l647 +++| END 00234 M01S00024.243l647 +++| 00235 M01S00144.sform +++|BASED ARRAY FROMSTRING [0:0] P(1); # FROM STRING # 00236 M01S00145.sform +++| BEGIN 00237 M01S00146.sform +++| ITEM FROMSTRIU U(00,00,60); # FROMSTRING WORD (INTEGER) # 00238 M01S00147.sform +++| END
Line S00148 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 00239 M02S00148.243l647 ---|CONTROL EJECT; 00240 M01S00149.sform +++| 00241 M01S00150.sform +++|BASED ARRAY FUNLIST [0:0] S(1); # FUNCTION LIST # 00242 M01S00151.sform +++| BEGIN 00243 M01S00152.sform +++| ITEM FUNWORD U(00,00,60); # FIRST WORD OF ENTRY # 00244 M01S00153.sform +++| ITEM FUNASG U(00,26,18); # VARIABLE ASSIGNMENT OFFSET # 00245 M01S00154.sform +++| ITEM FUNACT U(00,44,09); # FUNCTION ACTION TO BE TAKEN # 00246 M01S00155.sform +++| ITEM FUNGENERIC B(00,53,01); # GENERIC FUNTION KEY FLAG # 00247 M01S00156.sform +++| ITEM FUNNUMBER I(00,54,06); # FUNCTION NUMBER # 00248 M01S00157.sform +++| END 00249 M01S00158.sform +++| 00250 M01S00159.sform +++|BASED ARRAY MATCHLIST [0:0] S(2); # MATCH LIST # 00251 M01S00160.sform +++| BEGIN 00252 M01S00161.sform +++| ITEM MATCHWORD U(00,00,60); # FIRST WORD OF MATCH LIST ENTRY # 00253 M01S00162.sform +++| ITEM MATCH C(00,00,20); # TWO WORD MATCH ITEM # 00254 M01S00163.sform +++| END 00255 M01S00164.sform +++| 00256 M01S00165.sform +++|BASED ARRAY PANELHEADR [0:0] S(5); # PANEL HEADER # 00257 M01S00166.sform +++| BEGIN 00258 M01S00167.sform +++| ITEM PANELNME C(00,00,07); # PANEL NAME # 00259 M01S00168.sform +++| ITEM PANPRIPAN B(00,58,01); # PRIMARY PANEL (NOT OVERLAY) # 00260 M01S00169.sform +++| ITEM PANNUMLNES U(01,00,06); # NUMBER OF LINES IN PANEL # 00261 M01S00170.sform +++| ITEM PANRECLEN U(01,06,18); # LENGTH OF PANEL IN WORDS # 00262 M01S00171.sform +++| ITEM PANSTRFUN U(01,24,18); # START OF FUNCTION LIST OFFSET # 00263 M01S00172.sform +++| ITEM PANSTRVAR U(01,42,18); # START OF VARIABLE LIST OFFSET # 00264 M01S00173.sform +++| ITEM PANVERSION U(02,00,06); # VERSION NUMBER # 00265 M01S00174.sform +++| ITEM PANSTRATT U(02,06,18); # START OF ATTRIBUTE LIST OFFSET # 00266 M01S00175.sform +++| ITEM PANSTRARR U(02,24,18); # START OF ARRAY LIST OFFSET # 00267 M01S00176.sform +++| ITEM PANSTRFLD U(02,42,18); # START OF FIELD LIST OFFSET # 00268 M01S00177.sform +++| ITEM PANSTRBOX U(03,06,18); # START OF BOX LIST OFFSET # 00269 M01S00178.sform +++| ITEM PANMSGLEN U(03,36,09); # MESSAGE FIELD LENGTH # 00270 M01S00179.sform +++| ITEM PANMSGYCRD U(03,45,06); # MESSAGE Y COORDINATE # 00271 M01S00180.sform +++| ITEM PANMSGXCRD U(03,51,09); # MESSAGE X CORRDINATE # 00272 M01S00181.sform +++| ITEM PANNUMBYTE U(04,00,13); # NUMBER OF BYTES IN VAR DATA # 00273 M01S00182.sform +++| ITEM PANNUMCOLS U(04,13,09); # NUMBER OF COLUMNS IN PANEL # 00274 M01S00183.sform +++| END 00275 M01S00025.243l647 +++|CONTROL EJECT; 00276 M01S00026.243l647 +++| 00277 M01S00027.243l647 +++|BASED ARRAY PANEL2HEAD [0:0] S(5); # PANEL HEADER FOR *SFATTR* # 00278 M01S00028.243l647 +++| BEGIN 00279 M01S00029.243l647 +++| ITEM PANEL2NME C(00,00,07); # PANEL NAME # 00280 M01S00030.243l647 +++| ITEM PAN2RECLEN U(01,06,18); # LENGTH OF PANEL IN WORDS # 00281 M01S00031.243l647 +++| ITEM PAN2STRFUN U(01,24,18); # START OF FUNCTION LIST OFFSET # 00282 M01S00032.243l647 +++| ITEM PAN2STRVAR U(01,42,18); # START OF VARIABLE LIST OFFSET # 00283 M01S00033.243l647 +++| ITEM PAN2STRATT U(02,06,18); # START OF ATTRIBUTE LIST OFFSET # 00284 M01S00034.243l647 +++| ITEM PAN2STRARR U(02,24,18); # START OF ARRAY LIST OFFSET # 00285 M01S00035.243l647 +++| ITEM PAN2STRFLD U(02,42,18); # START OF FIELD LIST OFFSET # 00286 M01S00036.243l647 +++| ITEM PAN2STRBOX U(03,06,18); # START OF BOX LIST OFFSET # 00287 M01S00037.243l647 +++| END 00288 M01S00184.sform +++| 00289 M01S00185.sform +++|BASED ARRAY PLTABLE [0:0] S(2); # PANEL LOAD TABLE # 00290 M01S00186.sform +++| BEGIN 00291 M01S00187.sform +++| ITEM PLTWORDONE U(00,00,60); # WORD ONE OF TWO # 00292 M01S00188.sform +++| ITEM PLTENAME C(00,00,07); # PANEL NAME # 00293 M01S00189.sform +++| ITEM PLTENTRYNM U(00,48,12); # SEQUENCE NUMBER ON SCREEN # 00294 M01S00190.sform +++| ITEM PLTWORDTWO U(01,00,60); # WORD TWO OF TWO # 00295 M01S00191.sform +++| ITEM PLTSLFLAG B(01,00,01); # STATIC LOAD FLAG # 00296 M01S00192.sform +++| ITEM PLTOPENFLG B(01,01,01); # PANEL OPEN FLAG # 00297 M01S00039.242l642 +++| ITEM PLTNUMQTRM I(01,24,12); # NUMBER OF QTRM USERS OF PANEL # 00298 M01S00193.sform +++| ITEM PLTNUMONSC U(01,36,12); # NUMBER OF PANELS ON SCREEN # 00299 M01S00194.sform +++| ITEM PLTADDR U(01,42,18); # MEMORY ADDRESS OF PANEL # 00300 M01S00195.sform +++| ITEM PLTNUMENT U(01,48,12); # CURRENT NUMBER OF ENTRIES # 00301 M01S00196.sform +++| END 00302 M01S00197.sform +++| 00303 M01S00198.sform +++|BASED ARRAY RECORD [0:0] P(1); # PANEL RECORD # 00304 M01S00199.sform +++| BEGIN 00305 M01S00200.sform +++| ITEM RECWORDC C(00,00,10); # PANEL RECORD WORD (CHARACTER) # 00306 M01S00201.sform +++| ITEM RECWORDR R(00,00,60); # PANEL RECORD WORD (REAL) # 00307 M01S00202.sform +++| ITEM RECWORDU U(00,00,60); # PANEL RECORD WORD (INTEGER) # 00308 M01S00203.sform +++| END
Line S00204 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 00309 M02S00204.243l647 ---|CONTROL EJECT; 00310 M01S00205.sform +++| 00311 M01S00206.sform +++|BASED ARRAY TOSTRING [0:0] P(1); # TO STRING # 00312 M01S00207.sform +++| BEGIN 00313 M01S00208.sform +++| ITEM TOSTRIU U(00,00,60); # TOSTRING WORD (INTEGER) # 00314 M01S00209.sform +++| END 00315 M01S00210.sform +++| 00316 M01S00211.sform +++|BASED ARRAY VARLIST [0:0] S(2); # VARIABLE LIST # 00317 M01S00212.sform +++| BEGIN 00318 M01S00001.ns2469 +++| ITEM VARMUSCON B(00,00,01); # MUST CONTAIN (A VALUE) #
Line S00002 Modification History | |
---|---|
M01 (Added by) | ns2469 |
M02 (Updated by) | ns2473 |
Seq # *Modification Id* Act ----------------------------+ 00319 M02S00002.ns2473 ---| ITEM VARESERVD B(00,01,01); # RESERVED #
Line S00213 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | ns2473 |
Seq # *Modification Id* Act ----------------------------+ 00320 M02S00213.ns2473 ---| ITEM VARFLDNUM U(00,02,08); # FIELD ORDINAL # 00321 M01S00001.ns2473 +++| ITEM VARFLDNUM U(00,01,09); # FIELD ORDINAL # 00322 M01S00214.sform +++| ITEM VARROWNUM U(00,10,08); # ROW NUMBER # 00323 M01S00215.sform +++| ITEM VARARRORD U(00,18,05); # ARRAY ORDINAL # 00324 M01S00216.sform +++| ITEM VARMUSENTR B(00,23,01); # MUST ENTER DATA IN FIELD # 00325 M01S00217.sform +++| ITEM VARMUSFILL B(00,24,01); # MUST FILL FIELD WITH DATA # 00326 M01S00218.sform +++| ITEM VARMUSKNOW B(00,25,01); # * NOT ALLOWED # 00327 M01S00219.sform +++| ITEM VARTYPE U(00,26,02); # VARIABLE TYPE (INT CHAR REAL) # 00328 M01S00220.sform +++| ITEM VARPICTYPE U(00,28,08); # PICTURE TYPE # 00329 M01S00221.sform +++| ITEM VARVALTYPE U(00,36,06); # VALIDATION TYPE # 00330 M01S00222.sform +++| ITEM VARVALR B(00,40,01); # RANGE VALIDATION # 00331 M01S00223.sform +++| ITEM VARVALM B(00,41,01); # MATCH VALIDATION # 00332 M01S00224.sform +++| ITEM VARVALOS U(00,42,18); # VALIDATION OFFSET # 00333 M01S00225.sform +++| ITEM VARNME C(01,00,07); # VARIABLE NAME (DISPLAY CODE) # 00334 M01S00226.sform +++| ITEM VARHSOS U(01,42,18); # HELP STRING OFFSET # 00335 M01S00227.sform +++| END 00336 M01S00228.sform +++| 00337 M01S00038.243l647 +++|BASED ARRAY VAR2LIST [0:0] S(2); # VARIABLE LIST FOR *SFATTR* # 00338 M01S00039.243l647 +++| BEGIN
Line S00040 Modification History | |
---|---|
M01 (Added by) | 243l647 |
M02 (Updated by) | ns2473 |
Seq # *Modification Id* Act ----------------------------+ 00339 M02S00040.ns2473 ---| ITEM VAR2FLDNUM U(00,02,08); # FIELD ORDINAL # 00340 M01S00002.ns2473 +++| ITEM VAR2FLDNUM U(00,01,09); # FIELD ORDINAL # 00341 M01S00041.243l647 +++| ITEM VAR2ARRORD U(00,18,05); # ARRAY ORDINAL # 00342 M01S00042.243l647 +++| ITEM VAR2TYPE U(00,26,02); # VARIABLE TYPE (INT CHAR REAL) # 00343 M01S00043.243l647 +++| ITEM VAR2NME C(01,00,07); # VARIABLE NAME (DISPLAY CODE) # 00344 M01S00044.243l647 +++| END 00345 M01S00045.243l647 +++| 00346 M01S00229.sform +++|BASED ARRAY VDATA [0:0] P(1); # VAR DATA # 00347 M01S00230.sform +++| BEGIN 00348 M01S00231.sform +++| ITEM VDATAC C(00,00,10); # VARDATA WORD (CHARACTER) # 00349 M01S00232.sform +++| ITEM VDATAU U(00,00,60); # VARDATA WORD (INTEGER) # 00350 M01S00233.sform +++| END 00351 M01S00234.sform +++| 00352 M01S00235.sform +++|ARRAY CHARCONV1 [0:127] P(1); # DISPLAY CODE TO ASCII8 # 00353 M01S00236.sform +++| BEGIN 00354 M01S00237.sform +++| ITEM DC2A8 U(00,00,60)= [ 00355 M01S00238.sform +++| O"0072", O"0101", O"0102", O"0103", # COLON A B C # 00356 M01S00239.sform +++| O"0104", O"0105", O"0106", O"0107", # D E F G # 00357 M01S00240.sform +++| O"0110", O"0111", O"0112", O"0113", # H I J K # 00358 M01S00241.sform +++| O"0114", O"0115", O"0116", O"0117", # L M N O # 00359 M01S00242.sform +++| O"0120", O"0121", O"0122", O"0123", # P Q R S # 00360 M01S00243.sform +++| O"0124", O"0125", O"0126", O"0127", # T U V W # 00361 M01S00244.sform +++| O"0130", O"0131", O"0132", O"0060", # X Y Z 0 # 00362 M01S00245.sform +++| O"0061", O"0062", O"0063", O"0064", # 1 2 3 4 # 00363 M01S00246.sform +++| O"0065", O"0066", O"0067", O"0070", # 5 6 7 8 # 00364 M01S00247.sform +++| O"0071", O"0053", O"0055", O"0052", # 9 PLUS MINUS ASTERISK # 00365 M01S00248.sform +++| O"0057", O"0050", O"0051", O"0044", # SLANT LPAREN RPAREN DOLLAR # 00366 M01S00249.sform +++| O"0075", O"0040", O"0054", O"0056", # EQUAL BLANK COMMA PERIOD # 00367 M01S00250.sform +++| O"0043", O"0133", O"0135", O"0045", # POUND LBRAC RBRAC PERCENT # 00368 M01S00251.sform +++| O"0042", O"0137", O"0041", O"0046", # QUOTE UNDERLINE XPOINT AMPER # 00369 M01S00252.sform +++| O"0047", O"0077", O"0074", O"0076", # APOSTROPHE QMARK LTHAN GTHAN # 00370 M01S00253.sform +++| O"0100", O"0134", O"0136", O"0073", # ATSIGN REVSLANT CIRCUM SEMI # 00371 M01S00254.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00372 M01S00255.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00373 M01S00256.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00374 M01S00257.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00375 M01S00258.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00376 M01S00259.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00377 M01S00260.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00378 M01S00261.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00379 M01S00262.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00380 M01S00263.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00381 M01S00264.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00382 M01S00265.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00383 M01S00266.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00384 M01S00267.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00385 M01S00268.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00386 M01S00269.sform +++| O"0040", O"0040", O"0040", O"0040"]; # BLANK FILL # 00387 M01S00270.sform +++| END 00388 M01S00271.sform +++| 00389 M01S00272.sform +++|ARRAY CHARCONV2 [0:127] P(1); # ASCII8 TO DISPLAY CODE # 00390 M01S00273.sform +++| BEGIN 00391 M01S00274.sform +++| ITEM A82DC U(00,00,60)= [ 00392 M01S00275.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00393 M01S00276.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00394 M01S00277.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00395 M01S00278.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00396 M01S00279.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00397 M01S00280.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00398 M01S00281.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00399 M01S00282.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00400 M01S00283.sform +++| O"55", O"66", O"64", O"60", # BLANK XMARK QUOTE POUND # 00401 M01S00284.sform +++| O"53", O"63", O"67", O"70", # DOLLAR PERCENT AMPER APOS # 00402 M01S00285.sform +++| O"51", O"52", O"47", O"45", # LPAREN RPAREN ASTERISK PLUS # 00403 M01S00286.sform +++| O"56", O"46", O"57", O"50", # COMMA MINUS PERIOD SLANT # 00404 M01S00287.sform +++| O"33", O"34", O"35", O"36", # 0 1 2 3 # 00405 M01S00288.sform +++| O"37", O"40", O"41", O"42", # 4 5 6 7 # 00406 M01S00289.sform +++| O"43", O"44", O"00", O"77", # 8 9 COLON SEMI # 00407 M01S00290.sform +++| O"72", O"54", O"73", O"71", # LTHAN EQUAL GTHAN QMARK # 00408 M01S00291.sform +++| O"74", O"01", O"02", O"03", # ATSIGN UCA UCB UCC # 00409 M01S00292.sform +++| O"04", O"05", O"06", O"07", # UCD UCE UCF UCG # 00410 M01S00293.sform +++| O"10", O"11", O"12", O"13", # UCH UCI UCJ UCK # 00411 M01S00294.sform +++| O"14", O"15", O"16", O"17", # UCL UCM UCN UCO # 00412 M01S00295.sform +++| O"20", O"21", O"22", O"23", # UCP UCQ UCR UCS # 00413 M01S00296.sform +++| O"24", O"25", O"26", O"27", # UCT UCU UCV UCW # 00414 M01S00297.sform +++| O"30", O"31", O"32", O"61", # UCX UCY UCZ LBRAC # 00415 M01S00298.sform +++| O"75", O"62", O"76", O"65", # RSLANT RBRAC CIRCUM ULINE #
Line S00299 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | ns2407 |
Seq # *Modification Id* Act ----------------------------+ 00416 M02S00299.ns2407 ---| O"55", O"01", O"02", O"03", # GRAVE(NO EQ) LCA LCB LCC # 00417 M01S00001.ns2407 +++| O"74", O"01", O"02", O"03", # GRAVE LCA LCB LCC # 00418 M01S00300.sform +++| O"04", O"05", O"06", O"07", # LCD LCE LCF LCG # 00419 M01S00301.sform +++| O"10", O"11", O"12", O"13", # LCH LCI LCJ LCK # 00420 M01S00302.sform +++| O"14", O"15", O"16", O"17", # LCL LCM LCN LCO # 00421 M01S00303.sform +++| O"20", O"21", O"22", O"23", # LCP LCQ LCR LCS # 00422 M01S00304.sform +++| O"24", O"25", O"26", O"27", # LCT LCU LCV LCW #
Line S00305 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | ns2407 |
Seq # *Modification Id* Act ----------------------------+ 00423 M02S00305.ns2407 ---| O"30", O"31", O"32", O"55", # LCX LCY LCZ LBRAC(NO EQ) #
Line S00306 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | ns2407 |
Seq # *Modification Id* Act ----------------------------+ 00424 M02S00306.ns2407 ---| O"55", O"55", O"55", O"55"]; # VLINE RBRAC TILDE DEL(NO EQ) # 00425 M01S00002.ns2407 +++| O"30", O"31", O"32", O"61", # LCX LCY LCZ LBRAC # 00426 M01S00003.ns2407 +++| O"75", O"62", O"76", O"55"]; # VLINE RBRAC TILDE DEL(NO EQ) # 00427 M01S00307.sform +++| END 00428 M01S00308.sform +++| 00429 M01S00309.sform +++|ARRAY CHARCONV3 [1:7] P(1); # SPECIAL ASCII CODES # 00430 M01S00310.sform +++| BEGIN 00431 M01S00311.sform +++| ITEM AS2A8 U(00,00,60)= [ 00432 M01S00312.sform +++| O"0100", O"0136", O"0040", # ATSIGN CIRCUMFLEX (BLANK) # 00433 M01S00313.sform +++| O"0072", O"0040", O"0040", # COLON (BLANK) (BLANK) # 00434 M01S00314.sform +++| O"0140"]; # RSLANT # 00435 M01S00315.sform +++| END 00436 M01S00046.243l647 +++|CONTROL EJECT; 00437 M01S00047.243l647 +++|
Line S00316 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00438 M02S00316.242l642 ---|CONTROL EJECT;
Line S00040 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00439 M02S00040.252l678 ---|ITEM CURORD I; # CURRENT ATTRIBUTE ORDINAL #
Line S00041 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00440 M02S00041.252l678 ---|ITEM LASTPOS I; # PREVIOUS ATTRIBUTE POSITION #
Line S00042 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00441 M02S00042.252l678 ---|ITEM FIRSTWRITE B = TRUE; # TRUE IF VDTBOO NOT YET CALLED #
Line S00317 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00442 M02S00317.252l678 ---|
Line S00318 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00443 M03S00318.252l678 ---|ARRAY TERMSTAT [0:0] P(2); # TERMINAL STATUS FLAGS #
Line S00043 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00444 M02S00043.252l678 ---|ARRAY TERMSTAT [0:0] P(15); # TERMINAL STATUS FLAGS #
Line S00319 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00445 M02S00319.252l678 ---| BEGIN
Line S00320 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00446 M03S00320.252l678 ---| ITEM TERABNTERM B(00,00,01) = [FALSE]; # ABNORMAL TERMINATION #
Line S00321 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00447 M03S00321.252l678 ---| ITEM TERASCFLAG B(00,01,01) = [FALSE]; # ASCII CODE SET FLAG #
Line S00322 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00448 M03S00322.252l678 ---| ITEM TERAS8FLAG B(00,02,01) = [FALSE]; # ASCII8 CODE SET FLAG #
Line S00323 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00449 M03S00323.252l678 ---| ITEM TERCURSSET B(00,03,01) = [FALSE]; # CURSOR SET BY SFSETP$ #
Line S00324 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00450 M03S00324.252l678 ---| ITEM TERCNWRIOV B(00,04,01) = [FALSE]; # OVERLAY WRITE ALLOWED #
Line S00325 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00451 M03S00325.252l678 ---| ITEM TERDISFLAG B(00,05,01) = [TRUE]; # DISPLAY CODE SET FLAG #
Line S00326 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00452 M03S00326.252l678 ---| ITEM TERDONTCLR B(00,06,01) = [FALSE]; # RESPECT ENTERED/REWRITE #
Line S00327 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00453 M03S00327.252l678 ---| ITEM TERFUNCGEN B(00,07,01) = [FALSE]; # GENERIC FUNCTION KEY FLAG #
Line S00328 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00454 M03S00328.252l678 ---| ITEM TERGUARDMD B(00,08,01) = [FALSE]; # GUARD MODE AVAILABLE #
Line S00329 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00455 M03S00329.252l678 ---| ITEM TERHELPREQ B(00,09,01) = [FALSE]; # HELP REQUESTED #
Line S00330 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00456 M03S00330.252l678 ---| ITEM TERINPVARS B(00,10,01) = [TRUE]; # INPUT VARIABLES IN PANEL #
Line S00331 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00457 M03S00331.252l678 ---| ITEM TERTABAUTO B(00,11,01) = [FALSE]; # AUTOMATIC TABBING #
Line S00332 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00458 M03S00332.252l678 ---| ITEM TERMESREAD B(00,12,01) = [FALSE]; # MESSAGE READ BY USER #
Line S00333 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00459 M03S00333.252l678 ---| ITEM TERMESWRIT B(00,13,01) = [FALSE]; # MESSAGE WRITTEN #
Line S00334 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00460 M03S00334.252l678 ---| ITEM TERMISSINP B(00,14,01) = [FALSE]; # INPUT OUTSIDE OF FIELD #
Line S00335 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00461 M03S00335.252l678 ---| ITEM TERNRMTERM B(00,15,01) = [FALSE]; # NORMAL TERMINATION #
Line S00336 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00462 M03S00336.252l678 ---| ITEM TERPENDHLP B(00,16,01) = [FALSE]; # HELP (AFTER SOFT TABS) #
Line S00337 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00463 M03S00337.252l678 ---| ITEM TERPROTECT B(00,17,01) = [FALSE]; # PROTECT MODE AVAILABLE #
Line S00338 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00464 M03S00338.252l678 ---| ITEM TERREADFLG B(00,18,01) = [FALSE]; # CALLING PROCEDURE IS READ #
Line S00339 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00465 M03S00339.252l678 ---| ITEM TERRETRNOS B(00,19,01) = [FALSE]; # TERMINATION RETURNS TO OS #
Line S00340 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00466 M03S00340.252l678 ---| ITEM TERREWFLDS B(00,20,01) = [FALSE]; # REWRITE FIELDS #
Line S00341 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00467 M03S00341.252l678 ---| ITEM TERREWSCRN B(00,21,01) = [FALSE]; # COMPLETE SCREEN REWRITE #
Line S00342 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00468 M03S00342.252l678 ---| ITEM TERREWVARS B(00,22,01) = [TRUE]; # REWRITE ALL VARIABLES #
Line S00343 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00469 M03S00343.252l678 ---| ITEM TERSCREENM B(00,23,01) = [FALSE]; # SCREEN/LINE MODE FLAG #
Line S00344 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00470 M03S00344.252l678 ---| ITEM TERSHOWFLG B(00,24,01) = [FALSE]; # CALLING PROCEDURE IS SHOW #
Line S00345 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00471 M03S00345.252l678 ---| ITEM TERSIZECLR B(00,25,01) = [FALSE]; # SIZE CHANGE CLEARS SCREEN #
Line S00346 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00472 M03S00346.252l678 ---| ITEM TERTABHOME B(00,26,01) = [FALSE]; # HARD TAB INCLUDES HOME #
Line S00347 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00473 M03S00347.252l678 ---| ITEM TERTABPROT B(00,27,01) = [FALSE]; # TABS TO UNPROTECTED FIELD #
Line S00348 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00474 M03S00348.252l678 ---| ITEM TERRESERVD U(00,28,29) = [FALSE]; # RESERVED #
Line S00349 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00475 M03S00349.252l678 ---| ITEM TERLEAVESM U(00,57,03) = [0]; # LEAVES MARK COUNT #
Line S00350 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
M03 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00476 M03S00350.252l678 ---| ITEM TERHELPFLD I(01,00,60) = [0]; # HELP FIELD INDEX #
Line S00044 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00477 M02S00044.252l678 ---| ITEM TERMSTATWD U(00,00,60) = [0]; # FULL WORD #
Line S00045 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00478 M02S00045.252l678 ---| ITEM TERABNTERM B(00,00,01); # ABNORMAL TERMINATION #
Line S00046 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00479 M02S00046.252l678 ---| ITEM TERASCFLAG B(00,01,01); # ASCII CODE SET FLAG #
Line S00047 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00480 M02S00047.252l678 ---| ITEM TERAS8FLAG B(00,02,01); # ASCII8 CODE SET FLAG #
Line S00048 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00481 M02S00048.252l678 ---| ITEM TERCURSSET B(00,03,01); # CURSOR SET BY SFSETP$ #
Line S00049 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00482 M02S00049.252l678 ---| ITEM TERCNWRIOV B(00,04,01); # OVERLAY WRITE ALLOWED #
Line S00050 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00483 M02S00050.252l678 ---| ITEM TERDONTCLR B(00,05,01); # RESPECT ENTERED/REWRITE #
Line S00051 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00484 M02S00051.252l678 ---| ITEM TERFUNCGEN B(00,06,01); # GENERIC FUNCTION KEY FLAG #
Line S00052 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00485 M02S00052.252l678 ---| ITEM TERGUARDMD B(00,07,01); # GUARD MODE AVAILABLE #
Line S00053 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00486 M02S00053.252l678 ---| ITEM TERHELPREQ B(00,08,01); # HELP REQUESTED #
Line S00054 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00487 M02S00054.252l678 ---| ITEM TERTABAUTO B(00,09,01); # AUTOMATIC TABBING #
Line S00055 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00488 M02S00055.252l678 ---| ITEM TERMESREAD B(00,10,01); # MESSAGE READ BY USER #
Line S00056 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00489 M02S00056.252l678 ---| ITEM TERMESWRIT B(00,11,01); # MESSAGE WRITTEN #
Line S00057 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00490 M02S00057.252l678 ---| ITEM TERMISSINP B(00,12,01); # INPUT OUTSIDE OF FIELD #
Line S00058 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00491 M02S00058.252l678 ---| ITEM TERNOINVRS B(00,13,01); # NO INPUT VARIABLES IN PANEL #
Line S00059 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00492 M02S00059.252l678 ---| ITEM TERNOREWRT B(00,14,01); # NOT REWRITING VARIABLES #
Line S00060 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00493 M02S00060.252l678 ---| ITEM TERNRMTERM B(00,15,01); # NORMAL TERMINATION #
Line S00061 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00494 M02S00061.252l678 ---| ITEM TERPENDHLP B(00,16,01); # HELP (AFTER SOFT TABS) #
Line S00062 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00495 M02S00062.252l678 ---| ITEM TERPROTECT B(00,17,01); # PROTECT MODE AVAILABLE #
Line S00063 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00496 M02S00063.252l678 ---| ITEM TERREADFLG B(00,18,01); # CALLING PROCEDURE IS READ #
Line S00064 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00497 M02S00064.252l678 ---| ITEM TERRETRNOS B(00,19,01); # TERMINATION RETURNS TO OS #
Line S00065 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00498 M02S00065.252l678 ---| ITEM TERREWFLDS B(00,20,01); # REWRITE FIELDS #
Line S00066 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00499 M02S00066.252l678 ---| ITEM TERREWSCRN B(00,21,01); # COMPLETE SCREEN REWRITE #
Line S00067 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00500 M02S00067.252l678 ---| ITEM TERSCREENM B(00,22,01); # SCREEN/LINE MODE FLAG #
Line S00068 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00501 M02S00068.252l678 ---| ITEM TERSHOWFLG B(00,23,01); # CALLING PROCEDURE IS SHOW #
Line S00069 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00502 M02S00069.252l678 ---| ITEM TERSIZECLR B(00,24,01); # SIZE CHANGE CLEARS SCREEN #
Line S00070 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00503 M02S00070.252l678 ---| ITEM TERTABHOME B(00,25,01); # HARD TAB INCLUDES HOME #
Line S00071 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00504 M02S00071.252l678 ---| ITEM TERTABPROT B(00,26,01); # TABS TO UNPROTECTED FIELD #
Line S00072 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00505 M02S00072.252l678 ---| ITEM TERBLCKMDE B(00,27,01); # BLOCK MODE TERMINAL #
Line S00073 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00506 M02S00073.252l678 ---| ITEM TERPTDWFPG B(00,28,01); # PROT. TABS WILL NOT WRAP PAGE #
Line S00074 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00507 M02S00074.252l678 ---| ITEM TERATTRSET B(00,29,01); # RESET ATTRIBUTES BEFORE VDTPOS #
Line S00075 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00508 M02S00075.252l678 ---| ITEM TERRESERVD U(00,30,25); # RESERVED #
Line S00076 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00509 M02S00076.252l678 ---| ITEM TERQTRMSOL B(00,55,01); # QTRM SCREEN OR LINE FLAG #
Line S00077 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00510 M02S00077.252l678 ---| ITEM TERWAITINP B(00,56,01); # QTRM WAITING FOR INPUT #
Line S00078 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00511 M02S00078.252l678 ---| ITEM TERLEAVESM U(00,57,03); # LEAVES MARK COUNT #
Line S00079 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00512 M02S00079.252l678 ---| ITEM TERACTPANL C(01,00,07) = [" "]; # ACTIVE PANEL NAME #
Line S00080 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00513 M02S00080.252l678 ---| ITEM TERACTPLTI I(02,00,60) = [0]; # GLOBAL ACTIVE PLT INDEX #
Line S00081 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00514 M02S00081.252l678 ---| ITEM TERCURSVAR C(03,00,07); # CURSOR VARIABLE POSITON #
Line S00082 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00515 M02S00082.252l678 ---| ITEM TERCURSOFF I(04,00,60); # CURSOR OFFSET POSITION #
Line S00083 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00516 M02S00083.252l678 ---| ITEM TERCURSROW I(05,00,60); # CURSOR ROW POSITION #
Line S00084 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00517 M02S00084.252l678 ---| ITEM TERFLDADDR U(06,00,60); # FIELD LIST ADDRESS #
Line S00085 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00518 M02S00085.252l678 ---| ITEM TERFUNCORD I(07,00,60); # FUNCTION KEY ORDINAL #
Line S00086 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00519 M02S00086.252l678 ---| ITEM TERFUNCPOS U(08,00,60) = [0]; # LAST FUNCTION KEY POSITION #
Line S00087 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00520 M02S00087.252l678 ---| ITEM TERHELPFLD I(09,00,60) = [0]; # HELP FIELD INDEX #
Line S00088 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00521 M02S00088.252l678 ---| ITEM TERSOFTTAB I(10,00,60); # NUMBER OF SOFT TABS PENDING #
Line S00089 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00522 M02S00089.252l678 ---| ITEM TERSOFTPOS I(11,00,60); # POSITION OF FIRST SOFT TAB #
Line S00090 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00523 M02S00090.252l678 ---| ITEM TERMODNAME C(12,00,07) = [" "]; # TERMINAL MODEL NAME #
Line S00091 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00524 M02S00091.252l678 ---| ITEM TERNUMCOLS U(13,00,60) = [0]; # NUMBER OF COLUMNS ON SCREEN #
Line S00092 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00525 M02S00092.252l678 ---| ITEM TERNUMLNES U(14,00,60) = [0]; # NUMBER OF LINES ON SCREEN #
Line S00351 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00526 M02S00351.252l678 ---| END 00527 M01S00001.252l678 +++| 00528 M01S00002.252l678 +++|ARRAY TERMSTAT [0:0] P(15); # TERMINAL STATUS FLAGS # 00529 M01S00003.252l678 +++| BEGIN 00530 M01S00004.252l678 +++| ITEM TERMSTATWD U(00,00,60) = [0]; # FULL WORD # 00531 M01S00005.252l678 +++| ITEM TERABNTERM B(00,00,01); # ABNORMAL TERMINATION # 00532 M01S00006.252l678 +++| ITEM TERASCFLAG B(00,01,01); # ASCII CODE SET FLAG # 00533 M01S00007.252l678 +++| ITEM TERAS8FLAG B(00,02,01); # ASCII8 CODE SET FLAG # 00534 M01S00008.252l678 +++| ITEM TERCURSSET B(00,03,01); # CURSOR SET BY SFSETP$ # 00535 M01S00009.252l678 +++| ITEM TERCNWRIOV B(00,04,01); # OVERLAY WRITE ALLOWED # 00536 M01S00010.252l678 +++| ITEM TERDONTCLR B(00,05,01); # RESPECT ENTERED/REWRITE # 00537 M01S00011.252l678 +++| ITEM TERFUNCGEN B(00,06,01); # GENERIC FUNCTION KEY FLAG # 00538 M01S00012.252l678 +++| ITEM TERHELPREQ B(00,07,01); # HELP REQUESTED # 00539 M01S00013.252l678 +++| ITEM TERMESREAD B(00,08,01); # MESSAGE READ BY USER # 00540 M01S00014.252l678 +++| ITEM TERMESWRIT B(00,09,01); # MESSAGE WRITTEN # 00541 M01S00015.252l678 +++| ITEM TERMISSINP B(00,10,01); # INPUT OUTSIDE OF FIELD # 00542 M01S00016.252l678 +++| ITEM TERNOINVRS B(00,11,01); # NO INPUT VARIABLES IN PANEL # 00543 M01S00017.252l678 +++| ITEM TERNOREWRT B(00,12,01); # NOT REWRITING VARIABLES # 00544 M01S00018.252l678 +++| ITEM TERNRMTERM B(00,13,01); # NORMAL TERMINATION # 00545 M01S00019.252l678 +++| ITEM TERPENDHLP B(00,14,01); # HELP (AFTER SOFT TABS) # 00546 M01S00020.252l678 +++| ITEM TERREADFLG B(00,15,01); # CALLING PROCEDURE IS READ # 00547 M01S00021.252l678 +++| ITEM TERREWFLDS B(00,16,01); # REWRITE FIELDS # 00548 M01S00022.252l678 +++| ITEM TERREWSCRN B(00,17,01); # COMPLETE SCREEN REWRITE # 00549 M01S00023.252l678 +++| ITEM TERSCREENM B(00,18,01); # SCREEN/LINE MODE FLAG # 00550 M01S00024.252l678 +++| ITEM TERSHOWFLG B(00,19,01); # CALLING PROCEDURE IS SHOW # 00551 M01S00025.252l678 +++| ITEM TERVDTBOOC B(00,20,01); # CALLED VDTBOO YET FLAG # 00552 M01S00026.252l678 +++| ITEM TERRESERV0 U(00,21,37); # RESERVED # 00553 M01S00027.252l678 +++| ITEM TERQTRMSOL B(00,58,01); # QTRM SCREEN OR LINE FLAG # 00554 M01S00028.252l678 +++| ITEM TERWAITINP B(00,59,01); # QTRM WAITING FOR INPUT # 00555 M01S00029.252l678 +++| ITEM TERACTPANL C(01,00,07) = [" "]; # ACTIVE PANEL NAME # 00556 M01S00030.252l678 +++| ITEM TERACTPLTI I(01,42,18) = [0]; # GLOBAL ACTIVE PLT INDEX # 00557 M01S00031.252l678 +++| ITEM TERHEADTHR U(02,00,60); # WORD THREE # 00558 M01S00032.252l678 +++| ITEM TERPTRHGTC U(02,00,04); # PROTECTED RIGHT BEHAVIOR # 00559 M01S00033.252l678 +++| ITEM TERPTLEFTC U(02,04,04); # PROTECTED LEFT BEHAVIOR # 00560 M01S00034.252l678 +++| ITEM TERPTUPCUR U(02,08,04); # PROTECTED UP BEHAVIOR # 00561 M01S00035.252l678 +++| ITEM TERPTDNCUR U(02,12,04); # PROTECTED DOWN BEHAVIOR # 00562 M01S00036.252l678 +++| ITEM TERUNRHGTC U(02,16,04); # UNPROTECTED RIGHT BEHAVIOR # 00563 M01S00037.252l678 +++| ITEM TERUNLEFTC U(02,20,04); # UNPROTECTED LEFT BEHAVIOR # 00564 M01S00038.252l678 +++| ITEM TERUNUPCUR U(02,24,04); # UNPROTECTED UP BEHAVIOR # 00565 M01S00039.252l678 +++| ITEM TERUNDNCUR U(02,28,04); # UNPROTECTED DOWN BEHAVIOR # 00566 M01S00040.252l678 +++| ITEM TERRESERV2 U(02,32,28); # RESERVED # 00567 M01S00041.252l678 +++| ITEM TERHEADFOU U(03,00,60); # WORD FOUR # 00568 M01S00042.252l678 +++| ITEM TERCURADDT U(03,00,06); # CURSOR ADDRESSING TYPE # 00569 M01S00043.252l678 +++| ITEM TERCURBIAS I(03,06,08); # CURSOR BIAS FOR POSTIONING # 00570 M01S00044.252l678 +++| ITEM TERLEFTCUR U(03,14,04); # CURSOR LEFT BEHAVIOR # 00571 M01S00045.252l678 +++| ITEM TERRGHTCUR U(03,18,04); # CURSOR RIGHT BEHAVIOR # 00572 M01S00046.252l678 +++| ITEM TERUPCURSR U(03,22,04); # CURSOR UP BEHAVIOR # 00573 M01S00047.252l678 +++| ITEM TERDWNCRSR U(03,26,04); # CURSOR DOWN BEHAVIOR # 00574 M01S00048.252l678 +++| ITEM TERLEFTCHR U(03,30,04); # CHARACTER LEFT BEHAVIOR # 00575 M01S00049.252l678 +++| ITEM TERRGHTCHR U(03,34,04); # CHARACTER RIGHT BEHAVIOR # 00576 M01S00050.252l678 +++| ITEM TERLASTPOS U(03,38,04); # LAST POSITION BEHAVIOR (CHAR) # 00577 M01S00051.252l678 +++| ITEM TERXFIRSTY B(03,42,01); # X BEFORE Y IN CURSOR OUTPUT # 00578 M01S00052.252l678 +++| ITEM TERXDECIML U(03,43,03); # X COORDINATE COUNT IF DECIMAL # 00579 M01S00053.252l678 +++| ITEM TERYDECIML U(03,46,03); # Y COORDINATE COUNT IF DECIMAL # 00580 M01S00054.252l678 +++| ITEM TERRESERV3 U(03,49,11); # RESERVED # 00581 M01S00055.252l678 +++| ITEM TERHEADFIV U(04,00,60); # WORD FIVE # 00582 M01S00056.252l678 +++| ITEM TERVTHOMEU B(04,00,01); # HOME UP FLAG # 00583 M01S00057.252l678 +++| ITEM TERPROTECT B(04,01,01); # TERMINAL HAS PROTECT # 00584 M01S00058.252l678 +++| ITEM TERVTDIFSS B(04,02,01); # DIFFERENT SCREEN SIZES # 00585 M01S00059.252l678 +++| ITEM TERVTUNUSD B(04,03,01); # UNUSED # 00586 M01S00060.252l678 +++| ITEM TERGUARDMD B(04,04,01); # TERMINAL HAS GUARD/HIDDEN MODE # 00587 M01S00061.252l678 +++| ITEM TERTABHOME B(04,05,01); # PROTECTED TAB GOES TO HOME # 00588 M01S00062.252l678 +++| ITEM TERTABPROT B(04,06,01); # TABS TO UNPROTECTED FIELDS # 00589 M01S00063.252l678 +++| ITEM TERVTABSTP B(04,07,01); # TABS TO TAB STOP # 00590 M01S00064.252l678 +++| ITEM TERSIZECLR B(04,08,01); # SIZE CHANGE CLEARS SCREEN # 00591 M01S00065.252l678 +++| ITEM TERTABAUTO B(04,09,01); # TERMINAL HAS AUTOMATIC TABBING # 00592 M01S00066.252l678 +++| ITEM TERTYPHEAD B(04,10,01); # TYPE AHEAD ENABLED # 00593 M01S00067.252l678 +++| ITEM TERBLCKMDE B(04,11,01); # BLOCK MODE TERMINAL # 00594 M01S00068.252l678 +++| ITEM TERPTDWFLN B(04,12,01); # PROT TABS DO NOT WRAP FWD LINE # 00595 M01S00069.252l678 +++| ITEM TERPTDWFPG B(04,13,01); # PROT TABS WILL NOT WRAP PAGE # 00596 M01S00070.252l678 +++| ITEM TERPTDWBLN B(04,14,01); # PROT TABS DO NOT WRAP BKW LINE # 00597 M01S00071.252l678 +++| ITEM TERPTDWBPG B(04,15,01); # PROT TABS DO NOT WRAP BKW PAGE # 00598 M01S00072.252l678 +++| ITEM TERUNDWFLN B(04,16,01); # UNPROT TABS DO NOT WRAP FWD LN # 00599 M01S00073.252l678 +++| ITEM TERUNDWFPG B(04,17,01); # UNPROT TABS DO NOT WRAP FWD PG # 00600 M01S00074.252l678 +++| ITEM TERUNDWBLN B(04,18,01); # UNPROT TABS DO NOT WRAP BKW LN # 00601 M01S00075.252l678 +++| ITEM TERUNDWBPG B(04,19,01); # UNPROT TABS DO NOT WRAP BKW PG # 00602 M01S00076.252l678 +++| ITEM TERATTRCHR B(04,20,01); # ATTRIBUTE CHARACTER NEEDS BYTE # 00603 M01S00077.252l678 +++| ITEM TERATTRSET B(04,21,01); # RESET ATTRIBUTES BEFORE VDTPOS # 00604 M01S00078.252l678 +++| ITEM TERSNDSPLR B(04,22,01); # SEND DISPLAY REWRITE FOR SFORM # 00605 M01S00079.252l678 +++| ITEM TERSNDSPLH B(04,23,01); # SEND DISPLAY ON HELP FOR SFORM # 00606 M01S00080.252l678 +++| ITEM TERNOTMASK B(04,24,01); # ATTRIBUTES ARE NOT MASKABLE # 00607 M01S00081.252l678 +++| ITEM TERNOTCHAR B(04,25,01); # ATTRIBUTES ARE LINE/PAGE BASED # 00608 M01S00082.252l678 +++| ITEM TERNOVDTEO B(04,26,01); # DISABLE OUTPUT END (ERR. EXIT) # 00609 M01S00083.252l678 +++| ITEM TERPROCLRS B(04,27,01); # PROTECT ALL CLEARS THE SCREEN # 00610 M01S00084.252l678 +++| ITEM TERCLEARSM B(04,28,01); # CLEARS ACROSS PROTECTED FIELDS # 00611 M01S00085.252l678 +++| ITEM TERRSBIT29 B(04,29,01); # RESERVED FOR CDC (FUTURE CODE) # 00612 M01S00086.252l678 +++| ITEM TERRSBIT30 B(04,30,01); # RESERVED FOR CDC (FUTURE CODE) # 00613 M01S00087.252l678 +++| ITEM TERRSBIT31 B(04,31,01); # RESERVED FOR CDC (FUTURE CODE) # 00614 M01S00088.252l678 +++| ITEM TERRSBIT32 B(04,32,01); # RESERVED FOR CDC (FUTURE CODE) # 00615 M01S00089.252l678 +++| ITEM TERRSBIT33 B(04,33,01); # RESERVED FOR CDC (FUTURE CODE) # 00616 M01S00090.252l678 +++| ITEM TERRSBIT34 B(04,34,01); # RESERVED FOR CDC (FUTURE CODE) # 00617 M01S00091.252l678 +++| ITEM TERRSBIT35 B(04,35,01); # RESERVED FOR CDC (FUTURE CODE) # 00618 M01S00092.252l678 +++| ITEM TERRSBIT36 B(04,36,01); # RESERVED FOR CDC (FUTURE CODE) # 00619 M01S00093.252l678 +++| ITEM TERINSTL01 B(04,37,01); # RESERVED FOR INSTALLATION CODE # 00620 M01S00094.252l678 +++| ITEM TERINSTL02 B(04,38,01); # RESERVED FOR INSTALLATION CODE # 00621 M01S00095.252l678 +++| ITEM TERINSTL03 B(04,39,01); # RESERVED FOR INSTALLATION CODE # 00622 M01S00096.252l678 +++| ITEM TERINSTL04 B(04,40,01); # RESERVED FOR INSTALLATION CODE # 00623 M01S00097.252l678 +++| ITEM TERINSTL05 B(04,41,01); # RESERVED FOR INSTALLATION CODE # 00624 M01S00098.252l678 +++| ITEM TERINSTL06 B(04,42,01); # RESERVED FOR INSTALLATION CODE # 00625 M01S00099.252l678 +++| ITEM TERINSTL07 B(04,43,01); # RESERVED FOR INSTALLATION CODE # 00626 M01S00100.252l678 +++| ITEM TERINSTL08 B(04,44,01); # RESERVED FOR INSTALLATION CODE # 00627 M01S00101.252l678 +++| ITEM TERINSTL09 B(04,45,01); # RESERVED FOR INSTALLATION CODE # 00628 M01S00102.252l678 +++| ITEM TERINSTL10 B(04,46,01); # RESERVED FOR INSTALLATION CODE # 00629 M01S00103.252l678 +++| ITEM TERINSTL11 B(04,47,01); # RESERVED FOR INSTALLATION CODE # 00630 M01S00104.252l678 +++| ITEM TERINSTL12 B(04,48,01); # RESERVED FOR INSTALLATION CODE # 00631 M01S00105.252l678 +++| ITEM TERINSTL13 B(04,49,01); # RESERVED FOR INSTALLATION CODE # 00632 M01S00106.252l678 +++| ITEM TERINSTL14 B(04,50,01); # RESERVED FOR INSTALLATION CODE # 00633 M01S00107.252l678 +++| ITEM TERINSTL15 B(04,51,01); # RESERVED FOR INSTALLATION CODE # 00634 M01S00108.252l678 +++| ITEM TERINSTL16 B(04,52,01); # RESERVED FOR INSTALLATION CODE # 00635 M01S00109.252l678 +++| ITEM TERINSTL17 B(04,53,01); # RESERVED FOR INSTALLATION CODE # 00636 M01S00110.252l678 +++| ITEM TERINSTL18 B(04,54,01); # RESERVED FOR INSTALLATION CODE # 00637 M01S00111.252l678 +++| ITEM TERINSTL19 B(04,55,01); # RESERVED FOR INSTALLATION CODE # 00638 M01S00112.252l678 +++| ITEM TERINSTL20 B(04,56,01); # RESERVED FOR INSTALLATION CODE # 00639 M01S00113.252l678 +++| ITEM TERLEAVESM U(04,57,03); # FUNCTION KEY MARK COUNT # 00640 M01S00114.252l678 +++| ITEM TERSOFTPOS I(05,00,24); # POSITION OF FIRST SOFT TAB # 00641 M01S00115.252l678 +++| ITEM TERCURSOFF I(05,24,18); # CURSOR OFFSET POSITION # 00642 M01S00116.252l678 +++| ITEM TERCURSROW I(05,42,18); # CURSOR ROW POSITION # 00643 M01S00117.252l678 +++| ITEM TERCURSVAR C(06,00,07); # CURSOR VARIABLE POSITION #
Line S00118 Modification History | |
---|---|
M01 (Added by) | 252l678 |
M02 (Updated by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 00644 M02S00118.ns2605 ---| ITEM TEROCOLONO U(06,42,06) = [58];# COLON REPRESENTATION # 00645 M01S00009.ns2605 +++| ITEM TERASC8ATD U(06,42,06) = [58];# ASCII FOR 6/12 AT/D # 00646 M01S00119.252l678 +++| ITEM TERSOFTTAB I(06,48,12); # NUMBER OF SOFT TABS PENDING # 00647 M01S00120.252l678 +++| ITEM TERPREVPOS U(07,00,60); # PREVIOUS ATTRIBUTE POSITION # 00648 M01S00121.252l678 +++| ITEM TERFLDADDR U(08,00,60); # FIELD LIST ADDRESS # 00649 M01S00122.252l678 +++| ITEM TERFLDFRST I(09,00,30); # POSITION OF FIRST INPUT FIELD # 00650 M01S00123.252l678 +++| ITEM TERFLDLAST I(09,30,30); # POSITION OF LAST INPUT FIELD # 00651 M01S00124.252l678 +++| ITEM TERFUNCPOS U(10,00,24) = [0]; # LAST FUNCTION KEY POSITION # 00652 M01S00125.252l678 +++| ITEM TERFUNCORD I(10,24,12); # FUNCTION KEY ORDINAL # 00653 M01S00126.252l678 +++| ITEM TERHELPFLD I(10,36,24) = [0]; # HELP FIELD INDEX # 00654 M01S00127.252l678 +++| ITEM TERMODNAME C(11,00,07) = [" "]; # TERMINAL MODEL NAME # 00655 M01S00128.252l678 +++| ITEM TERXXXXXXX U(11,42,18); # RESERVED FOR FUTURE (CDC) USE # 00656 M01S00129.252l678 +++| ITEM TERNUMCOLS U(12,00,60) = [0]; # NUMBER OF COLUMNS ON SCREEN # 00657 M01S00130.252l678 +++| ITEM TERNUMLNES U(13,00,60) = [0]; # NUMBER OF LINES ON SCREEN # 00658 M01S00131.252l678 +++| ITEM TERCURVORD I(14,00,60); # CURRENT VIDEO ATTR. ORDINAL # 00659 M01S00132.252l678 +++| END 00660 M01S00093.242l642 +++|*IF DEF,QTRM 00661 M01S00094.242l642 +++|CONTROL EJECT; 00662 M01S00352.sform +++|
Line S00353 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | ns2275 |
Seq # *Modification Id* Act ----------------------------+ 00663 M02S00353.ns2275 ---|ITEM TERMMODEL I = -1; # TERMINAL MODEL ORDINAL #
Line S00011 Modification History | |
---|---|
M01 (Added by) | ns2275 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00664 M02S00011.242l642 ---|ITEM TERMMODEL C(6) = " "; # TERMINAL MODEL NAME #
Line S00354 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00665 M02S00354.242l642 ---|ITEM ACTIVEPAN C(7) = " "; # GLOBAL ACTIVE PANEL NAME #
Line S00355 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00666 M02S00355.242l642 ---|ITEM ACTPANPLTI I = 0; # GLOBAL ACTIVE PLT INDEX #
Line S00356 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00667 M02S00356.242l642 ---|ITEM CURSORVAR C(7); # CURSOR VARIABLE POSITON #
Line S00357 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00668 M02S00357.242l642 ---|ITEM CURSOROFF I; # CURSOR OFFSET POSITION #
Line S00358 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00669 M02S00358.242l642 ---|ITEM CURSORROW I; # CURSOR ROW POSITION #
Line S00359 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00670 M02S00359.242l642 ---|ITEM FUNCORD I; # FUNCTION KEY ORDINAL #
Line S00360 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00671 M02S00360.242l642 ---|ITEM FUNCPOS U = 0; # LAST FUNCTION KEY POSITION #
Line S00361 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00672 M02S00361.242l642 ---|ITEM SOFTTAB I; # NUMBER OF SOFT TABS PENDING #
Line S00362 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00673 M02S00362.242l642 ---|ITEM SOFTPOS I; # POSITION OF FIRST SOFT TAB #
Line S00363 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00674 M02S00363.242l642 ---|ITEM NUMCOLS U = 0; # NUMBER OF COLUMNS ON SCREEN #
Line S00364 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00675 M02S00364.242l642 ---|ITEM NUMLINES U = 0; # NUMBER OF LINES ON SCREEN # 00676 M01S00095.242l642 +++|DEF FDASIZE #17#; # FIELD DATA AREA - QTRM SWAP # 00677 M01S00096.242l642 +++|DEF PLTSIZE #22#; # PANEL LOAD TABLE - QTRM SWAP # 00678 M01S00097.242l642 +++|DEF Q$HEADLEN #3#; # QTRM QUEUE HEADER LENGTH # 00679 M01S00098.242l642 +++|DEF Q$BLKSIZE #1000#; # QTRM BUFFER LENGTH # 00680 M01S00099.242l642 +++|DEF SFORMOFFSET #00#; # PANEL CONTROL TABLE OFFSET # 00681 M01S00100.242l642 +++|DEF SFORMSIZE #15#; # SFORM VARIABLES - QTRM SWAP # 00682 M01S00101.242l642 +++|DEF VDTASIZE #20#; # VARIABLE DATA - QTRM SWAP # 00683 M01S00102.242l642 +++|DEF VTERMSIZE #O"336"#; # VIRTERM VARIABLES - QTRM SWAP # 00684 M01S00103.242l642 +++| 00685 M01S00104.242l642 +++|DEF FDAOFFSET #VTERMOFFSET+VTERMSIZE#; 00686 M01S00105.242l642 +++|DEF PCTSIZE #SFORMSIZE+VTERMSIZE+FDASIZE+PLTSIZE+VDTASIZE #; 00687 M01S00106.242l642 +++|DEF PLTOFFSET #FDAOFFSET+FDASIZE#; 00688 M01S00107.242l642 +++|DEF VDTAOFFSET #PLTOFFSET+PLTSIZE#; 00689 M01S00108.242l642 +++|DEF VTERMOFFSET #SFORMOFFSET+SFORMSIZE#; 00690 M01S00109.242l642 +++| 00691 M01S00110.242l642 +++|CONTROL EJECT; 00692 M01S00111.242l642 +++| 00693 M01S00112.242l642 +++|COMMON COMVDT; # VIRTERM COMMON AREA # 00694 M01S00113.242l642 +++| 00695 M01S00114.242l642 +++|BEGIN # COMVDT # 00696 M01S00115.242l642 +++| 00697 M01S00116.242l642 +++| ARRAY COMVDT$WDS [0:0] P(VTERMSIZE); # TEMPORARY VIRTERM AREA # 00698 M01S00117.242l642 +++| BEGIN 00699 M01S00118.242l642 +++| ITEM COMVDT$WD0 U(00,00,60); # WORD ZERO (INTEGER) # 00700 M01S00119.242l642 +++| END 00701 M01S00120.242l642 +++| 00702 M01S00121.242l642 +++|END # COMVDT # 00703 M01S00122.242l642 +++| 00704 M01S00123.242l642 +++|ARRAY TERMSTHLD [0:0] P(SFORMSIZE); # TERMSTAT HOLD AREA # 00705 M01S00124.242l642 +++| BEGIN 00706 M01S00125.242l642 +++| ITEM TERINITHLD U(00,00,60); # WORD ZERO (INTEGER) # 00707 M01S00126.242l642 +++| END 00708 M01S00127.242l642 +++| 00709 M01S00128.242l642 +++|ARRAY VDTSTHLD [0:0] P(VTERMSIZE); # VIRTERM HOLD AREA (INIT) # 00710 M01S00129.242l642 +++| BEGIN 00711 M01S00130.242l642 +++| ITEM VDTINITHLD U(00,00,60); # WORD ZERO (INTEGER) # 00712 M01S00131.242l642 +++| END 00713 M01S00132.242l642 +++|*ENDIF 00714 M01S00365.sform +++|CONTROL EJECT; 00715 M01S00366.sform +++| 00716 M01S00367.sform +++|FUNC NEXTCHAR(FLDIND,INDEX); 00717 M01S00368.sform +++| 00718 M01S00369.sform +++|# TITLE NEXTCHAR - GET NEXT CHARACTER FROM VARDATA. # 00719 M01S00370.sform +++| 00720 M01S00371.sform +++|BEGIN # NEXTCHAR # 00721 M01S00372.sform +++| 00722 M01S00373.sform +++|# 00723 M01S00374.sform +++|** NEXTCHAR - GETS THE NEXT CHARACTER FROM VARDATA. 00724 M01S00375.sform +++|* 00725 M01S00376.sform +++|* THIS FUNCTION RETURNS THE CHARACTER IN POSITION INDEX OF VARIABLE 00726 M01S00377.sform +++|* FLDIND IN VARDATA. 00727 M01S00378.sform +++|* 00728 M01S00379.sform +++|* FUNC NEXTCHAR(FLDIND,INDEX) 00729 M01S00380.sform +++|* 00730 M01S00381.sform +++|* FLDIND = POINTER INTO FIELD LIST FOR VARIABLE. 00731 M01S00382.sform +++|* INDEX = RELATIVE POSITION OF CHARACTER IN VARDATA. 00732 M01S00383.sform +++|* 00733 M01S00384.sform +++|* EXIT CHARACTER FROM VARDATA. 00734 M01S00385.sform +++|# 00735 M01S00386.sform +++|ITEM FLDIND; # VARLIST POINTER OF VARIABLE # 00736 M01S00387.sform +++|ITEM INDEX; # RELATIVE POSITION OF CHARACTER # 00737 M01S00388.sform +++| 00738 M01S00389.sform +++|ITEM CHARIND; # CHARACTER INDEX IN VARDATA # 00739 M01S00390.sform +++|ITEM CHARNUM; # CHARACTER POSITION IN VARDATA # 00740 M01S00391.sform +++|ITEM WORDIND; # WORD INDEX IN VARDATA # 00741 M01S00392.sform +++| 00742 M01S00393.sform +++|CHARNUM = FLDVDTCORD[FLDIND] + INDEX; 00743 M01S00394.sform +++|WORDIND = CHARNUM / 5; 00744 M01S00395.sform +++|CHARIND = CHARNUM - 5*WORDIND; 00745 M01S00396.sform +++|NEXTCHAR = B<12*CHARIND,12>VDATAU[WORDIND]; 00746 M01S00397.sform +++| 00747 M01S00398.sform +++|END # NEXTCHAR # 00748 M01S00399.sform +++|CONTROL EJECT; 00749 M01S00400.sform +++| 00750 M01S00401.sform +++|FUNC UPPER(CHARAC); 00751 M01S00402.sform +++| 00752 M01S00403.sform +++|# TITLE UPPER - CONVERT CHARACTER TO UPPER CASE. # 00753 M01S00404.sform +++| 00754 M01S00405.sform +++|BEGIN # UPPER # 00755 M01S00406.sform +++| 00756 M01S00407.sform +++|# 00757 M01S00408.sform +++|** UPPER - CONVERT CHARACTER TO UPPER CASE. 00758 M01S00409.sform +++|* 00759 M01S00410.sform +++|* UPPER CONVERTS LOWER CASE CHARACTERS TO UPPER CASE AND 00760 M01S00411.sform +++|* LEAVES UPPER CASE CHARACTERS ALONE. 00761 M01S00412.sform +++|* 00762 M01S00413.sform +++|* PROC UPPER(CHARAC) 00763 M01S00414.sform +++|* 00764 M01S00415.sform +++|* ENTRY CHARAC = CHARACTER TO BE CONVERTED. 00765 M01S00416.sform +++|* 00766 M01S00417.sform +++|* EXIT UPPER CASE CHARACTER. 00767 M01S00418.sform +++|# 00768 M01S00419.sform +++|ITEM CHARAC; # CHARACTER TO BE CONVERTED # 00769 M01S00420.sform +++| 00770 M01S00421.sform +++|IF CHARAC GQ LOWA AND CHARAC LQ LOWZ THEN 00771 M01S00422.sform +++| BEGIN # IF LOWER CASE # 00772 M01S00423.sform +++| UPPER = CHARAC LXR BLANK; # CONVERT TO LOWER CASE # 00773 M01S00424.sform +++| END 00774 M01S00425.sform +++|ELSE 00775 M01S00426.sform +++| BEGIN # IF UPPER CASE # 00776 M01S00427.sform +++| UPPER = CHARAC; # DON'T CONVERT # 00777 M01S00428.sform +++| END 00778 M01S00429.sform +++| 00779 M01S00430.sform +++|END # UPPER # 00780 M01S00431.sform +++|CONTROL EJECT; 00781 M01S00432.sform +++| 00782 M01S00048.243l647 +++|PROC SFATTR$(NAME,NLENGTH,NOFFSET,NEWORD,OLDORD); 00783 M01S00049.243l647 +++| 00784 M01S00050.243l647 +++|# TITLE SFATTR$ - SET FIELD ATTRIBUTES. # 00785 M01S00051.243l647 +++| 00786 M01S00052.243l647 +++|BEGIN # SFATTR$ # 00787 M01S00053.243l647 +++| 00788 M01S00054.243l647 +++|# 00789 M01S00055.243l647 +++|** SFATTR$ - SET FIELD ATTRIBUTES. 00790 M01S00056.243l647 +++|* 00791 M01S00057.243l647 +++|* THIS PROCEDURE SETS NEW FIELD ATTRIBUTES FOR A VARIABLE FIELD. 00792 M01S00058.243l647 +++|* 00793 M01S00059.243l647 +++|* PROC SFATTR$(NAME,NLENGTH,NOFFSET,NEWORD,OLDORD) 00794 M01S00060.243l647 +++|* 00795 M01S00061.243l647 +++|* ENTRY NAME = NAME OF VARIABLE FIELD TO BE CHANGED. 00796 M01S00062.243l647 +++|* NLENGTH = LENGTH IN SIX BIT CHARACTERS. 00797 M01S00063.243l647 +++|* NOFFSET = OFFSET INTO VARIABLE NAME. 00798 M01S00064.243l647 +++|* NEWORD = NEW ATTRIBUTE ORDINAL. 00799 M01S00065.243l647 +++|* 00800 M01S00066.243l647 +++|* EXIT OLDORD = OLD ATTRIBUTE ORDINAL. 00801 M01S00067.243l647 +++|* = - 3 IF ORDINAL NOT LEGAL. 00802 M01S00068.243l647 +++|* = - 2 IF FIELD NOT FOUND IN PANEL. 00803 M01S00069.243l647 +++|* = - 1 IF ATTRIBUTE NOT FOUND IN PANEL. 00804 M01S00070.243l647 +++|* 00805 M01S00071.243l647 +++|* USES TERREWFLDS. 00806 M01S00072.243l647 +++|# 00807 M01S00073.243l647 +++|ITEM NAME C(11); # NAME OF VARIABLE FIELD # 00808 M01S00074.243l647 +++|ITEM NLENGTH I; # LENGTH IN SIX BIT CHARACTERS # 00809 M01S00075.243l647 +++|ITEM NOFFSET I; # OFFSET INTO NAME # 00810 M01S00076.243l647 +++|ITEM NEWORD I; # REQUESTED ATTRIBUTE ORDINAL # 00811 M01S00077.243l647 +++|ITEM OLDORD I; # OLD ATTRIBUTE ORDINAL # 00812 M01S00078.243l647 +++| 00813 M01S00079.243l647 +++|ITEM FLDINDEX I; # INDEX INTO FIELD LIST # 00814 M01S00080.243l647 +++|ITEM FIELDNAME C(7); # FIELD NAME, LEFT JUSTIFIED # 00815 M01S00081.243l647 +++|ITEM I I; # LOOP COUNTER # 00816 M01S00082.243l647 +++|ARRAY ATTRIBUTES [0:0] P(1); # HOLDS OLD AND NEW ATTRIBUTES # 00817 M01S00083.243l647 +++| BEGIN 00818 M01S00084.243l647 +++| ITEM ATTFULLONE U(00,00,60); # FULL WORD # 00819 M01S00085.243l647 +++| ITEM ATTUNUSED U(00,00,18); # UNUSED # 00820 M01S00086.243l647 +++| ITEM ATTINDEX I(00,18,18); # INDEX INTO ATTRIBUTE LIST # 00821 M01S00087.243l647 +++| ITEM ATTNEWMASK U(00,36,12); # TWELVE BIT ATTRIBUTE MASK # 00822 M01S00088.243l647 +++| ITEM ATTNEWLOGI B(00,36,01); # LOGICAL OR PHYSICAL ATTRIBUTE # 00823 M01S00089.243l647 +++| ITEM ATTNEWPROT B(00,37,01); # PROTECT # 00824 M01S00090.243l647 +++| ITEM ATTNEWGARD B(00,38,01); # GUARD MODE # 00825 M01S00091.243l647 +++| ITEM ATTNEWLORD U(00,42,06); # LOGICAL ORDINAL # 00826 M01S00092.243l647 +++| ITEM ATTOLDMASK U(00,48,12); # TWELVE BIT ATTRIBUTE MASK # 00827 M01S00093.243l647 +++| ITEM ATTOLDLOGI B(00,48,01); # LOGICAL OR PHYSICAL ATTRIBUTE # 00828 M01S00094.243l647 +++| ITEM ATTOLDPROT B(00,49,01); # PROTECT # 00829 M01S00095.243l647 +++| ITEM ATTOLDGARD B(00,50,01); # GUARD MODE # 00830 M01S00096.243l647 +++| ITEM ATTOLDLORD U(00,54,06); # LOGICAL ORDINAL # 00831 M01S00097.243l647 +++| END 00832 M01S00098.243l647 +++|ARRAY ATTMORDNLS [0:35] P(1); # ATTRIBUTE MASK BY ORDINAL # 00833 M01S00099.243l647 +++| BEGIN 00834 M01S00100.243l647 +++| ITEM ATTMASKORD U(00,00,60) = [ 00835 M01S00101.243l647 +++| O"6000", O"5000", O"4000", O"6001", O"5001", # 0 1 2 3 4 # 00836 M01S00102.243l647 +++| O"4001", O"6002", O"5002", O"4002", O"6003", # 5 6 7 8 9 # 00837 M01S00103.243l647 +++| O"5003", O"4003", O"6004", O"5004", O"4004", # 10 11 12 13 14 # 00838 M01S00104.243l647 +++| O"6005", O"5005", O"4005", O"6006", O"5006", # 15 16 17 18 19 # 00839 M01S00105.243l647 +++| O"4006", O"6007", O"5007", O"4007", O"6010", # 20 21 22 23 24 # 00840 M01S00106.243l647 +++| O"5010", O"4010", O"6011", O"5011", O"4011", # 25 26 27 28 29 # 00841 M01S00107.243l647 +++| O"6012", O"5012", O"4012", O"6013", O"5013", # 30 31 32 33 34 # 00842 M01S00108.243l647 +++| O"4013"]; # 35 # 00843 M01S00109.243l647 +++| END 00844 M01S00110.243l647 +++| 00845 M01S00111.243l647 +++|IF NLENGTH LS 1 THEN NLENGTH = 7; # CRACK PARAMETER # 00846 M01S00112.243l647 +++|FIELDNAME = C<NOFFSET,NLENGTH>NAME; 00847 M01S00113.243l647 +++| 00848 M01S00114.243l647 +++|OLDORD = - 3; # PRESET ORDINAL NOT LEGAL # 00849 M01S00115.243l647 +++|IF NEWORD LS 0 OR NEWORD GQ 36 THEN RETURN; 00850 M01S00116.243l647 +++| 00851 M01S00117.243l647 +++|OLDORD = - 2; # PRESET FIELD NOT FOUND # 00852 M01S00118.243l647 +++|ATTFULLONE[0] = 0; # CLEAR WORD # 00853 M01S00119.243l647 +++| 00854 M01S00120.243l647 +++|FLDINDEX = -1; 00855 M01S00121.243l647 +++|FOR I = 0 STEP 1 WHILE VAR2TYPE[I] NQ 0 AND FLDINDEX EQ - 1 DO 00856 M01S00122.243l647 +++| BEGIN # LOOK FOR VARIABLE VARNAME # 00857 M01S00123.243l647 +++| IF VAR2NME[I] EQ FIELDNAME THEN 00858 M01S00124.243l647 +++| BEGIN # FOUND SPECIFIED VARIABLE # 00859 M01S00125.243l647 +++| FLDINDEX = I; 00860 M01S00126.243l647 +++| END 00861 M01S00127.243l647 +++| END 00862 M01S00128.243l647 +++| 00863 M01S00129.243l647 +++|IF FLDINDEX NQ -1 THEN 00864 M01S00130.243l647 +++| BEGIN # IF FIELD FOUND IN VAR2LIST # 00865 M01S00131.243l647 +++| IF VAR2ARRORD[FLDINDEX] NQ 0 THEN 00866 M01S00132.243l647 +++| BEGIN # IF ARRAY MEMBER # 00867 M01S00133.243l647 +++| FLDINDEX = FLDINDEX + # FIND THAT FIELD # 00868 M01S00134.243l647 +++| ARR2NUMVAR[VAR2ARRORD[FLDINDEX]-1] * 00869 M01S00135.243l647 +++| ARR2CURROW[VAR2ARRORD[FLDINDEX]-1]; 00870 M01S00136.243l647 +++| END 00871 M01S00137.243l647 +++| FLDINDEX = VAR2FLDNUM[FLDINDEX] - 1; 00872 M01S00138.243l647 +++| ATTNEWMASK[0] = ATTMASKORD[NEWORD];
Line S00139 Modification History | |
---|---|
M01 (Added by) | 243l647 |
M02 (Updated by) | sform11 |
Seq # *Modification Id* Act ----------------------------+ 00873 M02S00139.sform11 ---| ATTOLDMASK[0] = ATT2MASK[FLDATTORD[FLDINDEX]]; 00874 M01S00001.sform11 +++| ATTOLDMASK[0] = ATT2MASK[FLD2ATTORD[FLDINDEX]]; 00875 M01S00140.243l647 +++| IF PAN2STRARR NQ 0 THEN 00876 M01S00141.243l647 +++| BEGIN # IF TABLE(S) IN PANEL # 00877 M01S00142.243l647 +++| OLDORD = PAN2STRARR[0] - PAN2STRATT[0]; 00878 M01S00143.243l647 +++| END 00879 M01S00144.243l647 +++| ELSE 00880 M01S00145.243l647 +++| BEGIN # NO TABLES # 00881 M01S00146.243l647 +++| IF PAN2STRBOX NQ 0 THEN 00882 M01S00147.243l647 +++| BEGIN # IF BOXES # 00883 M01S00148.243l647 +++| OLDORD = PAN2STRBOX[0] - PAN2STRATT[0]; 00884 M01S00149.243l647 +++| END 00885 M01S00150.243l647 +++| ELSE 00886 M01S00151.243l647 +++| BEGIN # NO BOXES OR TABLES # 00887 M01S00152.243l647 +++| OLDORD = (PAN2RECLEN[0] - PAN2STRATT[0]) - 1; 00888 M01S00153.243l647 +++| END 00889 M01S00154.243l647 +++| END 00890 M01S00155.243l647 +++| ATTINDEX[0] = 0; # SEARCH ATTRIBUTE LIST IN PANEL # 00891 M01S00156.243l647 +++| WHYLE ATT2MASK[ATTINDEX[0]] NQ ATTNEWMASK[0] AND 00892 M01S00157.243l647 +++| ATTINDEX[0] LS OLDORD DO 00893 M01S00158.243l647 +++| BEGIN # UNTIL END OF PANEL ATTRIBUTES # 00894 M01S00159.243l647 +++| ATTINDEX[0] = ATTINDEX[0] + 1; 00895 M01S00160.243l647 +++| END 00896 M01S00161.243l647 +++| IF ATTINDEX[0] LS OLDORD THEN 00897 M01S00162.243l647 +++| BEGIN # IF NEW ATTRIBUTE IS IN PANEL # 00898 M01S00163.243l647 +++| OLDORD = - 1; # PRESET BAD OLD ATTRIBUTE # 00899 M01S00164.243l647 +++| IF ATTOLDLOGI[0] THEN 00900 M01S00165.243l647 +++| BEGIN # IF OLD ATTRIBUTE WAS LOGICAL # 00901 M01S00166.243l647 +++| OLDORD = 0; # SEARCH ATTMORDNLS LIST # 00902 M01S00167.243l647 +++| WHYLE ATTOLDMASK[0] NQ ATTMASKORD[OLDORD] AND OLDORD LS 36 DO 00903 M01S00168.243l647 +++| BEGIN # UNTIL END OF ATTMORDNLS # 00904 M01S00169.243l647 +++| OLDORD = OLDORD + 1; 00905 M01S00170.243l647 +++| END 00906 M01S00171.243l647 +++| IF OLDORD GQ 36 THEN OLDORD = - 1; 00907 M01S00172.243l647 +++| END 00908 M01S00173.243l647 +++| ELSE 00909 M01S00174.243l647 +++| BEGIN # PHYSICAL ATTRIBUTES # 00910 M01S00175.243l647 +++| IF ATTOLDPROT[0] THEN 00911 M01S00176.243l647 +++| BEGIN # IF OUTPUT ONLY # 00912 M01S00177.243l647 +++| ATTINDEX[0] = 2; 00913 M01S00178.243l647 +++| OLDORD = 3; 00914 M01S00179.243l647 +++| END 00915 M01S00180.243l647 +++| ELSE 00916 M01S00181.243l647 +++| BEGIN # NOT OUTPUT ONLY # 00917 M01S00182.243l647 +++| IF NOT ATTOLDGARD[0] THEN 00918 M01S00183.243l647 +++| BEGIN # IF INPUT OUTPUT # 00919 M01S00184.243l647 +++| ATTINDEX[0] = 1; 00920 M01S00185.243l647 +++| OLDORD = 2; 00921 M01S00186.243l647 +++| END 00922 M01S00187.243l647 +++| END 00923 M01S00188.243l647 +++| END 00924 M01S00189.243l647 +++| IF OLDORD GQ 0 THEN 00925 M01S00190.243l647 +++| BEGIN # IF CHANGE IS INDEED POSSIBLE # 00926 M01S00191.243l647 +++| FLD2ATTORD[FLDINDEX] = ATTINDEX[0]; 00927 M01S00192.243l647 +++| TERREWFLDS[0] = TRUE; # SIGNAL FIELD REWRITE # 00928 M01S00193.243l647 +++| FLD2VALID[FLDINDEX] = FALSE; # RESET FIELD STATUS-S # 00929 M01S00194.243l647 +++| FLD2REWRIT[FLDINDEX] = TRUE; 00930 M01S00195.243l647 +++| FLD2ENTERE[FLDINDEX] = FALSE; 00931 M01S00196.243l647 +++| IF ATTNEWGARD[0] THEN 00932 M01S00197.243l647 +++| BEGIN # IF NEW MASK SHOWS GUARD # 00933 M01S00198.243l647 +++| FLD2INPUTV[FLDINDEX] = TRUE; 00934 M01S00199.243l647 +++| FLD2OUTPUT[FLDINDEX] = FALSE; 00935 M01S00200.243l647 +++| END 00936 M01S00201.243l647 +++| ELSE 00937 M01S00202.243l647 +++| BEGIN # NO GUARD # 00938 M01S00203.243l647 +++| IF ATTNEWPROT[0] THEN 00939 M01S00204.243l647 +++| BEGIN # IF NEW MASK SHOWS PROTECT # 00940 M01S00205.243l647 +++| FLD2INPUTV[FLDINDEX] = FALSE; 00941 M01S00206.243l647 +++| FLD2OUTPUT[FLDINDEX] = TRUE; 00942 M01S00207.243l647 +++| END 00943 M01S00208.243l647 +++| ELSE 00944 M01S00209.243l647 +++| BEGIN # NO GUARD OR PROTECT # 00945 M01S00210.243l647 +++| FLD2INPUTV[FLDINDEX] = TRUE; 00946 M01S00211.243l647 +++| FLD2OUTPUT[FLDINDEX] = TRUE; 00947 M01S00212.243l647 +++| END 00948 M01S00213.243l647 +++| END 00949 M01S00214.243l647 +++| END 00950 M01S00215.243l647 +++| END 00951 M01S00216.243l647 +++| ELSE 00952 M01S00217.243l647 +++| BEGIN # NEW ATTRIBUTE NOT IN PANEL # 00953 M01S00218.243l647 +++| OLDORD = - 1; # CHANGE NOT POSSIBLE # 00954 M01S00219.243l647 +++| END 00955 M01S00220.243l647 +++| END 00956 M01S00221.243l647 +++| 00957 M01S00222.243l647 +++|END # SFATTR$ # 00958 M01S00223.243l647 +++|CONTROL EJECT; 00959 M01S00224.243l647 +++| 00960 M01S00433.sform +++|PROC SFCLOS$(NAME,NLENGTH,NOFFSET,MODEFLAG); 00961 M01S00434.sform +++| 00962 M01S00435.sform +++|# TITLE SFCLOS$ - CLOSE PANEL. # 00963 M01S00436.sform +++| 00964 M01S00437.sform +++|BEGIN # SFCLOS$ # 00965 M01S00438.sform +++| 00966 M01S00439.sform +++|# 00967 M01S00440.sform +++|** SFCLOS$ - CLOSE PANEL. 00968 M01S00441.sform +++|* 00969 M01S00442.sform +++|* THIS PROCEDURE CLOSES THE SPECIFIED PANEL (UNLOADING IT USING 00970 M01S00443.sform +++|* THE FAST DYNAMIC LOADER IF IT IS NOT A STATICALLY LOADED PANEL) 00971 M01S00444.sform +++|* AND UPDATES THE PANEL LOAD TABLE TO REFLECT THE UNLOAD. IN ADD- 00972 M01S00445.sform +++|* ITION IF THE MODEFLAG IS SET TO ONE THE TERMINAL WILL BE RESET 00973 M01S00446.sform +++|* TO LINE MODE AND THE SCREEN CLEARED, IF THE MODEFLAG IS SET TO 00974 M01S00447.sform +++|* TWO THE TERMINAL WILL BE RESET TO LINE MODE WITH NO CHANGE TO 00975 M01S00448.sform +++|* THE DATA ON THE SCREEN. 00976 M01S00449.sform +++|* 00977 M01S00450.sform +++|* PROC SFCLOS$(NAME,NLENGTH,NOFFSET,MODEFLAG) 00978 M01S00451.sform +++|* 00979 M01S00452.sform +++|* ENTRY NAME = NAME OF PANEL TO BE CLOSED. 00980 M01S00453.sform +++|* NLENGTH = LENGTH IN SIX BIT CHARACTERS. 00981 M01S00454.sform +++|* NOFFSET = OFFSET INTO NAME. 00982 M01S00455.sform +++|* MODEFLAG = 0, REMAIN IN SCREEN MODE. 00983 M01S00456.sform +++|* 1, RESET TERMINAL TO LINE MODE, 00984 M01S00457.sform +++|* CLEAR SCREEN. 00985 M01S00458.sform +++|* 2, RESET TERMINAL TO LINE MODE. 00986 M01S00459.sform +++|* 00987 M01S00460.sform +++|* EXIT PANEL UNLOADED IF POSSIBLE, PLT UPDATED, TERMINAL 00988 M01S00461.sform +++|* SET TO LINE MODE IF MODEFLAG IS NON ZERO, SCREEN 00989 M01S00462.sform +++|* CLEARED IF MODEFLAG EQUAL TO ONE. 00990 M01S00463.sform +++|* 00991 M01S00464.sform +++|* CALLS ERRMSG, UCP, VDTBOO, VDTCLO, VDTCLS, VDTMSG$, VDTPOS, 00992 M01S00465.sform +++|* VDTSTM. 00993 M01S00466.sform +++|* 00994 M01S00467.sform +++|* USES TERACTIVEP, TERACTPANI, TERCNWRIOV, TERREADFLG, 00995 M01S00468.sform +++|* TERMESREAD, TERMESWRIT, TERSCREENM, TERSHOWFLG. 00996 M01S00469.sform +++|# 00997 M01S00470.sform +++|ITEM NAME C(11); # NAME OF PANEL TO CLOSE # 00998 M01S00471.sform +++|ITEM NLENGTH I; # LENGTH IN SIX BIT CHARACTERS # 00999 M01S00472.sform +++|ITEM NOFFSET I; # OFFSET INTO NAME # 01000 M01S00473.sform +++|ITEM MODEFLAG I; # FLUSH OUTPUT/CLEAR SCREEN FLAG # 01001 M01S00474.sform +++| 01002 M01S00475.sform +++|ITEM BLANKNAME C(7) = " "; # BLANK PANEL NAME # 01003 M01S00476.sform +++|ITEM FATAL B = FALSE; # NOT A FATAL ERROR # 01004 M01S00477.sform +++|ITEM LINE I = 0; # INDICATES LINE MODE TO VDT # 01005 M01S00478.sform +++|ITEM MSG C(25); # DAYFILE ERROR MESSAGE # 01006 M01S00479.sform +++|ITEM MSGB I = 0; # BLANK B DISPLAY # 01007 M01S00480.sform +++|ITEM NAMEINDEX I; # INDEX OF PANEL IF FOUND # 01008 M01S00481.sform +++|ITEM NUMBER I; # ON SCREEN SEQUENCE NUMBER # 01009 M01S00482.sform +++|ITEM PANELADDR I; # MEMORY ADDRESS OF PANEL # 01010 M01S00483.sform +++|ITEM PANELNAME C(7); # PANEL NAME, LEFT JUSTIFIED # 01011 M01S00484.sform +++|ITEM PLTCOUNT I; # COUNTER TO MOVE UP ENTRIES # 01012 M01S00485.sform +++|ITEM PLTINDEX I; # INDEX INTO PANEL LOAD TABLE # 01013 M01S00486.sform +++|ITEM PNAME C(6) = "SFCLOS"; # PROCEDURE NAME # 01014 M01S00487.sform +++|ITEM RECALL I = 1; # RECALL PARAMTER FOR VDTCLO # 01015 M01S00488.sform +++|ITEM UNLOADSTAT I; # UNLOAD STATUS FROM F.D.L. # 01016 M01S00489.sform +++|
Line S00490 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | ns2249 |
Seq # *Modification Id* Act ----------------------------+ 01017 M02S00490.ns2249 ---|IF NLENGTH LS 1 THEN NLENGTH = 7; # CRACK PARAMTER # 01018 M01S00001.ns2249 +++|IF NLENGTH LS 1 THEN NLENGTH = 7; # CRACK PARAMETER # 01019 M01S00491.sform +++|PANELNAME = C<NOFFSET,NLENGTH>NAME; # LEFT JUSTIFY PANEL NAME # 01020 M01S00492.sform +++|
Line S00493 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01021 M02S00493.242l642 ---|P<PLTABLE> = LOC(PLT); # REFERENCE PANEL LOAD TABLE # 01022 M01S00133.242l642 +++|*IF UNDEF,QTRM 01023 M01S00134.242l642 +++|P<PLTABLE> = LOC(PLT); # REFERENCE PANEL LOAD TABLE # 01024 M01S00135.242l642 +++|*ELSE 01025 M01S00136.242l642 +++|P<PLTABLE> = NIT$PCT[NIT$CON] + PLTOFFSET; # REFERENCE USER PLT # 01026 M01S00137.242l642 +++| 01027 M01S00138.242l642 +++|SFCLOS1: 01028 M01S00139.242l642 +++| 01029 M01S00140.242l642 +++|*ENDIF 01030 M01S00494.sform +++|PANELADDR = 0; 01031 M01S00495.sform +++| 01032 M01S00496.sform +++|FOR PLTINDEX = 1 STEP 1 WHILE 01033 M01S00497.sform +++| PANELADDR EQ 0 AND PLTINDEX LQ PLTNUMENT[0] DO 01034 M01S00498.sform +++| BEGIN # CHECK FOR PANEL NAME IN TABLE # 01035 M01S00499.sform +++| IF PLTENAME[PLTINDEX] EQ PANELNAME THEN 01036 M01S00500.sform +++| BEGIN # IF PANEL NAME FOUND # 01037 M01S00501.sform +++| PANELADDR = PLTADDR[PLTINDEX]; # SAVE ADDRESS OF PANEL RECORD # 01038 M01S00502.sform +++| NAMEINDEX = PLTINDEX; # SAVE INDEX INTO PLT # 01039 M01S00503.sform +++| END 01040 M01S00504.sform +++| END 01041 M01S00505.sform +++| 01042 M01S00506.sform +++|IF PANELADDR NQ 0 THEN 01043 M01S00507.sform +++| BEGIN # IF PANEL NAME IN TABLE # 01044 M01S00141.242l642 +++|*IF DEF,QTRM 01045 M01S00142.242l642 +++| IF P<PLTABLE> NQ LOC(PLT) THEN 01046 M01S00143.242l642 +++| BEGIN # IF NOT GLOBAL PLT # 01047 M01S00144.242l642 +++| NUMBER = PLTENTRYNM[NAMEINDEX]; 01048 M01S00145.242l642 +++| FOR PLTCOUNT = NAMEINDEX STEP 1 UNTIL PLTNUMENT[0] DO 01049 M01S00146.242l642 +++| BEGIN # MOVE ENTRIES UP # 01050 M01S00147.242l642 +++| PLTWORDONE[PLTCOUNT] = PLTWORDONE[PLTCOUNT+1]; 01051 M01S00148.242l642 +++| PLTWORDTWO[PLTCOUNT] = PLTWORDTWO[PLTCOUNT+1]; 01052 M01S00149.242l642 +++| END 01053 M01S00150.242l642 +++| PLTWORDONE[PLTNUMENT[0]] = 0; # CLEAR LAST ENTRY # 01054 M01S00151.242l642 +++| PLTWORDTWO[PLTNUMENT[0]] = 0; 01055 M01S00152.242l642 +++| PLTNUMENT[0] = PLTNUMENT[0] - 1; 01056 M01S00153.242l642 +++| IF NUMBER NQ 0 THEN 01057 M01S00154.242l642 +++| BEGIN # IF PANEL WAS ON SCREEN # 01058 M01S00155.242l642 +++| FOR PLTCOUNT = 1 STEP 1 UNTIL PLTNUMENT[0] DO 01059 M01S00156.242l642 +++| BEGIN # UPDATE SEQUENCE NUMBERS # 01060 M01S00157.242l642 +++| IF PLTENTRYNM[PLTCOUNT] GR NUMBER THEN 01061 M01S00158.242l642 +++| BEGIN 01062 M01S00159.242l642 +++| PLTENTRYNM[PLTCOUNT] = PLTENTRYNM[PLTCOUNT] -1; 01063 M01S00160.242l642 +++| END 01064 M01S00161.242l642 +++| END 01065 M01S00162.242l642 +++| PLTNUMONSC[0] = PLTNUMONSC[0] - 1; 01066 M01S00163.242l642 +++| END 01067 M01S00164.242l642 +++| P<PLTABLE> = LOC(PLT); # RESET FOR GLOBAL PLT # 01068 M01S00165.242l642 +++| GOTO SFCLOS1; # CONTINUE # 01069 M01S00166.242l642 +++| END 01070 M01S00167.242l642 +++| # DECREMENT COUNT IN GLOBAL PLT # 01071 M01S00168.242l642 +++| PLTNUMQTRM[NAMEINDEX] = PLTNUMQTRM[NAMEINDEX] - 1; 01072 M01S00169.242l642 +++| 01073 M01S00170.242l642 +++|*ENDIF 01074 M01S00508.sform +++| NUMBER = PLTENTRYNM[NAMEINDEX];
Line S00509 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01075 M02S00509.242l642 ---| IF PANELNAME EQ ACTIVEPAN THEN 01076 M01S00171.242l642 +++| IF PANELNAME EQ TERACTPANL[0] THEN 01077 M01S00510.sform +++| BEGIN # IF CLOSING ACTIVE PANEL #
Line S00511 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01078 M02S00511.242l642 ---| ACTIVEPAN = BLANKNAME;
Line S00512 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01079 M02S00512.242l642 ---| ACTPANPLTI = 0; 01080 M01S00172.242l642 +++| TERACTPANL[0] = BLANKNAME; 01081 M01S00173.242l642 +++| TERACTPLTI[0] = 0; 01082 M01S00513.sform +++| END
Line S00514 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01083 M02S00514.242l642 ---| IF NOT PLTSLFLAG[NAMEINDEX] THEN 01084 M01S00174.242l642 +++|*IF UNDEF,QTRM 01085 M01S00175.242l642 +++| IF NOT PLTSLFLAG[NAMEINDEX] THEN 01086 M01S00176.242l642 +++|*ELSE 01087 M01S00177.242l642 +++| IF NOT PLTSLFLAG[NAMEINDEX] AND PLTNUMQTRM[NAMEINDEX] EQ 0 THEN 01088 M01S00178.242l642 +++|*ENDIF 01089 M01S00515.sform +++| BEGIN # UNLOAD DYNAMIC PANEL # 01090 M01S00516.sform +++| UCP(PANELNAME,PANELADDR,UNLOADSTAT); 01091 M01S00517.sform +++| IF UNLOADSTAT NQ 0 THEN 01092 M01S00518.sform +++| BEGIN # ISSUE DAYFILE MESSAGE # 01093 M01S00519.sform +++| MSG = " NOT UNLOADED. "; 01094 M01S00520.sform +++| ERRMSG(PANELNAME,PNAME,MSG,FATAL); 01095 M01S00521.sform +++| END 01096 M01S00522.sform +++| FOR PLTCOUNT = NAMEINDEX STEP 1 UNTIL PLTNUMENT[0] DO 01097 M01S00523.sform +++| BEGIN # MOVE REMAINING ENTRIES UP ONE # 01098 M01S00524.sform +++| PLTWORDONE[PLTCOUNT] = PLTWORDONE[PLTCOUNT+1]; 01099 M01S00525.sform +++| PLTWORDTWO[PLTCOUNT] = PLTWORDTWO[PLTCOUNT+1]; 01100 M01S00526.sform +++| END 01101 M01S00527.sform +++| PLTWORDONE[PLTNUMENT[0]] = 0; # CLEAR LAST ENTRY IN TABLE # 01102 M01S00528.sform +++| PLTWORDTWO[PLTNUMENT[0]] = 0; 01103 M01S00529.sform +++| PLTNUMENT[0] = PLTNUMENT[0] - 1; # UPDATE NUMBER OF ENTRIES # 01104 M01S00530.sform +++| END 01105 M01S00531.sform +++| ELSE 01106 M01S00532.sform +++| BEGIN # CHECK STATUS OF STATIC PANEL # 01107 M01S00533.sform +++| IF PLTOPENFLG[NAMEINDEX] THEN 01108 M01S00534.sform +++| BEGIN # IF STATIC PANEL IS OPEN # 01109 M01S00535.sform +++| PLTOPENFLG[NAMEINDEX] = FALSE; # CLOSE STATIC PANEL # 01110 M01S00536.sform +++| PLTENTRYNM[NAMEINDEX] = 0; # CLEAR SEQUENCE NUMBER # 01111 M01S00537.sform +++| END 01112 M01S00538.sform +++| ELSE 01113 M01S00539.sform +++| BEGIN # IF STATIC PANEL ALREADY CLOSED # 01114 M01S00540.sform +++| MSG = " ALREADY CLOSED. "; 01115 M01S00541.sform +++| ERRMSG(PANELNAME,PNAME,MSG,FATAL); 01116 M01S00542.sform +++| END 01117 M01S00543.sform +++| END 01118 M01S00544.sform +++| IF NUMBER NQ 0 THEN 01119 M01S00545.sform +++| BEGIN # IF PANEL WAS ON SCREEN # 01120 M01S00546.sform +++| FOR PLTCOUNT = 1 STEP 1 UNTIL PLTNUMENT[0] DO 01121 M01S00547.sform +++| BEGIN # UPDATE SEQUENCE NUMBERS # 01122 M01S00548.sform +++| IF PLTENTRYNM[PLTCOUNT] GR NUMBER THEN 01123 M01S00549.sform +++| BEGIN 01124 M01S00550.sform +++| PLTENTRYNM[PLTCOUNT] = PLTENTRYNM[PLTCOUNT] - 1; 01125 M01S00551.sform +++| END 01126 M01S00552.sform +++| END 01127 M01S00553.sform +++| PLTNUMONSC[0] = PLTNUMONSC[0] - 1; 01128 M01S00554.sform +++| END 01129 M01S00555.sform +++| END 01130 M01S00556.sform +++|ELSE 01131 M01S00557.sform +++| BEGIN # IF PANEL NAME NOT IN TABLE # 01132 M01S00558.sform +++| MSG = " NOT IN PLT. "; 01133 M01S00559.sform +++| ERRMSG(PANELNAME,PNAME,MSG,FATAL); 01134 M01S00560.sform +++| END 01135 M01S00561.sform +++|IF MODEFLAG NQ 0 THEN 01136 M01S00562.sform +++| BEGIN 01137 M01S00563.sform +++| IF TERSCREENM[0] THEN 01138 M01S00564.sform +++| BEGIN # IF REVERSION TO LINE MODE # 01139 M01S00565.sform +++| TERSCREENM[0] = FALSE; # CLEAR FLAGS # 01140 M01S00001.ns2619a +++| IF NOT TERVDTBOOC[0] THEN 01141 M01S00002.ns2619a +++| BEGIN # IF BEGIN OUTPUT NEEDED # 01142 M01S00003.ns2619a +++| TERVDTBOOC[0] = TRUE; 01143 M01S00004.ns2619a +++| VDTBOO; 01144 M01S00005.ns2619a +++| END 01145 M01S00566.sform +++| IF MODEFLAG EQ 1 THEN 01146 M01S00567.sform +++| BEGIN # IF SCREEN IS TO BE CLEARED # 01147 M01S00568.sform +++| VDTCLS; # CLEAR SCREEN # 01148 M01S00569.sform +++| END 01149 M01S00570.sform +++| ELSE 01150 M01S00571.sform +++| BEGIN # POSITION CURSOR TO LAST LINE #
Line S00572 Modification History | |
---|---|
M01 (Added by) | sform |
M02 (Updated by) | ns2524 |
Seq # *Modification Id* Act ----------------------------+ 01151 M02S00572.ns2524 ---| VDTBOO; # BEGIN OUTPUT SEQUENCE #
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/sform.txt · Last modified: by 127.0.0.1