cdc:nos2.source:opl.opl871:deck:sform
Deck SFORM
Library Member Format: MODIFY
Listing Sections
- Deck SFORM Start
- Deck SFORM Part 1 (Line 1453)
- Deck SFORM Part 2 (Line 3127)
- Deck SFORM Part 3 (Line 4583)
- Deck SFORM Part 4 (Line 5960)
- Deck SFORM Part 5 (Line 7272)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.sform +++|PROC SFORM; 00002 M00S00002.sform +++| 00003 M00S00003.sform +++|# TITLE SFORM - SCREEN FORMATTING OBJECT ROUTINES. # 00004 M00S00004.sform +++| 00005 M00S00005.sform +++|BEGIN # SFORM # 00006 M00S00006.sform +++| 00007 M00S00007.sform +++|# 00008 M00S00008.sform +++|*** SFORM - SCREEN FORMATTING OBJECT ROUTINES. 00009 M00S00009.sform +++|*
| Line S00010 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00010.281l803 ---|* COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M00S00011.sform +++|# 00013 M00S00012.sform +++| 00014 M00S00013.sform +++|DEF EDITORVDT #0#; # STAND ALONE VERSION OF VIRTERM # 00015 M00S00014.sform +++|DEF EUROPEAN #0#; # NOT EUROPEAN NUMERIC FORMAT #
| Line S00015 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00016 M01S00015.242l642 ---|DEF LISTCON #0#; # DO NOT LIST COMMON DECKS #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Removed by) | ns2346 |
Seq # *Modification Id* Act ----------------------------+ 00017 M02S00001.ns2346 ---|DEF LISTCON #1#; # LIST COMMON DECKS # # IF #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2346 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00016.sform +++|DEF SINGLE #1#; # SINGLE USER (VIRTERM) #
| Line S00017 Modification History | |
|---|---|
M01 (Removed by) | ns2346 |
Seq # *Modification Id* Act ----------------------------+ 00024 M01S00017.ns2346 ---|DEF MULTI #0#; # NOT MULTI-USER VERSION #
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2346 |
Seq # *Modification Id* Act ----------------------------+ 00025 M01S00006.ns2346 +++|DEF MULTI #0#; # NOT A MULTI-USER #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00018.sform +++| 00032 M00S00019.sform +++|XDEF 00033 M00S00020.sform +++| BEGIN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 00034 M01S00001.243l647 +++| PROC SFATTR$; # SET FIELD ATTRIBUTES # 00035 M00S00021.sform +++| PROC SFCLOS$; # UNLOAD PANEL # 00036 M00S00022.sform +++| PROC SFCSET$; # SET CHARACTER SET #
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00037 M01S00007.242l642 +++|*IF DEF,QTRM 00038 M01S00008.242l642 +++| PROC SFDQUE$; # QTRM DEQUEUE TERMINAL DATA # 00039 M01S00009.242l642 +++|*ENDIF
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 00040 M01S00001.ns2605 +++| PROC SFGETF$; # GET FIELD CHARACTER STRING # 00041 M00S00023.sform +++| PROC SFGETI$; # GET INTEGER VALUE # 00042 M00S00024.sform +++| PROC SFGETK; # GET FUNCTION KEY INPUT #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 00043 M01S00001.241l630 +++| PROC SFGETN$; # GET TERMINAL MODEL NAME # 00044 M00S00025.sform +++| PROC SFGETP$; # GET FUNCTION KEY POSITION # 00045 M00S00026.sform +++| PROC SFGETR$; # GET REAL VALUE #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2619 |
Seq # *Modification Id* Act ----------------------------+ 00046 M01S00001.ns2619 +++| PROC SFLUSH$; # FLUSH OUTPUT TO SCREEN #
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00027.sform +++| PROC SFOPEN$; # LOAD PANEL AND OPEN FOR USE # 00052 M00S00028.sform +++| PROC SFPOSR$; # POSITION TABLE ROW #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 00053 M01S00002.ns2605 +++| PROC SFSETF$; # SET FIELD CHARACTER STRING #
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00054 M01S00014.242l642 +++|*IF DEF,QTRM 00055 M01S00015.242l642 +++| PROC SFQTRM$; # QTRM IDENTIFY USER # 00056 M01S00016.242l642 +++|*ENDIF 00057 M00S00029.sform +++| PROC SFSETP$; # SET CURSOR POSITION FOR READ # 00058 M00S00030.sform +++| PROC SFSREA$; # READ PANEL FROM TERMINAL #
| Line S00031 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00059 M01S00031.242l642 ---| PROC SFSSHO$; # WRITE AND READ PANEL #
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00060 M01S00017.242l642 +++|*IF UNDEF,QTRM 00061 M01S00018.242l642 +++| PROC SFSSHO$; # WRITE AND READ PANEL # 00062 M01S00019.242l642 +++|*ENDIF 00063 M00S00032.sform +++| PROC SFSWRI$; # WRITE PANEL TO TERMINAL # 00064 M00S00033.sform +++| END 00065 M00S00034.sform +++| 00066 M00S00035.sform +++|XREF 00067 M00S00036.sform +++| BEGIN 00068 M00S00037.sform +++|*CALL COMFXVT
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00038.sform +++| PROC VDTCLO; # CLOSE TERMINAL #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2619 |
Seq # *Modification Id* Act ----------------------------+ 00074 M01S00002.ns2619 +++| PROC VDTFOS; # FLUSH OUTPUT TO SCREEN #
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00075 M01S00024.242l642 +++|*IF UNDEF,QTRM 00076 M00S00039.sform +++| PROC VDTGSL; # GET TERMINAL MODEL #
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00077 M01S00025.242l642 +++|*ENDIF 00078 M00S00040.sform +++| PROC VDTMSG$; # DAYFILE AND B-DISPLAY MESSAGE #
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00079 M01S00026.242l642 +++|*IF UNDEF,QTRM 00080 M00S00041.sform +++| PROC VDTOPN; # OPEN TERMINAL #
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00081 M01S00027.242l642 +++|*ENDIF 00082 M00S00042.sform +++| END 00083 M00S00043.sform +++| 00084 M00S00044.sform +++|XREF 00085 M00S00045.sform +++| BEGIN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | sform21 |
Seq # *Modification Id* Act ----------------------------+ 00086 M01S00001.sform21 +++| PROC ABORT; # ABORT THE PROGRAM/USER # 00087 M00S00046.sform +++| FUNC GFP; # GENERATE FLOATING POINT VALUE # 00088 M00S00047.sform +++| PROC LCP; # LOAD CAPSULE # 00089 M00S00048.sform +++| PROC PLT; # PANEL LOAD TABLE # 00090 M00S00049.sform +++| PROC UCP; # UNLOAD CAPSULE # 00091 M00S00050.sform +++| END 00092 M00S00051.sform +++|CONTROL EJECT; 00093 M00S00052.sform +++| 00094 M00S00053.sform +++|# DEFINITIONS FOR COMMONLY USED CHARACTER VALUES, PSEUDO WHILE LOOP, # 00095 M00S00054.sform +++|# AND VALIDFIELD (DEFINED AS =FIELD GQ 0= ) WHICH IS FREQUENTLY USED # 00096 M00S00055.sform +++|# IN THE CODE TO DETERMINE IF THE FIELD IN QUESTION IS A VALID ONE. # 00097 M00S00056.sform +++| 00098 M00S00057.sform +++|DEF ASTERISK #O"0052"#; # 12 BIT ASTERISK # 00099 M00S00058.sform +++|DEF BLANK #O"0040"#; # 12 BIT BLANK # 00100 M00S00059.sform +++|DEF CAPA #O"0101"#; # 12 BIT UPPER CASE A # 00101 M00S00060.sform +++|DEF CAPE #O"0105"#; # 12 BIT UPPER CASE E # 00102 M00S00061.sform +++|DEF CAPZ #O"0132"#; # 12 BIT UPPER CASE Z #
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 00103 M01S00003.ns2605 +++|DEF CSMR #O"0067"#; # SYSTEM CHARACTER SET MODE WORD # 00104 M00S00062.sform +++|DEF COMMA #O"0054"#; # 12 BIT COMMA # 00105 M00S00063.sform +++|DEF DOLLAR #O"0044"#; # 12 BIT DOLLAR SIGN # 00106 M00S00064.sform +++|DEF LOWA #O"0141"#; # 12 BIT LOWER CASE A # 00107 M00S00065.sform +++|DEF LOWZ #O"0172"#; # 12 BIT LOWER CASE Z # 00108 M00S00066.sform +++|DEF MINUS #O"0055"#; # 12 BIT MINUS SIGN # 00109 M00S00067.sform +++|DEF NINECH #O"0071"#; # 12 BIT NINE (CHARACTER) # 00110 M00S00068.sform +++|DEF PANHEADLEN #5#; # LENGTH OF PANEL HEADER # 00111 M00S00069.sform +++|DEF PERIOD #O"0056"#; # 12 BIT PERIOD # 00112 M00S00070.sform +++|DEF PLUS #O"0053"#; # 12 BIT PLUS SIGN # 00113 M00S00071.sform +++|DEF VALIDFIELD #FIELD GQ 0#; # VALID INPUT FIELD # 00114 M00S00072.sform +++|DEF WHYLE #FOR DUMMY = DUMMY WHILE#; # PSUEDO WHILE LOOP # 00115 M00S00073.sform +++|DEF XMASKOF #B<51,9>#; # X COORDINATE PART OF FLDPOS # 00116 M00S00074.sform +++|DEF YMASKOF #B<45,6>#; # Y COORDINATE PART OF FLDPOS # 00117 M00S00075.sform +++|DEF ZEROCH #O"0060"#; # 12 BIT ZERO (CHARACTER) #
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Removed by) | ns2346 |
Seq # *Modification Id* Act ----------------------------+ 00118 M02S00028.ns2346 ---|CONTROL EJECT;
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2275 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00119 M02S00001.242l642 ---| 00120 M02S00002.242l642 ---|STATUS OPENSTATUS # SFOPEN STATUS # 00121 M02S00003.242l642 ---| NOERROR, # NO ERROR # 00122 M02S00004.242l642 ---| UNPANEL, # UNKNOWN PANEL NAME # 00123 M02S00005.242l642 ---| INCAPFOR, # INCORRECT CAPSULE FORMAT # 00124 M02S00006.242l642 ---| PLTFULL, # PANEL LOAD TABLE FULL # 00125 M02S00007.242l642 ---| PANELOPEN, # PANEL ALREADY OPEN # 00126 M02S00008.242l642 ---| INTERNAL, # INTERNAL *FDL* ERROR # 00127 M02S00009.242l642 ---| NOSCREEN, # NOT IN SCREEN MODE # 00128 M02S00010.242l642 ---| UNSPTERM; # UNSUPPORTED TERMINAL #
| Line S00076 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00129 M01S00076.242l642 ---| 00130 M01S00077.242l642 ---|STATUS MESSSTAT # MESSAGE PROMPTS # 00131 M01S00078.242l642 ---| HELP, # USER/SMF HELP # 00132 M01S00079.242l642 ---| CONFIRM, # PLEASE CONFIRM # 00133 M01S00080.242l642 ---| REENTER; # PLEASE REENTER # 00134 M01S00081.242l642 ---| 00135 M01S00082.242l642 ---|STATUS FORMTYPE # FORMAT TYPES # 00136 M01S00083.242l642 ---| BAD, # NOT VALID # 00137 M01S00084.242l642 ---| X, # DISPLAYABLE FORMAT # 00138 M01S00085.242l642 ---| A, # ALPHABETIC FORMAT # 00139 M01S00086.242l642 ---| NINE, # INTEGER FORMAT # 00140 M01S00087.242l642 ---| N, # NUMERIC FORMAT # 00141 M01S00088.242l642 ---| $, # DOLLAR FORMAT # 00142 M01S00089.242l642 ---| E, # REAL FORMAT # 00143 M01S00090.242l642 ---| Y, # YYMMDD DATE FORMAT # 00144 M01S00091.242l642 ---| M, # MMDDYY DATE FORMAT # 00145 M01S00092.242l642 ---| D; # DDMMYY DATE FORMAT # 00146 M01S00093.242l642 ---|
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00147 M01S00029.242l642 +++| 00148 M01S00030.242l642 +++|# COMFVDT CONTAINS STATUS SWITCHES USED BY SFORM, VIRTERM AND FSE. # 00149 M00S00094.sform +++|*CALL COMFVDT
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00095.sform +++|CONTROL EJECT; 00156 M00S00096.sform +++| 00157 M00S00097.sform +++|ITEM DUMMY I; # DUMMY PARAMETER # 00158 M00S00098.sform +++| 00159 M00S00099.sform +++|BASED ARRAY ARRLIST [0:0] S(2); # ARRAY LIST # 00160 M00S00100.sform +++| BEGIN 00161 M00S00101.sform +++| ITEM ARRNAME C(00,00,07); # ARRAY NAME # 00162 M00S00102.sform +++| ITEM ARRCURROW U(01,00,12); # CURRENT ROW ON SCREEN # 00163 M00S00103.sform +++| ITEM ARRTOPROW U(01,18,18); # TOP ROW ON SCREEN # 00164 M00S00104.sform +++| ITEM ARRNUMROWS U(01,36,08); # NUMBER OF ROWS ON SCREEN # 00165 M00S00105.sform +++| ITEM ARRNUMVARS U(01,44,08); # NUMBER OF VARIABLES PER ROW # 00166 M00S00106.sform +++| END
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00107.sform +++| 00174 M00S00108.sform +++|BASED ARRAY ATTLIST [0:0] P(1); # ATTRIBUTE LIST # 00175 M00S00109.sform +++| BEGIN 00176 M00S00110.sform +++| ITEM ATTMASK U(00,00,12); # ATTRIBUTE MASK FOR *VDTSAM* # 00177 M00S00111.sform +++| ITEM ATTLINEWT U(00,58,02); # LINE WEIGHT FOR *VDTBOX* # 00178 M00S00112.sform +++| END 00179 M00S00113.sform +++|
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00114.sform +++|BASED ARRAY BOXLIST [0:0] P(1); # BOX LIST # 00186 M00S00115.sform +++| BEGIN 00187 M00S00116.sform +++| ITEM BOXWORD U(00,00,60); # FULL WORD # 00188 M00S00117.sform +++| ITEM BOXATTORD U(00,00,12); # ATTRIBUTE ORDINAL # 00189 M00S00118.sform +++| ITEM BOXCHAR U(00,12,04); # LINE DRAWING CHARACTER # 00190 M00S00119.sform +++| ITEM BOXYCORD U(00,16,06); # Y COORDINATE # 00191 M00S00120.sform +++| ITEM BOXXCORD U(00,22,09); # X COORDINATE # 00192 M00S00121.sform +++| ITEM BOXREPEAT U(00,31,09); # REPEAT COUNT FOR THIS CHAR. # 00193 M00S00122.sform +++| END 00194 M00S00123.sform +++|
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00124.sform +++|BASED ARRAY FLDLIST [0:0] P(1); # FIELD LIST # 00201 M00S00125.sform +++| BEGIN 00202 M00S00126.sform +++| ITEM FLDENTRY U(00,00,60); # FULL WORD # 00203 M00S00127.sform +++| ITEM FLDVARFLAG B(00,00,01); # VARIABLE FIELD FLAG # 00204 M00S00128.sform +++| ITEM FLDATTORD U(00,01,07); # FIELD ATTRIBUTE ORDINAL # 00205 M00S00129.sform +++| ITEM FLDINPUTV B(00,08,01); # INPUT FIELD FLAG # 00206 M00S00130.sform +++| ITEM FLDOUTPUTV B(00,09,01); # OUTPUT FIELD FLAG #
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00207 M01S00036.242l642 +++| ITEM FLDSTFLAGS U(00,10,04); # FIELD STATUS FLAGS # 00208 M00S00131.sform +++| ITEM FLDENTERED B(00,10,01); # INPUT ENTERED IN FIELD FLAG # 00209 M00S00132.sform +++| ITEM FLDVALID B(00,11,01); # INPUT PASSED VALIDATION #
| Line S00133 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00210 M01S00133.242l642 ---| ITEM FLDREWRITE B(00,12,01); # REWRITE FILED TO SCREEN FLAG # 00211 M01S00134.242l642 ---| ITEM FLDACTIVE B(00,13,01); # ACTIVE FIELD #
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00135.sform +++| ITEM FLDVARORD U(00,15,08); # ORDINAL INTO VARLIST FOR FIELD # 00215 M00S00136.sform +++| ITEM FLDCONOS U(00,18,18); # CONSTANT OFFSET INTO RECORD # 00216 M00S00137.sform +++| ITEM FLDVDTCORD U(00,23,13); # CHARACTER ORDINAL IN VARDATA # 00217 M00S00138.sform +++| ITEM FLDLENGTH U(00,36,09); # LENGTH IN 12 BIT CHARACTERS # 00218 M00S00139.sform +++| ITEM FLDPOS U(00,45,15); # COORDINATES OF FIELD # 00219 M00S00140.sform +++| ITEM FLDYCORD U(00,45,06); # Y COORDINATE OF FIELD # 00220 M00S00141.sform +++| ITEM FLDXCORD U(00,51,09); # X COORDINATE OF FIELD # 00221 M00S00142.sform +++| END
| Line S00143 Modification History | |
|---|---|
M01 (Removed by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 00222 M01S00143.243l647 ---|
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00144.sform +++|BASED ARRAY FROMSTRING [0:0] P(1); # FROM STRING # 00236 M00S00145.sform +++| BEGIN 00237 M00S00146.sform +++| ITEM FROMSTRIU U(00,00,60); # FROMSTRING WORD (INTEGER) # 00238 M00S00147.sform +++| END
| Line S00148 Modification History | |
|---|---|
M01 (Removed by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 00239 M01S00148.243l647 ---|CONTROL EJECT; 00240 M00S00149.sform +++| 00241 M00S00150.sform +++|BASED ARRAY FUNLIST [0:0] S(1); # FUNCTION LIST # 00242 M00S00151.sform +++| BEGIN 00243 M00S00152.sform +++| ITEM FUNWORD U(00,00,60); # FIRST WORD OF ENTRY # 00244 M00S00153.sform +++| ITEM FUNASG U(00,26,18); # VARIABLE ASSIGNMENT OFFSET # 00245 M00S00154.sform +++| ITEM FUNACT U(00,44,09); # FUNCTION ACTION TO BE TAKEN # 00246 M00S00155.sform +++| ITEM FUNGENERIC B(00,53,01); # GENERIC FUNTION KEY FLAG # 00247 M00S00156.sform +++| ITEM FUNNUMBER I(00,54,06); # FUNCTION NUMBER # 00248 M00S00157.sform +++| END 00249 M00S00158.sform +++| 00250 M00S00159.sform +++|BASED ARRAY MATCHLIST [0:0] S(2); # MATCH LIST # 00251 M00S00160.sform +++| BEGIN 00252 M00S00161.sform +++| ITEM MATCHWORD U(00,00,60); # FIRST WORD OF MATCH LIST ENTRY # 00253 M00S00162.sform +++| ITEM MATCH C(00,00,20); # TWO WORD MATCH ITEM # 00254 M00S00163.sform +++| END 00255 M00S00164.sform +++| 00256 M00S00165.sform +++|BASED ARRAY PANELHEADR [0:0] S(5); # PANEL HEADER # 00257 M00S00166.sform +++| BEGIN 00258 M00S00167.sform +++| ITEM PANELNME C(00,00,07); # PANEL NAME # 00259 M00S00168.sform +++| ITEM PANPRIPAN B(00,58,01); # PRIMARY PANEL (NOT OVERLAY) # 00260 M00S00169.sform +++| ITEM PANNUMLNES U(01,00,06); # NUMBER OF LINES IN PANEL # 00261 M00S00170.sform +++| ITEM PANRECLEN U(01,06,18); # LENGTH OF PANEL IN WORDS # 00262 M00S00171.sform +++| ITEM PANSTRFUN U(01,24,18); # START OF FUNCTION LIST OFFSET # 00263 M00S00172.sform +++| ITEM PANSTRVAR U(01,42,18); # START OF VARIABLE LIST OFFSET # 00264 M00S00173.sform +++| ITEM PANVERSION U(02,00,06); # VERSION NUMBER # 00265 M00S00174.sform +++| ITEM PANSTRATT U(02,06,18); # START OF ATTRIBUTE LIST OFFSET # 00266 M00S00175.sform +++| ITEM PANSTRARR U(02,24,18); # START OF ARRAY LIST OFFSET # 00267 M00S00176.sform +++| ITEM PANSTRFLD U(02,42,18); # START OF FIELD LIST OFFSET # 00268 M00S00177.sform +++| ITEM PANSTRBOX U(03,06,18); # START OF BOX LIST OFFSET # 00269 M00S00178.sform +++| ITEM PANMSGLEN U(03,36,09); # MESSAGE FIELD LENGTH # 00270 M00S00179.sform +++| ITEM PANMSGYCRD U(03,45,06); # MESSAGE Y COORDINATE # 00271 M00S00180.sform +++| ITEM PANMSGXCRD U(03,51,09); # MESSAGE X CORRDINATE # 00272 M00S00181.sform +++| ITEM PANNUMBYTE U(04,00,13); # NUMBER OF BYTES IN VAR DATA # 00273 M00S00182.sform +++| ITEM PANNUMCOLS U(04,13,09); # NUMBER OF COLUMNS IN PANEL # 00274 M00S00183.sform +++| END
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00184.sform +++| 00289 M00S00185.sform +++|BASED ARRAY PLTABLE [0:0] S(2); # PANEL LOAD TABLE # 00290 M00S00186.sform +++| BEGIN 00291 M00S00187.sform +++| ITEM PLTWORDONE U(00,00,60); # WORD ONE OF TWO # 00292 M00S00188.sform +++| ITEM PLTENAME C(00,00,07); # PANEL NAME # 00293 M00S00189.sform +++| ITEM PLTENTRYNM U(00,48,12); # SEQUENCE NUMBER ON SCREEN # 00294 M00S00190.sform +++| ITEM PLTWORDTWO U(01,00,60); # WORD TWO OF TWO # 00295 M00S00191.sform +++| ITEM PLTSLFLAG B(01,00,01); # STATIC LOAD FLAG # 00296 M00S00192.sform +++| ITEM PLTOPENFLG B(01,01,01); # PANEL OPEN FLAG #
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00297 M01S00039.242l642 +++| ITEM PLTNUMQTRM I(01,24,12); # NUMBER OF QTRM USERS OF PANEL # 00298 M00S00193.sform +++| ITEM PLTNUMONSC U(01,36,12); # NUMBER OF PANELS ON SCREEN # 00299 M00S00194.sform +++| ITEM PLTADDR U(01,42,18); # MEMORY ADDRESS OF PANEL # 00300 M00S00195.sform +++| ITEM PLTNUMENT U(01,48,12); # CURRENT NUMBER OF ENTRIES # 00301 M00S00196.sform +++| END 00302 M00S00197.sform +++| 00303 M00S00198.sform +++|BASED ARRAY RECORD [0:0] P(1); # PANEL RECORD # 00304 M00S00199.sform +++| BEGIN 00305 M00S00200.sform +++| ITEM RECWORDC C(00,00,10); # PANEL RECORD WORD (CHARACTER) # 00306 M00S00201.sform +++| ITEM RECWORDR R(00,00,60); # PANEL RECORD WORD (REAL) # 00307 M00S00202.sform +++| ITEM RECWORDU U(00,00,60); # PANEL RECORD WORD (INTEGER) # 00308 M00S00203.sform +++| END
| Line S00204 Modification History | |
|---|---|
M01 (Removed by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 00309 M01S00204.243l647 ---|CONTROL EJECT; 00310 M00S00205.sform +++| 00311 M00S00206.sform +++|BASED ARRAY TOSTRING [0:0] P(1); # TO STRING # 00312 M00S00207.sform +++| BEGIN 00313 M00S00208.sform +++| ITEM TOSTRIU U(00,00,60); # TOSTRING WORD (INTEGER) # 00314 M00S00209.sform +++| END 00315 M00S00210.sform +++| 00316 M00S00211.sform +++|BASED ARRAY VARLIST [0:0] S(2); # VARIABLE LIST # 00317 M00S00212.sform +++| BEGIN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2469 |
Seq # *Modification Id* Act ----------------------------+ 00318 M01S00001.ns2469 +++| ITEM VARMUSCON B(00,00,01); # MUST CONTAIN (A VALUE) #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2469 |
M02 (Removed by) | ns2473 |
Seq # *Modification Id* Act ----------------------------+ 00319 M02S00002.ns2473 ---| ITEM VARESERVD B(00,01,01); # RESERVED #
| Line S00213 Modification History | |
|---|---|
M01 (Removed by) | ns2473 |
Seq # *Modification Id* Act ----------------------------+ 00320 M01S00213.ns2473 ---| ITEM VARFLDNUM U(00,02,08); # FIELD ORDINAL #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2473 |
Seq # *Modification Id* Act ----------------------------+ 00321 M01S00001.ns2473 +++| ITEM VARFLDNUM U(00,01,09); # FIELD ORDINAL # 00322 M00S00214.sform +++| ITEM VARROWNUM U(00,10,08); # ROW NUMBER # 00323 M00S00215.sform +++| ITEM VARARRORD U(00,18,05); # ARRAY ORDINAL # 00324 M00S00216.sform +++| ITEM VARMUSENTR B(00,23,01); # MUST ENTER DATA IN FIELD # 00325 M00S00217.sform +++| ITEM VARMUSFILL B(00,24,01); # MUST FILL FIELD WITH DATA # 00326 M00S00218.sform +++| ITEM VARMUSKNOW B(00,25,01); # * NOT ALLOWED # 00327 M00S00219.sform +++| ITEM VARTYPE U(00,26,02); # VARIABLE TYPE (INT CHAR REAL) # 00328 M00S00220.sform +++| ITEM VARPICTYPE U(00,28,08); # PICTURE TYPE # 00329 M00S00221.sform +++| ITEM VARVALTYPE U(00,36,06); # VALIDATION TYPE # 00330 M00S00222.sform +++| ITEM VARVALR B(00,40,01); # RANGE VALIDATION # 00331 M00S00223.sform +++| ITEM VARVALM B(00,41,01); # MATCH VALIDATION # 00332 M00S00224.sform +++| ITEM VARVALOS U(00,42,18); # VALIDATION OFFSET # 00333 M00S00225.sform +++| ITEM VARNME C(01,00,07); # VARIABLE NAME (DISPLAY CODE) # 00334 M00S00226.sform +++| ITEM VARHSOS U(01,42,18); # HELP STRING OFFSET # 00335 M00S00227.sform +++| END 00336 M00S00228.sform +++|
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2473 |
Seq # *Modification Id* Act ----------------------------+ 00339 M02S00040.ns2473 ---| ITEM VAR2FLDNUM U(00,02,08); # FIELD ORDINAL #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2473 |
Seq # *Modification Id* Act ----------------------------+ 00340 M01S00002.ns2473 +++| ITEM VAR2FLDNUM U(00,01,09); # FIELD ORDINAL #
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00229.sform +++|BASED ARRAY VDATA [0:0] P(1); # VAR DATA # 00347 M00S00230.sform +++| BEGIN 00348 M00S00231.sform +++| ITEM VDATAC C(00,00,10); # VARDATA WORD (CHARACTER) # 00349 M00S00232.sform +++| ITEM VDATAU U(00,00,60); # VARDATA WORD (INTEGER) # 00350 M00S00233.sform +++| END 00351 M00S00234.sform +++| 00352 M00S00235.sform +++|ARRAY CHARCONV1 [0:127] P(1); # DISPLAY CODE TO ASCII8 # 00353 M00S00236.sform +++| BEGIN 00354 M00S00237.sform +++| ITEM DC2A8 U(00,00,60)= [ 00355 M00S00238.sform +++| O"0072", O"0101", O"0102", O"0103", # COLON A B C # 00356 M00S00239.sform +++| O"0104", O"0105", O"0106", O"0107", # D E F G # 00357 M00S00240.sform +++| O"0110", O"0111", O"0112", O"0113", # H I J K # 00358 M00S00241.sform +++| O"0114", O"0115", O"0116", O"0117", # L M N O # 00359 M00S00242.sform +++| O"0120", O"0121", O"0122", O"0123", # P Q R S # 00360 M00S00243.sform +++| O"0124", O"0125", O"0126", O"0127", # T U V W # 00361 M00S00244.sform +++| O"0130", O"0131", O"0132", O"0060", # X Y Z 0 # 00362 M00S00245.sform +++| O"0061", O"0062", O"0063", O"0064", # 1 2 3 4 # 00363 M00S00246.sform +++| O"0065", O"0066", O"0067", O"0070", # 5 6 7 8 # 00364 M00S00247.sform +++| O"0071", O"0053", O"0055", O"0052", # 9 PLUS MINUS ASTERISK # 00365 M00S00248.sform +++| O"0057", O"0050", O"0051", O"0044", # SLANT LPAREN RPAREN DOLLAR # 00366 M00S00249.sform +++| O"0075", O"0040", O"0054", O"0056", # EQUAL BLANK COMMA PERIOD # 00367 M00S00250.sform +++| O"0043", O"0133", O"0135", O"0045", # POUND LBRAC RBRAC PERCENT # 00368 M00S00251.sform +++| O"0042", O"0137", O"0041", O"0046", # QUOTE UNDERLINE XPOINT AMPER # 00369 M00S00252.sform +++| O"0047", O"0077", O"0074", O"0076", # APOSTROPHE QMARK LTHAN GTHAN # 00370 M00S00253.sform +++| O"0100", O"0134", O"0136", O"0073", # ATSIGN REVSLANT CIRCUM SEMI # 00371 M00S00254.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00372 M00S00255.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00373 M00S00256.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00374 M00S00257.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00375 M00S00258.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00376 M00S00259.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00377 M00S00260.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00378 M00S00261.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00379 M00S00262.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00380 M00S00263.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00381 M00S00264.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00382 M00S00265.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00383 M00S00266.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00384 M00S00267.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00385 M00S00268.sform +++| O"0040", O"0040", O"0040", O"0040", # BLANK FILL # 00386 M00S00269.sform +++| O"0040", O"0040", O"0040", O"0040"]; # BLANK FILL # 00387 M00S00270.sform +++| END 00388 M00S00271.sform +++| 00389 M00S00272.sform +++|ARRAY CHARCONV2 [0:127] P(1); # ASCII8 TO DISPLAY CODE # 00390 M00S00273.sform +++| BEGIN 00391 M00S00274.sform +++| ITEM A82DC U(00,00,60)= [ 00392 M00S00275.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00393 M00S00276.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00394 M00S00277.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00395 M00S00278.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00396 M00S00279.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00397 M00S00280.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00398 M00S00281.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00399 M00S00282.sform +++| O"55", O"55", O"55", O"55", # BLANK FILL # 00400 M00S00283.sform +++| O"55", O"66", O"64", O"60", # BLANK XMARK QUOTE POUND # 00401 M00S00284.sform +++| O"53", O"63", O"67", O"70", # DOLLAR PERCENT AMPER APOS # 00402 M00S00285.sform +++| O"51", O"52", O"47", O"45", # LPAREN RPAREN ASTERISK PLUS # 00403 M00S00286.sform +++| O"56", O"46", O"57", O"50", # COMMA MINUS PERIOD SLANT # 00404 M00S00287.sform +++| O"33", O"34", O"35", O"36", # 0 1 2 3 # 00405 M00S00288.sform +++| O"37", O"40", O"41", O"42", # 4 5 6 7 # 00406 M00S00289.sform +++| O"43", O"44", O"00", O"77", # 8 9 COLON SEMI # 00407 M00S00290.sform +++| O"72", O"54", O"73", O"71", # LTHAN EQUAL GTHAN QMARK # 00408 M00S00291.sform +++| O"74", O"01", O"02", O"03", # ATSIGN UCA UCB UCC # 00409 M00S00292.sform +++| O"04", O"05", O"06", O"07", # UCD UCE UCF UCG # 00410 M00S00293.sform +++| O"10", O"11", O"12", O"13", # UCH UCI UCJ UCK # 00411 M00S00294.sform +++| O"14", O"15", O"16", O"17", # UCL UCM UCN UCO # 00412 M00S00295.sform +++| O"20", O"21", O"22", O"23", # UCP UCQ UCR UCS # 00413 M00S00296.sform +++| O"24", O"25", O"26", O"27", # UCT UCU UCV UCW # 00414 M00S00297.sform +++| O"30", O"31", O"32", O"61", # UCX UCY UCZ LBRAC # 00415 M00S00298.sform +++| O"75", O"62", O"76", O"65", # RSLANT RBRAC CIRCUM ULINE #
| Line S00299 Modification History | |
|---|---|
M01 (Removed by) | ns2407 |
Seq # *Modification Id* Act ----------------------------+ 00416 M01S00299.ns2407 ---| O"55", O"01", O"02", O"03", # GRAVE(NO EQ) LCA LCB LCC #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2407 |
Seq # *Modification Id* Act ----------------------------+ 00417 M01S00001.ns2407 +++| O"74", O"01", O"02", O"03", # GRAVE LCA LCB LCC # 00418 M00S00300.sform +++| O"04", O"05", O"06", O"07", # LCD LCE LCF LCG # 00419 M00S00301.sform +++| O"10", O"11", O"12", O"13", # LCH LCI LCJ LCK # 00420 M00S00302.sform +++| O"14", O"15", O"16", O"17", # LCL LCM LCN LCO # 00421 M00S00303.sform +++| O"20", O"21", O"22", O"23", # LCP LCQ LCR LCS # 00422 M00S00304.sform +++| O"24", O"25", O"26", O"27", # LCT LCU LCV LCW #
| Line S00305 Modification History | |
|---|---|
M01 (Removed by) | ns2407 |
Seq # *Modification Id* Act ----------------------------+ 00423 M01S00305.ns2407 ---| O"30", O"31", O"32", O"55", # LCX LCY LCZ LBRAC(NO EQ) # 00424 M01S00306.ns2407 ---| O"55", O"55", O"55", O"55"]; # VLINE RBRAC TILDE DEL(NO EQ) #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2407 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00307.sform +++| END 00428 M00S00308.sform +++| 00429 M00S00309.sform +++|ARRAY CHARCONV3 [1:7] P(1); # SPECIAL ASCII CODES # 00430 M00S00310.sform +++| BEGIN 00431 M00S00311.sform +++| ITEM AS2A8 U(00,00,60)= [ 00432 M00S00312.sform +++| O"0100", O"0136", O"0040", # ATSIGN CIRCUMFLEX (BLANK) # 00433 M00S00313.sform +++| O"0072", O"0040", O"0040", # COLON (BLANK) (BLANK) # 00434 M00S00314.sform +++| O"0140"]; # RSLANT # 00435 M00S00315.sform +++| END
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 00436 M01S00046.243l647 +++|CONTROL EJECT; 00437 M01S00047.243l647 +++|
| Line S00316 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00438 M01S00316.242l642 ---|CONTROL EJECT;
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00439 M02S00040.252l678 ---|ITEM CURORD I; # CURRENT ATTRIBUTE ORDINAL # 00440 M02S00041.252l678 ---|ITEM LASTPOS I; # PREVIOUS ATTRIBUTE POSITION # 00441 M02S00042.252l678 ---|ITEM FIRSTWRITE B = TRUE; # TRUE IF VDTBOO NOT YET CALLED #
| Line S00317 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00442 M01S00317.252l678 ---|
| Line S00318 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00443 M02S00318.252l678 ---|ARRAY TERMSTAT [0:0] P(2); # TERMINAL STATUS FLAGS #
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00444 M02S00043.252l678 ---|ARRAY TERMSTAT [0:0] P(15); # TERMINAL STATUS FLAGS #
| Line S00319 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00445 M01S00319.252l678 ---| BEGIN
| Line S00320 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00446 M02S00320.252l678 ---| ITEM TERABNTERM B(00,00,01) = [FALSE]; # ABNORMAL TERMINATION # 00447 M02S00321.252l678 ---| ITEM TERASCFLAG B(00,01,01) = [FALSE]; # ASCII CODE SET FLAG # 00448 M02S00322.252l678 ---| ITEM TERAS8FLAG B(00,02,01) = [FALSE]; # ASCII8 CODE SET FLAG # 00449 M02S00323.252l678 ---| ITEM TERCURSSET B(00,03,01) = [FALSE]; # CURSOR SET BY SFSETP$ # 00450 M02S00324.252l678 ---| ITEM TERCNWRIOV B(00,04,01) = [FALSE]; # OVERLAY WRITE ALLOWED # 00451 M02S00325.252l678 ---| ITEM TERDISFLAG B(00,05,01) = [TRUE]; # DISPLAY CODE SET FLAG # 00452 M02S00326.252l678 ---| ITEM TERDONTCLR B(00,06,01) = [FALSE]; # RESPECT ENTERED/REWRITE # 00453 M02S00327.252l678 ---| ITEM TERFUNCGEN B(00,07,01) = [FALSE]; # GENERIC FUNCTION KEY FLAG # 00454 M02S00328.252l678 ---| ITEM TERGUARDMD B(00,08,01) = [FALSE]; # GUARD MODE AVAILABLE # 00455 M02S00329.252l678 ---| ITEM TERHELPREQ B(00,09,01) = [FALSE]; # HELP REQUESTED # 00456 M02S00330.252l678 ---| ITEM TERINPVARS B(00,10,01) = [TRUE]; # INPUT VARIABLES IN PANEL # 00457 M02S00331.252l678 ---| ITEM TERTABAUTO B(00,11,01) = [FALSE]; # AUTOMATIC TABBING # 00458 M02S00332.252l678 ---| ITEM TERMESREAD B(00,12,01) = [FALSE]; # MESSAGE READ BY USER # 00459 M02S00333.252l678 ---| ITEM TERMESWRIT B(00,13,01) = [FALSE]; # MESSAGE WRITTEN # 00460 M02S00334.252l678 ---| ITEM TERMISSINP B(00,14,01) = [FALSE]; # INPUT OUTSIDE OF FIELD # 00461 M02S00335.252l678 ---| ITEM TERNRMTERM B(00,15,01) = [FALSE]; # NORMAL TERMINATION # 00462 M02S00336.252l678 ---| ITEM TERPENDHLP B(00,16,01) = [FALSE]; # HELP (AFTER SOFT TABS) # 00463 M02S00337.252l678 ---| ITEM TERPROTECT B(00,17,01) = [FALSE]; # PROTECT MODE AVAILABLE # 00464 M02S00338.252l678 ---| ITEM TERREADFLG B(00,18,01) = [FALSE]; # CALLING PROCEDURE IS READ # 00465 M02S00339.252l678 ---| ITEM TERRETRNOS B(00,19,01) = [FALSE]; # TERMINATION RETURNS TO OS # 00466 M02S00340.252l678 ---| ITEM TERREWFLDS B(00,20,01) = [FALSE]; # REWRITE FIELDS # 00467 M02S00341.252l678 ---| ITEM TERREWSCRN B(00,21,01) = [FALSE]; # COMPLETE SCREEN REWRITE # 00468 M02S00342.252l678 ---| ITEM TERREWVARS B(00,22,01) = [TRUE]; # REWRITE ALL VARIABLES # 00469 M02S00343.252l678 ---| ITEM TERSCREENM B(00,23,01) = [FALSE]; # SCREEN/LINE MODE FLAG # 00470 M02S00344.252l678 ---| ITEM TERSHOWFLG B(00,24,01) = [FALSE]; # CALLING PROCEDURE IS SHOW # 00471 M02S00345.252l678 ---| ITEM TERSIZECLR B(00,25,01) = [FALSE]; # SIZE CHANGE CLEARS SCREEN # 00472 M02S00346.252l678 ---| ITEM TERTABHOME B(00,26,01) = [FALSE]; # HARD TAB INCLUDES HOME # 00473 M02S00347.252l678 ---| ITEM TERTABPROT B(00,27,01) = [FALSE]; # TABS TO UNPROTECTED FIELD # 00474 M02S00348.252l678 ---| ITEM TERRESERVD U(00,28,29) = [FALSE]; # RESERVED # 00475 M02S00349.252l678 ---| ITEM TERLEAVESM U(00,57,03) = [0]; # LEAVES MARK COUNT # 00476 M02S00350.252l678 ---| ITEM TERHELPFLD I(01,00,60) = [0]; # HELP FIELD INDEX #
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00477 M02S00044.252l678 ---| ITEM TERMSTATWD U(00,00,60) = [0]; # FULL WORD # 00478 M02S00045.252l678 ---| ITEM TERABNTERM B(00,00,01); # ABNORMAL TERMINATION # 00479 M02S00046.252l678 ---| ITEM TERASCFLAG B(00,01,01); # ASCII CODE SET FLAG # 00480 M02S00047.252l678 ---| ITEM TERAS8FLAG B(00,02,01); # ASCII8 CODE SET FLAG # 00481 M02S00048.252l678 ---| ITEM TERCURSSET B(00,03,01); # CURSOR SET BY SFSETP$ # 00482 M02S00049.252l678 ---| ITEM TERCNWRIOV B(00,04,01); # OVERLAY WRITE ALLOWED # 00483 M02S00050.252l678 ---| ITEM TERDONTCLR B(00,05,01); # RESPECT ENTERED/REWRITE # 00484 M02S00051.252l678 ---| ITEM TERFUNCGEN B(00,06,01); # GENERIC FUNCTION KEY FLAG # 00485 M02S00052.252l678 ---| ITEM TERGUARDMD B(00,07,01); # GUARD MODE AVAILABLE # 00486 M02S00053.252l678 ---| ITEM TERHELPREQ B(00,08,01); # HELP REQUESTED # 00487 M02S00054.252l678 ---| ITEM TERTABAUTO B(00,09,01); # AUTOMATIC TABBING # 00488 M02S00055.252l678 ---| ITEM TERMESREAD B(00,10,01); # MESSAGE READ BY USER # 00489 M02S00056.252l678 ---| ITEM TERMESWRIT B(00,11,01); # MESSAGE WRITTEN # 00490 M02S00057.252l678 ---| ITEM TERMISSINP B(00,12,01); # INPUT OUTSIDE OF FIELD # 00491 M02S00058.252l678 ---| ITEM TERNOINVRS B(00,13,01); # NO INPUT VARIABLES IN PANEL # 00492 M02S00059.252l678 ---| ITEM TERNOREWRT B(00,14,01); # NOT REWRITING VARIABLES # 00493 M02S00060.252l678 ---| ITEM TERNRMTERM B(00,15,01); # NORMAL TERMINATION # 00494 M02S00061.252l678 ---| ITEM TERPENDHLP B(00,16,01); # HELP (AFTER SOFT TABS) # 00495 M02S00062.252l678 ---| ITEM TERPROTECT B(00,17,01); # PROTECT MODE AVAILABLE # 00496 M02S00063.252l678 ---| ITEM TERREADFLG B(00,18,01); # CALLING PROCEDURE IS READ # 00497 M02S00064.252l678 ---| ITEM TERRETRNOS B(00,19,01); # TERMINATION RETURNS TO OS # 00498 M02S00065.252l678 ---| ITEM TERREWFLDS B(00,20,01); # REWRITE FIELDS # 00499 M02S00066.252l678 ---| ITEM TERREWSCRN B(00,21,01); # COMPLETE SCREEN REWRITE # 00500 M02S00067.252l678 ---| ITEM TERSCREENM B(00,22,01); # SCREEN/LINE MODE FLAG # 00501 M02S00068.252l678 ---| ITEM TERSHOWFLG B(00,23,01); # CALLING PROCEDURE IS SHOW # 00502 M02S00069.252l678 ---| ITEM TERSIZECLR B(00,24,01); # SIZE CHANGE CLEARS SCREEN # 00503 M02S00070.252l678 ---| ITEM TERTABHOME B(00,25,01); # HARD TAB INCLUDES HOME # 00504 M02S00071.252l678 ---| ITEM TERTABPROT B(00,26,01); # TABS TO UNPROTECTED FIELD # 00505 M02S00072.252l678 ---| ITEM TERBLCKMDE B(00,27,01); # BLOCK MODE TERMINAL # 00506 M02S00073.252l678 ---| ITEM TERPTDWFPG B(00,28,01); # PROT. TABS WILL NOT WRAP PAGE # 00507 M02S00074.252l678 ---| ITEM TERATTRSET B(00,29,01); # RESET ATTRIBUTES BEFORE VDTPOS # 00508 M02S00075.252l678 ---| ITEM TERRESERVD U(00,30,25); # RESERVED # 00509 M02S00076.252l678 ---| ITEM TERQTRMSOL B(00,55,01); # QTRM SCREEN OR LINE FLAG # 00510 M02S00077.252l678 ---| ITEM TERWAITINP B(00,56,01); # QTRM WAITING FOR INPUT # 00511 M02S00078.252l678 ---| ITEM TERLEAVESM U(00,57,03); # LEAVES MARK COUNT # 00512 M02S00079.252l678 ---| ITEM TERACTPANL C(01,00,07) = [" "]; # ACTIVE PANEL NAME # 00513 M02S00080.252l678 ---| ITEM TERACTPLTI I(02,00,60) = [0]; # GLOBAL ACTIVE PLT INDEX # 00514 M02S00081.252l678 ---| ITEM TERCURSVAR C(03,00,07); # CURSOR VARIABLE POSITON # 00515 M02S00082.252l678 ---| ITEM TERCURSOFF I(04,00,60); # CURSOR OFFSET POSITION # 00516 M02S00083.252l678 ---| ITEM TERCURSROW I(05,00,60); # CURSOR ROW POSITION # 00517 M02S00084.252l678 ---| ITEM TERFLDADDR U(06,00,60); # FIELD LIST ADDRESS # 00518 M02S00085.252l678 ---| ITEM TERFUNCORD I(07,00,60); # FUNCTION KEY ORDINAL # 00519 M02S00086.252l678 ---| ITEM TERFUNCPOS U(08,00,60) = [0]; # LAST FUNCTION KEY POSITION # 00520 M02S00087.252l678 ---| ITEM TERHELPFLD I(09,00,60) = [0]; # HELP FIELD INDEX # 00521 M02S00088.252l678 ---| ITEM TERSOFTTAB I(10,00,60); # NUMBER OF SOFT TABS PENDING # 00522 M02S00089.252l678 ---| ITEM TERSOFTPOS I(11,00,60); # POSITION OF FIRST SOFT TAB # 00523 M02S00090.252l678 ---| ITEM TERMODNAME C(12,00,07) = [" "]; # TERMINAL MODEL NAME # 00524 M02S00091.252l678 ---| ITEM TERNUMCOLS U(13,00,60) = [0]; # NUMBER OF COLUMNS ON SCREEN # 00525 M02S00092.252l678 ---| ITEM TERNUMLNES U(14,00,60) = [0]; # NUMBER OF LINES ON SCREEN #
| Line S00351 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00526 M01S00351.252l678 ---| END
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 00644 M02S00118.ns2605 ---| ITEM TEROCOLONO U(06,42,06) = [58];# COLON REPRESENTATION #
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 00645 M01S00009.ns2605 +++| ITEM TERASC8ATD U(06,42,06) = [58];# ASCII FOR 6/12 AT/D #
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00660 M01S00093.242l642 +++|*IF DEF,QTRM 00661 M01S00094.242l642 +++|CONTROL EJECT; 00662 M00S00352.sform +++|
| Line S00353 Modification History | |
|---|---|
M01 (Removed by) | ns2275 |
Seq # *Modification Id* Act ----------------------------+ 00663 M01S00353.ns2275 ---|ITEM TERMMODEL I = -1; # TERMINAL MODEL ORDINAL #
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2275 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00664 M02S00011.242l642 ---|ITEM TERMMODEL C(6) = " "; # TERMINAL MODEL NAME #
| Line S00354 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00665 M01S00354.242l642 ---|ITEM ACTIVEPAN C(7) = " "; # GLOBAL ACTIVE PANEL NAME # 00666 M01S00355.242l642 ---|ITEM ACTPANPLTI I = 0; # GLOBAL ACTIVE PLT INDEX # 00667 M01S00356.242l642 ---|ITEM CURSORVAR C(7); # CURSOR VARIABLE POSITON # 00668 M01S00357.242l642 ---|ITEM CURSOROFF I; # CURSOR OFFSET POSITION # 00669 M01S00358.242l642 ---|ITEM CURSORROW I; # CURSOR ROW POSITION # 00670 M01S00359.242l642 ---|ITEM FUNCORD I; # FUNCTION KEY ORDINAL # 00671 M01S00360.242l642 ---|ITEM FUNCPOS U = 0; # LAST FUNCTION KEY POSITION # 00672 M01S00361.242l642 ---|ITEM SOFTTAB I; # NUMBER OF SOFT TABS PENDING # 00673 M01S00362.242l642 ---|ITEM SOFTPOS I; # POSITION OF FIRST SOFT TAB # 00674 M01S00363.242l642 ---|ITEM NUMCOLS U = 0; # NUMBER OF COLUMNS ON SCREEN # 00675 M01S00364.242l642 ---|ITEM NUMLINES U = 0; # NUMBER OF LINES ON SCREEN #
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00365.sform +++|CONTROL EJECT; 00715 M00S00366.sform +++| 00716 M00S00367.sform +++|FUNC NEXTCHAR(FLDIND,INDEX); 00717 M00S00368.sform +++| 00718 M00S00369.sform +++|# TITLE NEXTCHAR - GET NEXT CHARACTER FROM VARDATA. # 00719 M00S00370.sform +++| 00720 M00S00371.sform +++|BEGIN # NEXTCHAR # 00721 M00S00372.sform +++| 00722 M00S00373.sform +++|# 00723 M00S00374.sform +++|** NEXTCHAR - GETS THE NEXT CHARACTER FROM VARDATA. 00724 M00S00375.sform +++|* 00725 M00S00376.sform +++|* THIS FUNCTION RETURNS THE CHARACTER IN POSITION INDEX OF VARIABLE 00726 M00S00377.sform +++|* FLDIND IN VARDATA. 00727 M00S00378.sform +++|* 00728 M00S00379.sform +++|* FUNC NEXTCHAR(FLDIND,INDEX) 00729 M00S00380.sform +++|* 00730 M00S00381.sform +++|* FLDIND = POINTER INTO FIELD LIST FOR VARIABLE. 00731 M00S00382.sform +++|* INDEX = RELATIVE POSITION OF CHARACTER IN VARDATA. 00732 M00S00383.sform +++|* 00733 M00S00384.sform +++|* EXIT CHARACTER FROM VARDATA. 00734 M00S00385.sform +++|# 00735 M00S00386.sform +++|ITEM FLDIND; # VARLIST POINTER OF VARIABLE # 00736 M00S00387.sform +++|ITEM INDEX; # RELATIVE POSITION OF CHARACTER # 00737 M00S00388.sform +++| 00738 M00S00389.sform +++|ITEM CHARIND; # CHARACTER INDEX IN VARDATA # 00739 M00S00390.sform +++|ITEM CHARNUM; # CHARACTER POSITION IN VARDATA # 00740 M00S00391.sform +++|ITEM WORDIND; # WORD INDEX IN VARDATA # 00741 M00S00392.sform +++| 00742 M00S00393.sform +++|CHARNUM = FLDVDTCORD[FLDIND] + INDEX; 00743 M00S00394.sform +++|WORDIND = CHARNUM / 5; 00744 M00S00395.sform +++|CHARIND = CHARNUM - 5*WORDIND; 00745 M00S00396.sform +++|NEXTCHAR = B<12*CHARIND,12>VDATAU[WORDIND]; 00746 M00S00397.sform +++| 00747 M00S00398.sform +++|END # NEXTCHAR # 00748 M00S00399.sform +++|CONTROL EJECT; 00749 M00S00400.sform +++| 00750 M00S00401.sform +++|FUNC UPPER(CHARAC); 00751 M00S00402.sform +++| 00752 M00S00403.sform +++|# TITLE UPPER - CONVERT CHARACTER TO UPPER CASE. # 00753 M00S00404.sform +++| 00754 M00S00405.sform +++|BEGIN # UPPER # 00755 M00S00406.sform +++| 00756 M00S00407.sform +++|# 00757 M00S00408.sform +++|** UPPER - CONVERT CHARACTER TO UPPER CASE. 00758 M00S00409.sform +++|* 00759 M00S00410.sform +++|* UPPER CONVERTS LOWER CASE CHARACTERS TO UPPER CASE AND 00760 M00S00411.sform +++|* LEAVES UPPER CASE CHARACTERS ALONE. 00761 M00S00412.sform +++|* 00762 M00S00413.sform +++|* PROC UPPER(CHARAC) 00763 M00S00414.sform +++|* 00764 M00S00415.sform +++|* ENTRY CHARAC = CHARACTER TO BE CONVERTED. 00765 M00S00416.sform +++|* 00766 M00S00417.sform +++|* EXIT UPPER CASE CHARACTER. 00767 M00S00418.sform +++|# 00768 M00S00419.sform +++|ITEM CHARAC; # CHARACTER TO BE CONVERTED # 00769 M00S00420.sform +++| 00770 M00S00421.sform +++|IF CHARAC GQ LOWA AND CHARAC LQ LOWZ THEN 00771 M00S00422.sform +++| BEGIN # IF LOWER CASE # 00772 M00S00423.sform +++| UPPER = CHARAC LXR BLANK; # CONVERT TO LOWER CASE # 00773 M00S00424.sform +++| END 00774 M00S00425.sform +++|ELSE 00775 M00S00426.sform +++| BEGIN # IF UPPER CASE # 00776 M00S00427.sform +++| UPPER = CHARAC; # DON'T CONVERT # 00777 M00S00428.sform +++| END 00778 M00S00429.sform +++| 00779 M00S00430.sform +++|END # UPPER # 00780 M00S00431.sform +++|CONTROL EJECT; 00781 M00S00432.sform +++|
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | sform11 |
Seq # *Modification Id* Act ----------------------------+ 00873 M02S00139.sform11 ---| ATTOLDMASK[0] = ATT2MASK[FLDATTORD[FLDINDEX]];
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | sform11 |
Seq # *Modification Id* Act ----------------------------+ 00874 M01S00001.sform11 +++| ATTOLDMASK[0] = ATT2MASK[FLD2ATTORD[FLDINDEX]];
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | 243l647 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00433.sform +++|PROC SFCLOS$(NAME,NLENGTH,NOFFSET,MODEFLAG); 00961 M00S00434.sform +++| 00962 M00S00435.sform +++|# TITLE SFCLOS$ - CLOSE PANEL. # 00963 M00S00436.sform +++| 00964 M00S00437.sform +++|BEGIN # SFCLOS$ # 00965 M00S00438.sform +++| 00966 M00S00439.sform +++|# 00967 M00S00440.sform +++|** SFCLOS$ - CLOSE PANEL. 00968 M00S00441.sform +++|* 00969 M00S00442.sform +++|* THIS PROCEDURE CLOSES THE SPECIFIED PANEL (UNLOADING IT USING 00970 M00S00443.sform +++|* THE FAST DYNAMIC LOADER IF IT IS NOT A STATICALLY LOADED PANEL) 00971 M00S00444.sform +++|* AND UPDATES THE PANEL LOAD TABLE TO REFLECT THE UNLOAD. IN ADD- 00972 M00S00445.sform +++|* ITION IF THE MODEFLAG IS SET TO ONE THE TERMINAL WILL BE RESET 00973 M00S00446.sform +++|* TO LINE MODE AND THE SCREEN CLEARED, IF THE MODEFLAG IS SET TO 00974 M00S00447.sform +++|* TWO THE TERMINAL WILL BE RESET TO LINE MODE WITH NO CHANGE TO 00975 M00S00448.sform +++|* THE DATA ON THE SCREEN. 00976 M00S00449.sform +++|* 00977 M00S00450.sform +++|* PROC SFCLOS$(NAME,NLENGTH,NOFFSET,MODEFLAG) 00978 M00S00451.sform +++|* 00979 M00S00452.sform +++|* ENTRY NAME = NAME OF PANEL TO BE CLOSED. 00980 M00S00453.sform +++|* NLENGTH = LENGTH IN SIX BIT CHARACTERS. 00981 M00S00454.sform +++|* NOFFSET = OFFSET INTO NAME. 00982 M00S00455.sform +++|* MODEFLAG = 0, REMAIN IN SCREEN MODE. 00983 M00S00456.sform +++|* 1, RESET TERMINAL TO LINE MODE, 00984 M00S00457.sform +++|* CLEAR SCREEN. 00985 M00S00458.sform +++|* 2, RESET TERMINAL TO LINE MODE. 00986 M00S00459.sform +++|* 00987 M00S00460.sform +++|* EXIT PANEL UNLOADED IF POSSIBLE, PLT UPDATED, TERMINAL 00988 M00S00461.sform +++|* SET TO LINE MODE IF MODEFLAG IS NON ZERO, SCREEN 00989 M00S00462.sform +++|* CLEARED IF MODEFLAG EQUAL TO ONE. 00990 M00S00463.sform +++|* 00991 M00S00464.sform +++|* CALLS ERRMSG, UCP, VDTBOO, VDTCLO, VDTCLS, VDTMSG$, VDTPOS, 00992 M00S00465.sform +++|* VDTSTM. 00993 M00S00466.sform +++|* 00994 M00S00467.sform +++|* USES TERACTIVEP, TERACTPANI, TERCNWRIOV, TERREADFLG, 00995 M00S00468.sform +++|* TERMESREAD, TERMESWRIT, TERSCREENM, TERSHOWFLG. 00996 M00S00469.sform +++|# 00997 M00S00470.sform +++|ITEM NAME C(11); # NAME OF PANEL TO CLOSE # 00998 M00S00471.sform +++|ITEM NLENGTH I; # LENGTH IN SIX BIT CHARACTERS # 00999 M00S00472.sform +++|ITEM NOFFSET I; # OFFSET INTO NAME # 01000 M00S00473.sform +++|ITEM MODEFLAG I; # FLUSH OUTPUT/CLEAR SCREEN FLAG # 01001 M00S00474.sform +++| 01002 M00S00475.sform +++|ITEM BLANKNAME C(7) = " "; # BLANK PANEL NAME # 01003 M00S00476.sform +++|ITEM FATAL B = FALSE; # NOT A FATAL ERROR # 01004 M00S00477.sform +++|ITEM LINE I = 0; # INDICATES LINE MODE TO VDT # 01005 M00S00478.sform +++|ITEM MSG C(25); # DAYFILE ERROR MESSAGE # 01006 M00S00479.sform +++|ITEM MSGB I = 0; # BLANK B DISPLAY # 01007 M00S00480.sform +++|ITEM NAMEINDEX I; # INDEX OF PANEL IF FOUND # 01008 M00S00481.sform +++|ITEM NUMBER I; # ON SCREEN SEQUENCE NUMBER # 01009 M00S00482.sform +++|ITEM PANELADDR I; # MEMORY ADDRESS OF PANEL # 01010 M00S00483.sform +++|ITEM PANELNAME C(7); # PANEL NAME, LEFT JUSTIFIED # 01011 M00S00484.sform +++|ITEM PLTCOUNT I; # COUNTER TO MOVE UP ENTRIES # 01012 M00S00485.sform +++|ITEM PLTINDEX I; # INDEX INTO PANEL LOAD TABLE # 01013 M00S00486.sform +++|ITEM PNAME C(6) = "SFCLOS"; # PROCEDURE NAME # 01014 M00S00487.sform +++|ITEM RECALL I = 1; # RECALL PARAMTER FOR VDTCLO # 01015 M00S00488.sform +++|ITEM UNLOADSTAT I; # UNLOAD STATUS FROM F.D.L. # 01016 M00S00489.sform +++|
| Line S00490 Modification History | |
|---|---|
M01 (Removed by) | ns2249 |
Seq # *Modification Id* Act ----------------------------+ 01017 M01S00490.ns2249 ---|IF NLENGTH LS 1 THEN NLENGTH = 7; # CRACK PARAMTER #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2249 |
Seq # *Modification Id* Act ----------------------------+ 01018 M01S00001.ns2249 +++|IF NLENGTH LS 1 THEN NLENGTH = 7; # CRACK PARAMETER # 01019 M00S00491.sform +++|PANELNAME = C<NOFFSET,NLENGTH>NAME; # LEFT JUSTIFY PANEL NAME # 01020 M00S00492.sform +++|
| Line S00493 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01021 M01S00493.242l642 ---|P<PLTABLE> = LOC(PLT); # REFERENCE PANEL LOAD TABLE #
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00494.sform +++|PANELADDR = 0; 01031 M00S00495.sform +++| 01032 M00S00496.sform +++|FOR PLTINDEX = 1 STEP 1 WHILE 01033 M00S00497.sform +++| PANELADDR EQ 0 AND PLTINDEX LQ PLTNUMENT[0] DO 01034 M00S00498.sform +++| BEGIN # CHECK FOR PANEL NAME IN TABLE # 01035 M00S00499.sform +++| IF PLTENAME[PLTINDEX] EQ PANELNAME THEN 01036 M00S00500.sform +++| BEGIN # IF PANEL NAME FOUND # 01037 M00S00501.sform +++| PANELADDR = PLTADDR[PLTINDEX]; # SAVE ADDRESS OF PANEL RECORD # 01038 M00S00502.sform +++| NAMEINDEX = PLTINDEX; # SAVE INDEX INTO PLT # 01039 M00S00503.sform +++| END 01040 M00S00504.sform +++| END 01041 M00S00505.sform +++| 01042 M00S00506.sform +++|IF PANELADDR NQ 0 THEN 01043 M00S00507.sform +++| BEGIN # IF PANEL NAME IN TABLE #
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00508.sform +++| NUMBER = PLTENTRYNM[NAMEINDEX];
| Line S00509 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01075 M01S00509.242l642 ---| IF PANELNAME EQ ACTIVEPAN THEN
| Line S00171 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01076 M01S00171.242l642 +++| IF PANELNAME EQ TERACTPANL[0] THEN 01077 M00S00510.sform +++| BEGIN # IF CLOSING ACTIVE PANEL #
| Line S00511 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01078 M01S00511.242l642 ---| ACTIVEPAN = BLANKNAME; 01079 M01S00512.242l642 ---| ACTPANPLTI = 0;
| Line S00172 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01080 M01S00172.242l642 +++| TERACTPANL[0] = BLANKNAME; 01081 M01S00173.242l642 +++| TERACTPLTI[0] = 0; 01082 M00S00513.sform +++| END
| Line S00514 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01083 M01S00514.242l642 ---| IF NOT PLTSLFLAG[NAMEINDEX] THEN
| Line S00174 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00515.sform +++| BEGIN # UNLOAD DYNAMIC PANEL # 01090 M00S00516.sform +++| UCP(PANELNAME,PANELADDR,UNLOADSTAT); 01091 M00S00517.sform +++| IF UNLOADSTAT NQ 0 THEN 01092 M00S00518.sform +++| BEGIN # ISSUE DAYFILE MESSAGE # 01093 M00S00519.sform +++| MSG = " NOT UNLOADED. "; 01094 M00S00520.sform +++| ERRMSG(PANELNAME,PNAME,MSG,FATAL); 01095 M00S00521.sform +++| END 01096 M00S00522.sform +++| FOR PLTCOUNT = NAMEINDEX STEP 1 UNTIL PLTNUMENT[0] DO 01097 M00S00523.sform +++| BEGIN # MOVE REMAINING ENTRIES UP ONE # 01098 M00S00524.sform +++| PLTWORDONE[PLTCOUNT] = PLTWORDONE[PLTCOUNT+1]; 01099 M00S00525.sform +++| PLTWORDTWO[PLTCOUNT] = PLTWORDTWO[PLTCOUNT+1]; 01100 M00S00526.sform +++| END 01101 M00S00527.sform +++| PLTWORDONE[PLTNUMENT[0]] = 0; # CLEAR LAST ENTRY IN TABLE # 01102 M00S00528.sform +++| PLTWORDTWO[PLTNUMENT[0]] = 0; 01103 M00S00529.sform +++| PLTNUMENT[0] = PLTNUMENT[0] - 1; # UPDATE NUMBER OF ENTRIES # 01104 M00S00530.sform +++| END 01105 M00S00531.sform +++| ELSE 01106 M00S00532.sform +++| BEGIN # CHECK STATUS OF STATIC PANEL # 01107 M00S00533.sform +++| IF PLTOPENFLG[NAMEINDEX] THEN 01108 M00S00534.sform +++| BEGIN # IF STATIC PANEL IS OPEN # 01109 M00S00535.sform +++| PLTOPENFLG[NAMEINDEX] = FALSE; # CLOSE STATIC PANEL # 01110 M00S00536.sform +++| PLTENTRYNM[NAMEINDEX] = 0; # CLEAR SEQUENCE NUMBER # 01111 M00S00537.sform +++| END 01112 M00S00538.sform +++| ELSE 01113 M00S00539.sform +++| BEGIN # IF STATIC PANEL ALREADY CLOSED # 01114 M00S00540.sform +++| MSG = " ALREADY CLOSED. "; 01115 M00S00541.sform +++| ERRMSG(PANELNAME,PNAME,MSG,FATAL); 01116 M00S00542.sform +++| END 01117 M00S00543.sform +++| END 01118 M00S00544.sform +++| IF NUMBER NQ 0 THEN 01119 M00S00545.sform +++| BEGIN # IF PANEL WAS ON SCREEN # 01120 M00S00546.sform +++| FOR PLTCOUNT = 1 STEP 1 UNTIL PLTNUMENT[0] DO 01121 M00S00547.sform +++| BEGIN # UPDATE SEQUENCE NUMBERS # 01122 M00S00548.sform +++| IF PLTENTRYNM[PLTCOUNT] GR NUMBER THEN 01123 M00S00549.sform +++| BEGIN 01124 M00S00550.sform +++| PLTENTRYNM[PLTCOUNT] = PLTENTRYNM[PLTCOUNT] - 1; 01125 M00S00551.sform +++| END 01126 M00S00552.sform +++| END 01127 M00S00553.sform +++| PLTNUMONSC[0] = PLTNUMONSC[0] - 1; 01128 M00S00554.sform +++| END 01129 M00S00555.sform +++| END 01130 M00S00556.sform +++|ELSE 01131 M00S00557.sform +++| BEGIN # IF PANEL NAME NOT IN TABLE # 01132 M00S00558.sform +++| MSG = " NOT IN PLT. "; 01133 M00S00559.sform +++| ERRMSG(PANELNAME,PNAME,MSG,FATAL); 01134 M00S00560.sform +++| END 01135 M00S00561.sform +++|IF MODEFLAG NQ 0 THEN 01136 M00S00562.sform +++| BEGIN 01137 M00S00563.sform +++| IF TERSCREENM[0] THEN 01138 M00S00564.sform +++| BEGIN # IF REVERSION TO LINE MODE # 01139 M00S00565.sform +++| TERSCREENM[0] = FALSE; # CLEAR FLAGS #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2619a |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00566.sform +++| IF MODEFLAG EQ 1 THEN 01146 M00S00567.sform +++| BEGIN # IF SCREEN IS TO BE CLEARED # 01147 M00S00568.sform +++| VDTCLS; # CLEAR SCREEN # 01148 M00S00569.sform +++| END 01149 M00S00570.sform +++| ELSE 01150 M00S00571.sform +++| BEGIN # POSITION CURSOR TO LAST LINE #
| Line S00572 Modification History | |
|---|---|
M01 (Removed by) | ns2524 |
Seq # *Modification Id* Act ----------------------------+ 01151 M01S00572.ns2524 ---| VDTBOO; # BEGIN OUTPUT SEQUENCE #
| Line S00573 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01152 M01S00573.242l642 ---| VDTPOS(0,NUMLINES);
| Line S00179 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01153 M01S00179.242l642 +++| VDTPOS(0,TERNUMLNES[0]); 01154 M00S00574.sform +++| END 01155 M00S00575.sform +++| FOR PLTCOUNT = 1 STEP 1 UNTIL PLTNUMENT[0] DO 01156 M00S00576.sform +++| BEGIN # CLEAR SEQUENCE NUMBERS # 01157 M00S00577.sform +++| PLTENTRYNM[PLTCOUNT] = 0; 01158 M00S00578.sform +++| END 01159 M00S00579.sform +++| PLTNUMONSC[0] = 0; # NO PANELS ON SCREEN # 01160 M00S00580.sform +++| TERMESWRIT[0] = FALSE; 01161 M00S00581.sform +++| TERMESREAD[0] = FALSE;
| Line S00582 Modification History | |
|---|---|
M01 (Removed by) | ns2231 |
Seq # *Modification Id* Act ----------------------------+ 01162 M01S00582.ns2231 ---| VDTSTM(TERMMODEL,LINE); # SET LINE MODE #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2231 |
Seq # *Modification Id* Act ----------------------------+ 01163 M01S00001.ns2231 +++| VDTSTM(LINE,DUMMY); # SET LINE MODE #
| Line S00583 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01164 M01S00583.242l642 ---| VDTCLO(RECALL); # FLUSH OUTPUT, RECALL #
| Line S00180 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01165 M01S00180.242l642 +++|*IF UNDEF,QTRM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2524a |
M02 (Removed by) | ns2524b |
Seq # *Modification Id* Act ----------------------------+ 01166 M02S00001.ns2524b ---| IF NOT TERNOVDTEO[0] THEN VDTEOO; 01167 M02S00002.ns2524b ---| TERVDTBOOC[0] = FALSE;
| Line S00181 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01168 M01S00181.242l642 +++| VDTCLO(RECALL); # FLUSH OUTPUT WITH RECALL #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2524b |
Seq # *Modification Id* Act ----------------------------+ 01169 M01S00001.ns2524b +++| IF TERBLCKMDE[0] THEN TERVDTBOOC[0] = FALSE;
| Line S00182 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01170 M01S00182.242l642 +++|*ENDIF 01171 M00S00584.sform +++| END
| Line S00585 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01172 M01S00585.242l642 ---| ACTIVEPAN = " "; # CLEAR ACTIVE PANEL NAME # 01173 M01S00586.242l642 ---| ACTPANPLTI = 0; # CLEAR PLT INDEX #
| Line S00183 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01174 M01S00183.242l642 +++| TERACTPANL[0] = " "; # CLEAR ACTIVE PANEL NAME # 01175 M01S00184.242l642 +++| TERACTPLTI[0] = 0; # CLEAR PLT INDEX # 01176 M00S00587.sform +++| TERCNWRIOV[0] = FALSE; # DO NOT ALLOW OVERLAY WRITE # 01177 M00S00588.sform +++| VDTMSG$(MSGB,1,1); # BLANK B DISPLAY MESSAGE # 01178 M00S00589.sform +++| TERSHOWFLG[0] = FALSE; 01179 M00S00590.sform +++| TERREADFLG[0] = FALSE; 01180 M00S00591.sform +++| END 01181 M00S00592.sform +++| 01182 M00S00593.sform +++|END # SFCLOS$ # 01183 M00S00594.sform +++|CONTROL EJECT; 01184 M00S00595.sform +++| 01185 M00S00596.sform +++|PROC SFCSET$(CSET,CLENGTH,COFFSET); 01186 M00S00597.sform +++| 01187 M00S00598.sform +++|# TITLE SFCSET$ - SET CHARACTER SET. # 01188 M00S00599.sform +++| 01189 M00S00600.sform +++|BEGIN # SFCSET$ # 01190 M00S00601.sform +++| 01191 M00S00602.sform +++|# 01192 M00S00603.sform +++|** SFCSET$ - SET CHARACTER SET. 01193 M00S00604.sform +++|* 01194 M00S00605.sform +++|* THIS PROCEDURE SETS AND CLEARS THE GLOBAL FLAGS THAT INDICATE 01195 M00S00606.sform +++|* WHAT CHARACTER SET IS IN USE BY THE APPLICATION CALLING THE 01196 M00S00607.sform +++|* SCREEN FORMATTING OBJECT ROUTINES. IT INTERFACES TO COBOL AND 01197 M00S00608.sform +++|* FORTRAN APPLICATION PROGRAMS THROUGH A COMPASS INTERFACE MOD- 01198 M00S00609.sform +++|* ULE CALLED SFCSET. 01199 M00S00610.sform +++|* 01200 M00S00611.sform +++|* PROC SFCSET$(CSET,CLENGTH,COFFSET) 01201 M00S00612.sform +++|* 01202 M00S00613.sform +++|* ENTRY CSET = "DISPLAY", "ASCII", OR "ASCII8", 01203 M00S00614.sform +++|* IN DISPLAY CODE. 01204 M00S00615.sform +++|* CLENGTH = LENGTH IN SIX BIT CHARACTERS IN CHARSET. 01205 M00S00616.sform +++|* COFFSET = OFFSET INTO CHARSET. 01206 M00S00617.sform +++|* 01207 M00S00618.sform +++|* EXIT CORRECT CHARACTER SET FLAG SET, OTHERS CLEARED. 01208 M00S00619.sform +++|*
| Line S00620 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01209 M01S00620.242l642 ---|* USES TERASCFLAG, TERAS8FLAG, TERDISFLAG.
| Line S00185 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01210 M01S00185.242l642 +++|* USES TERASCFLAG, TERAS8FLAG. 01211 M00S00621.sform +++|* 01212 M00S00622.sform +++|* NOTES IF SFCSET$ IS CALLED WITH AN UNRECOGNIZABLE 01213 M00S00623.sform +++|* CHARACTER SET THEN THE DEFAULT CHARACTER SET 01214 M00S00624.sform +++|* (DISPLAY) WILL BE SET AND ALL OTHERS CLEARED. 01215 M00S00625.sform +++|* SFCSET$ ACCEPTS ONLY BLANK FILLED DISPLAY CODE 01216 M00S00626.sform +++|* STRINGS FOR THE CHARACTER SET. 01217 M00S00627.sform +++|# 01218 M00S00628.sform +++|ITEM CSET C(11); # CHAR. SET NAME IN DISPLAY CODE # 01219 M00S00629.sform +++|ITEM CLENGTH I; # LENGTH IN SIX BIT CHARACTERS # 01220 M00S00630.sform +++|ITEM COFFSET I; # OFFSET INTO CSET # 01221 M00S00631.sform +++| 01222 M00S00632.sform +++|ITEM ASCII C(7) = "ASCII "; # ASCII (IN DISPLAY CODE ) # 01223 M00S00633.sform +++|ITEM ASCII8 C(7) = "ASCII8 "; # ASCII8 (IN DISPLAY CODE) # 01224 M00S00634.sform +++|ITEM SET C(7); # CHARACTER SET, LEFT JUSTIFIED # 01225 M00S00635.sform +++|
| Line S00636 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01226 M01S00636.242l642 ---|IF CLENGTH LS 1 THEN CLENGTH = 7; # CRACK PARAMTER #
| Line S00186 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01227 M01S00186.242l642 +++|IF CLENGTH LS 1 THEN CLENGTH = 7; # CRACK PARAMETER # 01228 M00S00637.sform +++|SET = C<COFFSET,CLENGTH>CSET; 01229 M00S00638.sform +++| 01230 M00S00639.sform +++|IF SET EQ ASCII THEN 01231 M00S00640.sform +++| BEGIN # IF SIX TWELVE ASCII # 01232 M00S00641.sform +++| TERASCFLAG[0] = TRUE; 01233 M00S00642.sform +++| TERAS8FLAG[0] = FALSE;
| Line S00643 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01234 M01S00643.242l642 ---| TERDISFLAG[0] = FALSE; 01235 M00S00644.sform +++| END 01236 M00S00645.sform +++|ELSE 01237 M00S00646.sform +++| BEGIN 01238 M00S00647.sform +++| IF SET EQ ASCII8 THEN 01239 M00S00648.sform +++| BEGIN # IF TWELVE BIT ASCII # 01240 M00S00649.sform +++| TERASCFLAG[0] = FALSE; 01241 M00S00650.sform +++| TERAS8FLAG[0] = TRUE;
| Line S00651 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01242 M01S00651.242l642 ---| TERDISFLAG[0] = FALSE; 01243 M00S00652.sform +++| END 01244 M00S00653.sform +++| ELSE 01245 M00S00654.sform +++| BEGIN # SET DISPLAY CODE # 01246 M00S00655.sform +++| TERASCFLAG[0] = FALSE; 01247 M00S00656.sform +++| TERAS8FLAG[0] = FALSE;
| Line S00657 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01248 M01S00657.242l642 ---| TERDISFLAG[0] = TRUE; 01249 M00S00658.sform +++| END 01250 M00S00659.sform +++| END 01251 M00S00660.sform +++| 01252 M00S00661.sform +++|END # SFCSET$ #
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 01253 M01S00010.ns2605 +++|CONTROL EJECT; 01254 M01S00011.ns2605 +++| 01255 M01S00012.ns2605 +++|PROC SFGETF$(VNAME,VLEN,VOS,STRG,SLEN,SOS,CSET,CLEN,COS,STAT); 01256 M01S00013.ns2605 +++| BEGIN 01257 M01S00014.ns2605 +++|# 01258 M01S00015.ns2605 +++|** SFGETF$ - GET FIELD CHARACTER STRING. 01259 M01S00016.ns2605 +++|* 01260 M01S00017.ns2605 +++|* SFGETF$ TRANSFERS CHARACTERS FROM A SPECIFIED PANEL FIELD TO 01261 M01S00018.ns2605 +++|* A SPECIFIED STRING, USING *MOVEFLD*. 01262 M01S00019.ns2605 +++|* 01263 M01S00020.ns2605 +++|* PROC SFGETF$(VNAME,VLEN,VOS,STRG,SLEN,SOS,CSET,CLEN,COS,STAT) 01264 M01S00021.ns2605 +++|* 01265 M01S00022.ns2605 +++|* ENTRY VNAME = VARIABLE NAME OF FIELD. 01266 M01S00023.ns2605 +++|* VLEN = LENGTH OF VARNAME PARAMETER. 01267 M01S00024.ns2605 +++|* VOS = OFFSET OF VARNAME PARAMETER. 01268 M01S00025.ns2605 +++|* STRG = VARIABLE FIELD STRING. 01269 M01S00026.ns2605 +++|* SLEN = LENGTH OF STRING PARAMETER. 01270 M01S00027.ns2605 +++|* SOS = OFFSET OF STRING PARAMETER. 01271 M01S00028.ns2605 +++|* CSET = CHARACTER SET OF STRING (SEE SFCSET$). 01272 M01S00029.ns2605 +++|* CLEN = LENGTH OF CSET PARAMETER. 01273 M01S00030.ns2605 +++|* COS = OFFSET OF CSET PARAMETER. 01274 M01S00031.ns2605 +++|* 01275 M01S00032.ns2605 +++|* EXIT STAT GQ 0, NUMBER OF 6 BIT CHARACTERS MOVED. 01276 M01S00033.ns2605 +++|* LS 0, VARIABLE NOT FOUND IN ACTIVE PANELS. 01277 M01S00034.ns2605 +++|* 01278 M01S00035.ns2605 +++|* CALLS MOVEFLD. 01279 M01S00036.ns2605 +++|# 01280 M01S00037.ns2605 +++| 01281 M01S00038.ns2605 +++| ITEM VNAME I; # VARIABLE NAME # 01282 M01S00039.ns2605 +++| ITEM VLEN I; # LENGTH OF VARNAME PARAMETER # 01283 M01S00040.ns2605 +++| ITEM VOS I; # OFFSET INTO VARNAME PARAMETER # 01284 M01S00041.ns2605 +++| ITEM STRG I; # INSTRING PARAMETER # 01285 M01S00042.ns2605 +++| ITEM SLEN I; # LENGTH OF INSTRING # 01286 M01S00043.ns2605 +++| ITEM SOS I; # OFFSET INTO INSTRING # 01287 M01S00044.ns2605 +++| ITEM CSET I; # CHARACTER SET # 01288 M01S00045.ns2605 +++| ITEM CLEN I; # LENGTH OF CHARACTER SET # 01289 M01S00046.ns2605 +++| ITEM COS I; # OFFSET INTO CHARACTER SET # 01290 M01S00047.ns2605 +++| ITEM STAT I; # STATUS FIELD # 01291 M01S00048.ns2605 +++| 01292 M01S00049.ns2605 +++| 01293 M01S00050.ns2605 +++| STAT = 0; 01294 M01S00051.ns2605 +++| MOVEFLD(VNAME,VLEN,VOS,STRG,SLEN,SOS,CSET,CLEN,COS,STAT); 01295 M01S00052.ns2605 +++| RETURN; 01296 M01S00053.ns2605 +++| 01297 M01S00054.ns2605 +++|END # SFGETF$#
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01298 M01S00187.242l642 +++|*IF DEF,QTRM 01299 M01S00188.242l642 +++|CONTROL EJECT; 01300 M01S00189.242l642 +++| 01301 M01S00190.242l642 +++|PROC SFDQUE$(QNAME,QLEN,QOFF,BUFFER,RC,LENGTH); 01302 M01S00191.242l642 +++| 01303 M01S00192.242l642 +++|# TITLE SFDQUE$ - DEQUEUE A PIECE OF DATA FOR THIS TERMINAL. # 01304 M01S00193.242l642 +++| 01305 M01S00194.242l642 +++|BEGIN # SFDQUE$ # 01306 M01S00195.242l642 +++| 01307 M01S00196.242l642 +++|# 01308 M01S00197.242l642 +++|** SFDQUE$ - DEQUEUE A PIECE OF DATA FOR THIS TERMINAL. 01309 M01S00198.242l642 +++|* 01310 M01S00199.242l642 +++|* THIS PROCEDURE REMOVES *LENGTH* CHARACTERS FROM THE SPECIFIED 01311 M01S00200.242l642 +++|* QUEUE AND PLACES THE CHARACTERS INTO *BUFFER*. IT INTERFACES 01312 M01S00201.242l642 +++|* TO COBOL5 AND FTN5 APPLICATION PROGRAMS THROUGH A COMPASS 01313 M01S00202.242l642 +++|* INTERFACE CALLED SFDQUE. 01314 M01S00203.242l642 +++|* 01315 M01S00204.242l642 +++|* PROC SFDQUE$(QNAME,QLEN,QOFF,BUFFER,RC,LENGTH) 01316 M01S00205.242l642 +++|* 01317 M01S00206.242l642 +++|* ENTRY QNAME = QUEUE TO PLACE DATA INTO (GET OR PUT). 01318 M01S00207.242l642 +++|* QLEN = LENGTH OF QUEUE NAME. 01319 M01S00208.242l642 +++|* QOFF = OFFSET OF QUEUE NAME. 01320 M01S00209.242l642 +++|* LENGTH = BUFFER SIZE IN 12 BIT CHARACTERS. 01321 M01S00210.242l642 +++|* 01322 M01S00211.242l642 +++|* EXIT NIT$CTLC = COUNT OF CHARACTERS DEQUEUED. 01323 M01S00212.242l642 +++|* RC = 0, IF DATA DEQUEUED (NO ERROR). 01324 M01S00213.242l642 +++|* 1, IF MORE DATA AVAILABLE. 01325 M01S00214.242l642 +++|* 2, IF NO MESSAGES IN THE QUEUE. 01326 M01S00215.242l642 +++|* BUFFER = DEQUEUED DATA. 01327 M01S00216.242l642 +++|* 01328 M01S00217.242l642 +++|* CALLS CMMFRF. 01329 M01S00218.242l642 +++|# 01330 M01S00219.242l642 +++|ITEM QNAME C(7); # QUEUE NAME # 01331 M01S00220.242l642 +++|ITEM QLEN I; # QUEUE NAME LENGTH # 01332 M01S00221.242l642 +++|ITEM QOFF I; # QUEUE NAME OFFSET # 01333 M01S00222.242l642 +++|ARRAY BUFFER [0:0] P(1); # BUFFER # 01334 M01S00223.242l642 +++| BEGIN 01335 M01S00224.242l642 +++| ITEM B$WD0 U(00,00,60); # BUFFER WORD (INTEGER) # 01336 M01S00225.242l642 +++| END 01337 M01S00226.242l642 +++|ITEM RC I; # RETURN CODE # 01338 M01S00227.242l642 +++|ITEM LENGTH I; # BUFFER SIZE IN CHARACTERS # 01339 M01S00228.242l642 +++| 01340 M01S00229.242l642 +++|ITEM BIT I; # BIT POSITION # 01341 M01S00230.242l642 +++|ITEM B$CURBIT I; # CURRENT BIT # 01342 M01S00231.242l642 +++|ITEM B$CURWORD I; # CURRENT WORD # 01343 M01S00232.242l642 +++|ITEM I I; # LOOP VARIABLE # 01344 M01S00233.242l642 +++|ITEM J I; # LOOP VARIABLE # 01345 M01S00234.242l642 +++|ITEM MAX$CHARS I; # MAXIMUM NUMBER OF CHARACTERS # 01346 M01S00235.242l642 +++|ITEM QUEUENAME C(7); # QUEUE NAME # 01347 M01S00236.242l642 +++|ITEM RCC I; # RETURN CODE # 01348 M01S00237.242l642 +++|ITEM WORD I; # BUFFER WORD # 01349 M01S00238.242l642 +++| 01350 M01S00239.242l642 +++|B$CURBIT = 0; # POSITION TO START OF BUFFER # 01351 M01S00240.242l642 +++|B$CURWORD = 0; 01352 M01S00241.242l642 +++|P<Q$HEADER> = CHAIN; 01353 M01S00242.242l642 +++| 01354 M01S00243.242l642 +++|IF QLEN LS 1 THEN QLEN = 7; # CRACK PARAMETER # 01355 M01S00244.242l642 +++|QUEUENAME = C<QOFF,QLEN>QNAME; 01356 M01S00245.242l642 +++| 01357 M01S00246.242l642 +++|WHYLE P<Q$HEADER> NQ 0 DO 01358 M01S00247.242l642 +++| BEGIN # SEARCH FOR QUEUE FOR THIS ACN # 01359 M01S00248.242l642 +++| IF (( NIT$CON EQ Q$ACN ) AND 01360 M01S00249.242l642 +++| ( C<0,3>QNAME EQ C<0,3>Q$NAME )) THEN 01361 M01S00250.242l642 +++| IF NIT$CON EQ Q$ACN AND QUEUENAME EQ Q$NAME THEN 01362 M01S00251.242l642 +++| BEGIN # IF QUEUE IS FOUND # 01363 M01S00252.242l642 +++| P<Q$BUFFER> = P<Q$HEADER> + Q$HEADLEN; 01364 M01S00253.242l642 +++| FOR I = 1 STEP 1 UNTIL LENGTH DO 01365 M01S00254.242l642 +++| BEGIN # MOVE THIS USER-S DATA # 01366 M01S00255.242l642 +++| WORD = Q$OUTCHAR / 5; 01367 M01S00256.242l642 +++| BIT = (Q$OUTCHAR - (WORD * 5)) * 12; 01368 M01S00257.242l642 +++| B<B$CURBIT,12> B$WD0[B$CURWORD] = B<BIT,12>Q$WORD[WORD]; 01369 M01S00258.242l642 +++| Q$OUTCHAR = Q$OUTCHAR + 1; 01370 M01S00259.242l642 +++| B$CURBIT = B$CURBIT + 12; 01371 M01S00260.242l642 +++| IF B$CURBIT GQ 60 THEN 01372 M01S00261.242l642 +++| BEGIN # IF COMPLETE WORD MOVED # 01373 M01S00262.242l642 +++| B$CURBIT = 0; 01374 M01S00263.242l642 +++| B$CURWORD = B$CURWORD + 1; 01375 M01S00264.242l642 +++| END 01376 M01S00265.242l642 +++| 01377 M01S00266.242l642 +++| IF Q$OUTCHAR GR Q$INCHAR THEN 01378 M01S00267.242l642 +++| BEGIN # IF # 01379 M01S00268.242l642 +++| NIT$CTLC = I - 1; 01380 M01S00269.242l642 +++| RC = 0; 01381 M01S00270.242l642 +++| Q$INCHAR = 0; 01382 M01S00271.242l642 +++| Q$OUTCHAR = 0; 01383 M01S00272.242l642 +++| RCC = P<Q$HEADER>; # ADDRESS FOR CMM # 01384 M01S00273.242l642 +++| I = Q$BACK; # BACK POINTER # 01385 M01S00274.242l642 +++| J = Q$FORWARD; # FORWARD POINTER # 01386 M01S00275.242l642 +++| P<Q$HEADER> = I; # SET TO PREVIOUS PTR WORD # 01387 M01S00276.242l642 +++| Q$FORWARD = J; # AND SET TO NEXT PTR WORD # 01388 M01S00277.242l642 +++| IF J NQ 0 THEN 01389 M01S00278.242l642 +++| BEGIN # IF NEXT PTR WORD EXISTS # 01390 M01S00279.242l642 +++| P<Q$HEADER> = J; # SET PTR TO PREVIOUS PTR WORD # 01391 M01S00280.242l642 +++| Q$BACK = I; 01392 M01S00281.242l642 +++| END 01393 M01S00282.242l642 +++| CMMFRF (RCC); # RELEASE BUFFER # 01394 M01S00283.242l642 +++| RETURN; # RETURN # 01395 M01S00284.242l642 +++| END 01396 M01S00285.242l642 +++| END 01397 M01S00286.242l642 +++| 01398 M01S00287.242l642 +++| RC = 1; # USER-S BUFFER IS FULL # 01399 M01S00288.242l642 +++| NIT$CTLC = LENGTH; 01400 M01S00289.242l642 +++| RETURN; # RETURN # 01401 M01S00290.242l642 +++| END 01402 M01S00291.242l642 +++| P<Q$HEADER> = Q$FORWARD; 01403 M01S00292.242l642 +++| END 01404 M01S00293.242l642 +++| 01405 M01S00294.242l642 +++|RC = 2; # NOTHING TO DEQUEUE # 01406 M01S00295.242l642 +++| 01407 M01S00296.242l642 +++|END # SFDQUE$ # 01408 M01S00297.242l642 +++|*ENDIF 01409 M00S00662.sform +++|CONTROL EJECT; 01410 M00S00663.sform +++| 01411 M00S00664.sform +++|PROC SFGETI$(VARNAME,VLEN,VOFF,VALUE); 01412 M00S00665.sform +++| 01413 M00S00666.sform +++|# TITLE SFGETI$ - GET INTEGER VALUE. # 01414 M00S00667.sform +++| 01415 M00S00668.sform +++|BEGIN # SFGETI$ # 01416 M00S00669.sform +++| 01417 M00S00670.sform +++|# 01418 M00S00671.sform +++|** SFGETI$ - GET INTEGER VALUE. 01419 M00S00672.sform +++|* 01420 M00S00673.sform +++|* SFGETI$ RETURNS THE INTEGER NUMERIC VALUE OF THE FIELD 01421 M00S00674.sform +++|* SPECIFIED BY VARNAME AND ROWNUM. 01422 M00S00675.sform +++|* 01423 M00S00676.sform +++|* PROC SFGETI$(VARNAME,VLEN,VOFF,VALUE) 01424 M00S00677.sform +++|* 01425 M00S00678.sform +++|* ENTRY VARNAME = VARIABLE NAME OF FIELD. 01426 M00S00679.sform +++|* VLEN = LENGTH OF VARP. 01427 M00S00680.sform +++|* VOFF = OFFSET OF VARP. 01428 M00S00681.sform +++|* 01429 M00S00682.sform +++|* EXIT VALUE = INTEGER VALUE OF SPECIFIED FIELD. 01430 M00S00683.sform +++|* 01431 M00S00684.sform +++|* CALLS DATEVL, GFIELD, NCHECK. 01432 M00S00685.sform +++|# 01433 M00S00686.sform +++|ITEM VARNAME C(11); # VARIABLE NAME # 01434 M00S00687.sform +++|ITEM VLEN I; # LENGTH OF VARNAME PARAMETER # 01435 M00S00688.sform +++|ITEM VOFF I; # OFFSET INTO VARNAME PARAMETER # 01436 M00S00689.sform +++|ITEM VALUE I; # VALUE OF INPUT # 01437 M00S00690.sform +++| 01438 M00S00691.sform +++|ITEM ALLBLANK B; # ALL BLANK CHARACTERS IN FIELD # 01439 M00S00692.sform +++|ITEM CURRENCY B; # TRUE IF DOLLAR SIGN INPUT # 01440 M00S00693.sform +++|ITEM ERRORVAL I = 0; # RETURNED IF ERROR IN FIELD # 01441 M00S00694.sform +++|ITEM EVALUE I; # EXPONENT VALUE # 01442 M00S00695.sform +++|ITEM FLDIND I; # FIELD ORDINAL # 01443 M00S00696.sform +++|ITEM FORMAT I; # FORMAT OF INPUT # 01444 M00S00697.sform +++|ITEM HOLDVALID B; # SAVE FLDVALID VALUE # 01445 M00S00698.sform +++|ITEM I I; # LOOP COUNTER # 01446 M00S00699.sform +++|ITEM IVALUE I; # INTEGER VALUE #
| Line S00700 Modification History | |
|---|---|
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01447 M01S00700.242l642 ---|ITEM USEROW B = FALSE; # DO NOT USE CURSORROW #
| Line S00298 Modification History | |
|---|---|
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 01448 M01S00298.242l642 +++|ITEM USEROW B = FALSE; # DO NOT USE TERCURSROW # 01449 M00S00701.sform +++|ITEM VNAME C(7); # VARIABLE NAME LEFT JUSTIFIED # 01450 M00S00702.sform +++| 01451 M00S00703.sform +++|IF VLEN LS 1 THEN VLEN = 7; # CRACK PARAMETER # 01452 M00S00704.sform +++|VNAME = C<VOFF,VLEN>VARNAME;
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/sform.txt · Last modified: (external edit)