User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:sform

Deck SFORM

49 Modifications

Listing Sections

Source

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