Seq # *Modification Id* Act
----------------------------+
07272 M00S04484.sform +++|
07273 M00S04485.sform +++|END # SETSRN #
07274 M00S04486.sform +++|CONTROL EJECT;
07275 M00S04487.sform +++|
07276 M00S04488.sform +++|PROC SFLOAD(PANELNAME,PANELADDR,OPENSTAT);
07277 M00S04489.sform +++|
07278 M00S04490.sform +++|# TITLE SFLOAD - LOAD PANEL. #
07279 M00S04491.sform +++|
07280 M00S04492.sform +++|BEGIN # SFLOAD #
07281 M00S04493.sform +++|
07282 M00S04494.sform +++|#
07283 M00S04495.sform +++|** SFLOAD - LOAD PANEL.
07284 M00S04496.sform +++|*
07285 M00S04497.sform +++|* THIS PROCEDURE CALLS THE FAST DYNAMIC LOADER TO LOAD THE
07286 M00S04498.sform +++|* SPECIFIED PANEL AND ISSUES AN INFORMATIVE MESSAGE IF THE
07287 M00S04499.sform +++|* LOAD WAS UNSUCCESSFUL DUE TO AN INTERNAL F.D.L. ERROR.
07288 M00S04500.sform +++|*
07289 M00S04501.sform +++|* PROC SFLOAD(PANELNAME,PANELADDR,OPENSTAT)
07290 M00S04502.sform +++|*
07291 M00S04503.sform +++|* ENTRY PANELNAME = NAME OF PANEL TO BE LOADED.
07292 M00S04504.sform +++|*
07293 M00S04505.sform +++|* EXIT PANEL LOADED IF POSSIBLE, OPENSTAT SET, INFORMATIVE
07294 M00S04506.sform +++|* DAYFILE MESSAGE ISSUED IF NECESSARY.
07295 M00S04507.sform +++|*
07296 M00S04508.sform +++|* CALLS ERRMSG, LCP.
07297 M00S04509.sform +++|*
07298 M00S04510.sform +++|* NOTES OPENSTAT IS SET BY SFLOAD (AND RETURNED TO SFOPEN)
07299 M00S04511.sform +++|* IN THOSE INSTANCES WHERE THE FAST DYNAMIC LOADER
07300 M00S04512.sform +++|* IS CALLED.
07301 M00S04513.sform +++|*
07302 M00S04514.sform +++|* OPENSTAT SIGNIFICANCE PROCEDURE
07303 M00S04515.sform +++|* .....................................................
07304 M00S04516.sform +++|* . 0 . NO ERROR . BOTH .
07305 M00S04517.sform +++|* . 1 . UNKNOWN PANEL NAME . SFLOAD .
07306 M00S04518.sform +++|* . 2 . INCORRECT CAPSULE FORMAT . SFLOAD .
07307 M00S04519.sform +++|* . 3 . PLT FULL (TOO MANY OPEN PANELS) . SFOPEN .
07308 M00S04520.sform +++|* . 4 . PANEL ALREADY OPEN . SFOPEN .
07309 M00S04521.sform +++|* . 5 . INTERNAL (FAST DYNAMIC LOADER) . SFLOAD .
07310 M00S04522.sform +++|* . 6 . NO SCREEN COMMAND ISSUED . SFOPEN .
07311 M00S04523.sform +++|* . 7 . UNSUPPORTED TERMINAL . SFOPEN .
07312 M00S04524.sform +++|* .....................................................
07313 M00S04525.sform +++|#
07314 M00S04526.sform +++|ITEM PANELNAME C(7); # NAME OF PANEL TO LOAD #
07315 M00S04527.sform +++|ITEM PANELADDR I; # MEMORY ADDRESS OF PANEL #
07316 M00S04528.sform +++|ITEM OPENSTAT I; # RETURNS STATUS TO APPLICATION #
07317 M00S04529.sform +++|
07318 M00S04530.sform +++|ITEM FATAL B = FALSE; # OPEN ERRORS ARE NOT FATAL #
07319 M00S04531.sform +++|ITEM FDLSTAT I; # RETURNS STATUS FROM LOADER #
07320 M00S04532.sform +++|ITEM MSG C(25); # DAYFILE ERROR MESSAGE #
07321 M00S04533.sform +++|ITEM PNAME C(6) = "SFOPEN"; # PROCEDURE NAME #
07322 M00S04534.sform +++|
07323 M00S04535.sform +++|SWITCH LOADCASE # F.D.L. STATUS RETURN SWITCH #
07324 M00S04536.sform +++| NOERROR, # SUCCESSFUL LOAD #
07325 M00S04537.sform +++| BADLIBRARY, # BAD LIBRARY LIST #
07326 M00S04538.sform +++| BADGROUP, # BAD GROUP NAME #
07327 M00S04539.sform +++| UNKNOWNCAP, # UNKNOWN CAPSULE NAME #
07328 M00S04540.sform +++| BADFORMAT, # BAD CAPSULE FORMAT #
07329 M00S04541.sform +++| BADENTRY, # BAD PASSLOC/ENTRY FORMAT #
07330 M00S04542.sform +++| DUPLOAD, # CAPSULE ALREADY IN MEMORY #
07331 M00S04543.sform +++| CAPOVCAP; # CAPSULE/OVCAP CONFUSION #
07332 M00S04544.sform +++|
07333 M00S04545.sform +++|LCP(PANELNAME,PANELADDR,FDLSTAT); # CALL FAST DYNAMIC LOADER #
07334 M00S04546.sform +++|
07335 M00S04547.sform +++|#
07336 M00S04548.sform +++|* SIMULATED CASE STATEMENT FOR PROCESSING LOADER RETURN STATUS.
07337 M00S04549.sform +++|#
07338 M00S04550.sform +++|
07339 M00S04551.sform +++|GOTO LOADCASE[FDLSTAT]; # PROCESS STATUS FROM LOADER #
07340 M00S04552.sform +++|
07341 M00S04553.sform +++|NOERROR: # NO ERROR #
| Line S04554 Modification History |
M01 (Removed by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07342 M01S04554.ns2275 ---| OPENSTAT = 0; # UPDATE PANEL LOAD TABLE #
| Line S00028 Modification History |
M01 (Added by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07343 M01S00028.ns2275 +++| OPENSTAT = OPENSTATUS"NOERROR"; # UPDATE PANEL LOAD TABLE #
07344 M00S04555.sform +++| PLTNUMENT[0] = PLTNUMENT[0]+1;
07345 M00S04556.sform +++| PLTENAME[PLTNUMENT[0]]=PANELNAME;
07346 M00S04557.sform +++| PLTSLFLAG[PLTNUMENT[0]]=FALSE;
07347 M00S04558.sform +++| PLTOPENFLG[PLTNUMENT[0]]=TRUE;
07348 M00S04559.sform +++| PLTADDR[PLTNUMENT[0]]=PANELADDR;
07349 M00S04560.sform +++| GOTO ENDCASE;
07350 M00S04561.sform +++|
07351 M00S04562.sform +++|BADLIBRARY: # BAD LIBRARY LIST #
| Line S04563 Modification History |
M01 (Removed by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07352 M01S04563.ns2275 ---| OPENSTAT = 5; # ISSUE INFORMATIVE MESSAGE #
| Line S00029 Modification History |
M01 (Added by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07353 M01S00029.ns2275 +++| OPENSTAT = OPENSTATUS"INTERNAL"; # ISSUE INFORMATIVE MESSAGE #
07354 M00S04564.sform +++| MSG = " BAD LIBRARY LIST. ";
07355 M00S04565.sform +++| ERRMSG(PANELNAME,PNAME,MSG,FATAL);
07356 M00S04566.sform +++| GOTO ENDCASE;
07357 M00S04567.sform +++|
07358 M00S04568.sform +++|BADGROUP: # UNKNOWN GROUP NAME #
| Line S04569 Modification History |
M01 (Removed by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07359 M01S04569.ns2275 ---| OPENSTAT = 5; # ISSUE INFORMATIVE MESSAGE #
| Line S00030 Modification History |
M01 (Added by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07360 M01S00030.ns2275 +++| OPENSTAT = OPENSTATUS"INTERNAL"; # ISSUE INFORMATIVE MESSAGE #
07361 M00S04570.sform +++| MSG = " BAD GROUP NAME. ";
07362 M00S04571.sform +++| ERRMSG(PANELNAME,PNAME,MSG,FATAL);
07363 M00S04572.sform +++| GOTO ENDCASE;
07364 M00S04573.sform +++|
07365 M00S04574.sform +++|UNKNOWNCAP: # UNKNOWN CAPSULE NAME #
| Line S04575 Modification History |
M01 (Removed by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07366 M01S04575.ns2275 ---| OPENSTAT = 1;
| Line S00031 Modification History |
M01 (Added by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07367 M01S00031.ns2275 +++| OPENSTAT = OPENSTATUS"UNPANEL"; # UNKNOWN CAPSULE NAME #
07368 M00S04576.sform +++| GOTO ENDCASE;
07369 M00S04577.sform +++|
07370 M00S04578.sform +++|BADFORMAT: # BAD CAPSULE FORMAT #
| Line S04579 Modification History |
M01 (Removed by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07371 M01S04579.ns2275 ---| OPENSTAT = 2;
| Line S00032 Modification History |
M01 (Added by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07372 M01S00032.ns2275 +++| OPENSTAT = OPENSTATUS"INCAPFOR"; # BAD CAPSULE FORMAT #
07373 M00S04580.sform +++| GOTO ENDCASE;
07374 M00S04581.sform +++|
07375 M00S04582.sform +++|BADENTRY: # BAD PASSLOC/ENTRY FORMAT #
| Line S04583 Modification History |
M01 (Removed by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07376 M01S04583.ns2275 ---| OPENSTAT = 5; # ISSUE INFORMATIVE MESSAGE #
| Line S00033 Modification History |
M01 (Added by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07377 M01S00033.ns2275 +++| OPENSTAT = OPENSTATUS"INTERNAL"; # ISSUE INFORMATIVE MESSAGE #
07378 M00S04584.sform +++| MSG = " BAD ENTRY FORMAT. ";
07379 M00S04585.sform +++| ERRMSG(PANELNAME,PNAME,MSG,FATAL);
07380 M00S04586.sform +++| GOTO ENDCASE;
07381 M00S04587.sform +++|
07382 M00S04588.sform +++|DUPLOAD: # CAPSULE ALREADY IN MEMORY #
| Line S04589 Modification History |
M01 (Removed by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07383 M01S04589.ns2275 ---| OPENSTAT = 5; # ISSUE INFORMATIVE MESSAGE #
| Line S00034 Modification History |
M01 (Added by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07384 M01S00034.ns2275 +++| OPENSTAT = OPENSTATUS"INTERNAL"; # ISSUE INFORMATIVE MESSAGE #
07385 M00S04590.sform +++| MSG = " DUPLICATE LOAD. ";
07386 M00S04591.sform +++| ERRMSG(PANELNAME,PNAME,MSG,FATAL);
07387 M00S04592.sform +++| GOTO ENDCASE;
07388 M00S04593.sform +++|
07389 M00S04594.sform +++|CAPOVCAP: # CAPSULE/OVCAP CONFUSION #
| Line S04595 Modification History |
M01 (Removed by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07390 M01S04595.ns2275 ---| OPENSTAT = 5; # ISSUE INFORMATIVE MESSAGE #
| Line S00035 Modification History |
M01 (Added by) | ns2275 |
Seq # *Modification Id* Act
----------------------------+
07391 M01S00035.ns2275 +++| OPENSTAT = OPENSTATUS"INTERNAL"; # ISSUE INFORMATIVE MESSAGE #
07392 M00S04596.sform +++| MSG = " OVCAP CONFUSION. ";
07393 M00S04597.sform +++| ERRMSG(PANELNAME,PNAME,MSG,FATAL);
07394 M00S04598.sform +++|
07395 M00S04599.sform +++|ENDCASE:
07396 M00S04600.sform +++|
07397 M00S04601.sform +++|#
07398 M00S04602.sform +++|* END OF CASE STATEMENT FOR PROCESSING LOADER RETURN STATUS.
07399 M00S04603.sform +++|#
07400 M00S04604.sform +++|
07401 M00S04605.sform +++|END # SFLOAD #
07402 M00S04606.sform +++|CONTROL EJECT;
07403 M00S04607.sform +++|
07404 M00S04608.sform +++|PROC SKPBLK(FLDIND,CHARPOS,CHAR);
07405 M00S04609.sform +++|
07406 M00S04610.sform +++|# TITLE SKPBLK - SKIP BLANKS. #
07407 M00S04611.sform +++|
07408 M00S04612.sform +++|BEGIN # SKPBLK #
07409 M00S04613.sform +++|
07410 M00S04614.sform +++|#
07411 M00S04615.sform +++|** SKPBLK - SKIP BLANKS.
07412 M00S04616.sform +++|*
07413 M00S04617.sform +++|* THIS PROCEDURE SKIPS BLANKS IN A FIELD IN VARDATA AND RETURNS
07414 M00S04618.sform +++|* THE POSITION OF THE FIRST NON-BLANK CHARACTER.
07415 M00S04619.sform +++|*
07416 M00S04620.sform +++|* PROC SKPBLK(FLDIND,CHARPOS,CHAR)
07417 M00S04621.sform +++|*
07418 M00S04622.sform +++|* ENTRY FLDIND = INDEX OF FIELD IN FLDLIST.
07419 M00S04623.sform +++|* CHARPOS = STARTING CHARACTER POSITION IN FIELD.
07420 M00S04624.sform +++|*
07421 M00S04625.sform +++|* EXIT CHARPOS = POSTION OF FIRST NON-BLANK CHARACTER.
07422 M00S04626.sform +++|* CHAR = FIRST NON-BLANK CHARACTER.
07423 M00S04627.sform +++|#
07424 M00S04628.sform +++|ITEM FLDIND I; # INDEX OF FIELD IN FLDLIST #
07425 M00S04629.sform +++|ITEM CHARPOS I; # CHARACTER POSITION IN FIELD #
07426 M00S04630.sform +++|ITEM CHAR I; # INPUT CHARACTER #
07427 M00S04631.sform +++|
07428 M00S04632.sform +++|ITEM BLANKCHAR B; # BLANK CHARACTER INPUT #
07429 M00S04633.sform +++|
07430 M00S04634.sform +++|BLANKCHAR = TRUE;
07431 M00S04635.sform +++|
07432 M00S04636.sform +++|WHYLE BLANKCHAR AND CHARPOS LQ FLDLENGTH[FLDIND] DO
07433 M00S04637.sform +++| BEGIN
07434 M00S04638.sform +++| CHAR = NEXTCHAR(FLDIND,CHARPOS);
07435 M00S04639.sform +++| IF CHAR NQ BLANK THEN
07436 M00S04640.sform +++| BEGIN # IF NOT BLANK CHARACTER #
07437 M00S04641.sform +++| BLANKCHAR = FALSE;
07438 M00S04642.sform +++| END
07439 M00S04643.sform +++| ELSE
07440 M00S04644.sform +++| BEGIN # BLANK CHARACTER #
07441 M00S04645.sform +++| CHARPOS = CHARPOS + 1;
07442 M00S04646.sform +++| END
07443 M00S04647.sform +++| END
07444 M00S04648.sform +++|
07445 M00S04649.sform +++|END # SKPBLK #
07446 M00S04650.sform +++|CONTROL EJECT;
07447 M00S04651.sform +++|
07448 M00S04652.sform +++|PROC TABKEY(ORDINAL,INPOS,NEWFIELD,OUTPOS);
07449 M00S04653.sform +++|
07450 M00S04654.sform +++|# TITLE TABKEY - PROCESS TABKEY. #
07451 M00S04655.sform +++|
07452 M00S04656.sform +++|BEGIN # TABKEY #
07453 M00S04657.sform +++|
07454 M00S04658.sform +++|#
07455 M00S04659.sform +++|** TABKEY - PROCESS TAB KEY.
07456 M00S04660.sform +++|*
07457 M00S04661.sform +++|* THIS PROCEDURE IS CALLED TO PROCESS TABS. IN THE CASE OF
07458 M00S04662.sform +++|* OF A HARD TAB ON A TERMINAL WITH PROTECT MODE VIRTERM HAS
07459 M00S04663.sform +++|* AN INCORRECT INTERNAL CURSOR POSITION WHICH WILL HAVE TO BE
07460 M00S04664.sform +++|* RESET. TABKEY DETERMINES THE CURSOR POSITION AND NOTIFIES
07461 M00S04665.sform +++|* VIRTEM THROUGH VDTCOR. FOR SOFT TABS (INCLUDING TAB KEYS
07462 M00S04666.sform +++|* ON TERMINALS WITHOUT PROTECT MODE) THE CURSOR POSITION IS
07463 M00S04667.sform +++|* INCORRECT BUT WILL BE FIXED THE NEXT TIME THAT PROCEDURE
07464 M00S04668.sform +++|* READIN DOES A VDTPOS.
07465 M00S04669.sform +++|*
07466 M00S04670.sform +++|* PROC TABKEY(ORDINAL,INPOS,FIELD,OUTPOS)
07467 M00S04671.sform +++|*
07468 M00S04672.sform +++|* ENTRY ORDINAL = FTAB, FORWARD TAB KEY
07469 M00S04673.sform +++|* = BTAB, BACKWARD TAB KEY
07470 M00S04674.sform +++|* INPOS = LINE AND COLUMN WHERE TAB KEY WAS PRESSED
07471 M00S04675.sform +++|*
07472 M00S04676.sform +++|* EXIT OUTPOS = NEW X/Y POSITION
07473 M00S04677.sform +++|* NEWFIELD = NEW FIELD POSITION
07474 M00S04678.sform +++|*
07475 M00S04679.sform +++|* NOTES CURSOR IS POSITIONED TO HOME IF TABBED BEYOND FIRST OR
07476 M00S04680.sform +++|* LAST INPUT FIELD.
07477 M00S04681.sform +++|#
07478 M00S04682.sform +++|ITEM ORDINAL I; # ORDINAL OF TAB KEY #
07479 M00S04683.sform +++|ITEM INPOS I; # LINE AND COLUMN WHERE PRESSED #
07480 M00S04684.sform +++|ITEM NEWFIELD I; # ORDINAL OF FIELD TABBED TO #
07481 M00S04685.sform +++|ITEM OUTPOS I; # NEW LINE AND COLUMN #
07482 M00S04686.sform +++|
07483 M00S04687.sform +++|ITEM FIELDFOUND B; # FOUND FIELD TABBED TO #
07484 M00S04688.sform +++|ITEM I I; # LOOP COUNTER #
| Line S00001 Modification History |
M01 (Added by) | sform23 |
Seq # *Modification Id* Act
----------------------------+
07485 M01S00001.sform23 +++|ITEM P I; # POINTER TO PREVIOUS FIELD #
07486 M00S04689.sform +++|
| Line S00002 Modification History |
M01 (Added by) | sform23 |
Seq # *Modification Id* Act
----------------------------+
07487 M01S00002.sform23 +++|P = -1;
07488 M00S04690.sform +++|NEWFIELD = -1;
07489 M00S04691.sform +++|FIELDFOUND = FALSE;
07490 M00S04692.sform +++|
07491 M00S04693.sform +++|IF ORDINAL EQ SCREENST"FTAB" THEN
07492 M00S04694.sform +++| BEGIN # FORWARD TAB KEY PRESSED #
07493 M00S04695.sform +++| FOR I = 0 STEP 1 WHILE FLDENTRY[I] NQ 0
07494 M00S04696.sform +++| AND NOT FIELDFOUND DO
07495 M00S04697.sform +++| BEGIN # LOOK FOR NEXT INPUT FIELD #
| Line S04698 Modification History |
M01 (Removed by) | sform23 |
Seq # *Modification Id* Act
----------------------------+
07496 M01S04698.sform23 ---| IF INPOS LS FLDPOS[I] AND FLDINPUTV[I] AND FLDACTIVE[I] THEN
| Line S00003 Modification History |
M01 (Added by) | sform23 |
Seq # *Modification Id* Act
----------------------------+
07497 M01S00003.sform23 +++| IF FLDINPUTV[I] AND FLDACTIVE[I] THEN
07498 M00S04699.sform +++| BEGIN
| Line S04700 Modification History |
M01 (Removed by) | sform23 |
Seq # *Modification Id* Act
----------------------------+
07499 M01S04700.sform23 ---| FIELDFOUND = TRUE;
07500 M01S04701.sform23 ---| NEWFIELD = I;
| Line S00004 Modification History |
M01 (Added by) | sform23 |
Seq # *Modification Id* Act
----------------------------+
07501 M01S00004.sform23 +++| IF INPOS LS FLDPOS[I]
07502 M01S00005.sform23 +++| AND (TERPTDWFLN[0] OR NOT (P GQ 0
07503 M01S00006.sform23 +++| AND FLDYCORD[P] EQ FLDYCORD[I]-1 AND FLDXCORD[I] EQ 0
07504 M01S00007.sform23 +++| AND FLDXCORD[P]+FLDLENGTH[P] EQ TERNUMCOLS[0]+1)) THEN
07505 M01S00008.sform23 +++| BEGIN # IF NEXT NON-CONTIGUOUS FIELD #
07506 M01S00009.sform23 +++| FIELDFOUND = TRUE;
07507 M01S00010.sform23 +++| NEWFIELD = I;
07508 M01S00011.sform23 +++| END
07509 M01S00012.sform23 +++| ELSE P = I;
07510 M00S04702.sform +++| END
07511 M00S04703.sform +++| END
07512 M00S04704.sform +++| END
07513 M00S04705.sform +++|ELSE
07514 M00S04706.sform +++| BEGIN # BACKWARD TAB KEY PRESSED #
07515 M00S04707.sform +++| IF INPOS EQ 0 THEN
07516 M00S04708.sform +++| BEGIN
| Line S04709 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07517 M01S04709.242l642 ---| XMASKOF INPOS = NUMCOLS;
07518 M01S04710.242l642 ---| YMASKOF INPOS = NUMLINES;
| Line S01174 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07519 M01S01174.242l642 +++| XMASKOF INPOS = TERNUMCOLS[0];
07520 M01S01175.242l642 +++| YMASKOF INPOS = TERNUMLNES[0];
07521 M00S04711.sform +++| END
| Line S00013 Modification History |
M01 (Added by) | sform23 |
Seq # *Modification Id* Act
----------------------------+
07522 M01S00013.sform23 +++| P = -1;
07523 M00S04712.sform +++| FOR I = 0 STEP 1 WHILE FLDENTRY[I] NQ 0 AND FLDPOS[I] LS INPOS DO
| Line S04713 Modification History |
M01 (Removed by) | sform23 |
Seq # *Modification Id* Act
----------------------------+
07524 M01S04713.sform23 ---| BEGIN # LOOK FOR NEXT INPUT FIELD #
07525 M01S04714.sform23 ---| IF FLDINPUTV[I] AND FLDACTIVE[I] THEN NEWFIELD = I;
| Line S00014 Modification History |
M01 (Added by) | sform23 |
Seq # *Modification Id* Act
----------------------------+
07526 M01S00014.sform23 +++| BEGIN # LOOK FOR NEXT INPUT FIELD #
07527 M01S00015.sform23 +++| IF FLDINPUTV[I] AND FLDACTIVE[I] THEN
07528 M01S00016.sform23 +++| BEGIN
07529 M01S00017.sform23 +++| IF TERPTDWBLN[0] OR NOT (P GQ 0
07530 M01S00018.sform23 +++| AND FLDYCORD[P] EQ FLDYCORD[I]-1 AND FLDXCORD[I] EQ 0
07531 M01S00019.sform23 +++| AND FLDXCORD[P]+FLDLENGTH[P] EQ TERNUMCOLS[0]+1) THEN
07532 M01S00020.sform23 +++| NEWFIELD = I; # IF FIELDS NOT CONTIGUOUS #
07533 M01S00021.sform23 +++| P = I;
07534 M01S00022.sform23 +++| END
07535 M00S04715.sform +++| END
07536 M00S04716.sform +++| END
07537 M00S04717.sform +++|
07538 M00S04718.sform +++|IF NEWFIELD GQ 0 THEN
07539 M00S04719.sform +++| BEGIN # IF FIELD FOUND #
07540 M00S04720.sform +++| OUTPOS = FLDPOS[NEWFIELD];
07541 M00S04721.sform +++| END
07542 M00S04722.sform +++|ELSE
07543 M00S04723.sform +++| BEGIN # FIELD NOT FOUND #
07544 M00S04724.sform +++| OUTPOS = 0;
07545 M00S04725.sform +++| END
07546 M00S04726.sform +++|
07547 M00S04727.sform +++|END # TABKEY #
07548 M00S04728.sform +++|CONTROL EJECT;
07549 M00S04729.sform +++|
07550 M00S04730.sform +++|PROC VALIDF(FLDIND);
07551 M00S04731.sform +++|
07552 M00S04732.sform +++|# TITLE VALIDF - VALIDATE FIELD. #
07553 M00S04733.sform +++|
07554 M00S04734.sform +++|BEGIN # VALIDF #
07555 M00S04735.sform +++|
07556 M00S04736.sform +++|#
07557 M00S04737.sform +++|** VALIDF - VALIDATE FIELD.
07558 M00S04738.sform +++|*
07559 M00S04739.sform +++|* THIS PROCEDURE CALLS THE APPROPRIATE VALIDATION PROCEDURE
07560 M00S04740.sform +++|* AS WELL AS CONVERTING INTEGER AND REAL VARIABLE INPUT TO
07561 M00S04741.sform +++|* THE CORRECT NUMERIC VALUE.
07562 M00S04742.sform +++|*
07563 M00S04743.sform +++|* PROC VALIDF(FLDIND)
07564 M00S04744.sform +++|*
07565 M00S04745.sform +++|* ENTRY FLDIND = INDEX OF CURRENT FIELD IN FLDLIST.
07566 M00S04746.sform +++|*
07567 M00S04747.sform +++|* EXIT FLDVALID[FLDIND] = FALSE, IF NUMERIC INPUT IS INVALID.
07568 M00S04748.sform +++|*
07569 M00S04749.sform +++|* CALLS DATEVL, IRANGE, MATCHV, NCHECK, PICVAL, RRANGE.
07570 M00S04750.sform +++|#
07571 M00S04751.sform +++|ITEM FLDIND I; # INDEX OF FIELD #
07572 M00S04752.sform +++|
07573 M00S04753.sform +++|ITEM ALLBLANK B; # ALL BLANKS IN FIELD #
07574 M00S04754.sform +++|ITEM DOLLARSIGN B; # $ IN INPUT #
07575 M00S04755.sform +++|ITEM EVAL I; # EXPONENT VALUE OF INPUT #
07576 M00S04756.sform +++|ITEM I I; # LOOP COUNTER #
07577 M00S04757.sform +++|ITEM INPTYPE I; # INPUT FORMAT TYPE #
07578 M00S04758.sform +++|ITEM IVAL I; # INTEGER VALUE OF INPUT #
| Line S00021 Modification History |
M01 (Added by) | ns2469 |
Seq # *Modification Id* Act
----------------------------+
07579 M01S00021.ns2469 +++|ITEM NOTFULL B; # FIELD CONTAINS A BLANK #
07580 M00S04759.sform +++|ITEM STARRED B; # * ("DON-T KNOW") ENTERED #
07581 M00S04760.sform +++|ITEM VARIND I; # INDEX INTO VARLIST #
07582 M00S04761.sform +++|
07583 M00S04762.sform +++|SWITCH VARITYPE # VARIABLE TYPE #
07584 M00S04763.sform +++| RESERV, # RESERVED #
07585 M00S04764.sform +++| CHARACVAR, # CHARACTER VARIABLE #
07586 M00S04765.sform +++| INTEGERVAR, # INTEGER VARIABLE #
07587 M00S04766.sform +++| REALVAR; # REAL VARIABLE #
07588 M00S04767.sform +++|
| Line S04768 Modification History |
M01 (Removed by) | ns2469 |
Seq # *Modification Id* Act
----------------------------+
07589 M01S04768.ns2469 ---|VARIND = FLDVARORD[FLDIND];
07590 M01S04769.ns2469 ---|FLDVALID[FLDIND] = TRUE; # TRUE UNTIL PROVEN FALSE #
07591 M01S04770.ns2469 ---|
07592 M01S04771.ns2469 ---|IF NOT VARMUSENTR[VARIND] THEN
07593 M01S04772.ns2469 ---| BEGIN # ALLOW BLANK INPUT #
07594 M01S04773.ns2469 ---| ALLBLANK = TRUE;
07595 M01S04774.ns2469 ---| FOR I = 0 STEP 1 WHILE ALLBLANK AND I LQ FLDLENGTH[FLDIND] -1 DO
07596 M01S04775.ns2469 ---| BEGIN # SEARCH FOR NON-BLANK CHARS #
07597 M01S04776.ns2469 ---| IF NEXTCHAR(FLDIND,I) NQ BLANK THEN ALLBLANK = FALSE;
07598 M01S04777.ns2469 ---| END
07599 M01S04778.ns2469 ---| IF ALLBLANK THEN RETURN; # VALID ENTRY #
07600 M01S04779.ns2469 ---| END
07601 M01S04780.ns2469 ---|
07602 M01S04781.ns2469 ---|IF NOT VARMUSKNOW[VARIND] THEN
07603 M01S04782.ns2469 ---| BEGIN # * IS ACCEPTABLE #
07604 M01S04783.ns2469 ---| IF NEXTCHAR(FLDIND,0) EQ ASTERISK THEN
07605 M01S04784.ns2469 ---| BEGIN
07606 M01S04785.ns2469 ---| STARRED = TRUE;
07607 M01S04786.ns2469 ---| IF FLDLENGTH[FLDIND] GR 1 THEN
07608 M01S04787.ns2469 ---| BEGIN
07609 M01S04788.ns2469 ---| FOR I = 1 STEP 1 WHILE I LQ FLDLENGTH[FLDIND]-1 AND STARRED DO
07610 M01S04789.ns2469 ---| BEGIN # CHECK FOR STARRED FIELD #
07611 M01S04790.ns2469 ---| IF NEXTCHAR(FLDIND,I) NQ BLANK THEN STARRED = FALSE;
07612 M01S04791.ns2469 ---| END
07613 M01S04792.ns2469 ---| END
07614 M01S04793.ns2469 ---| IF STARRED THEN RETURN; # USER DOES NOT KNOW #
07615 M01S04794.ns2469 ---| END
07616 M01S04795.ns2469 ---| END
07617 M01S04796.ns2469 ---|
07618 M01S04797.ns2469 ---|IF VARMUSFILL[VARIND] THEN
07619 M01S04798.ns2469 ---| BEGIN # IF MUST FILL VARIABLE #
07620 M01S04799.ns2469 ---| FOR I = 0 STEP 1 UNTIL FLDLENGTH[FLDIND] -1 DO
07621 M01S04800.ns2469 ---| BEGIN
07622 M01S04801.ns2469 ---| IF NEXTCHAR(FLDIND,I) EQ BLANK THEN
07623 M01S04802.ns2469 ---| BEGIN # IF VARIABLE CONTAINS A BLANK #
07624 M01S04803.ns2469 ---| FLDVALID[FLDIND] = FALSE;
07625 M01S04804.ns2469 ---| RETURN;
07626 M01S04805.ns2469 ---| END
07627 M01S04806.ns2469 ---| END
07628 M01S04807.ns2469 ---| END
07629 M01S04808.ns2469 ---|
07630 M01S04809.ns2469 ---|GOTO VARITYPE[VARTYPE[VARIND]];
| Line S00022 Modification History |
M01 (Added by) | ns2469 |
Seq # *Modification Id* Act
----------------------------+
07631 M01S00022.ns2469 +++|VARIND = FLDVARORD[FLDIND];
07632 M01S00023.ns2469 +++|FLDVALID[FLDIND] = TRUE; # TRUE UNTIL PROVEN FALSE #
07633 M01S00024.ns2469 +++|
07634 M01S00025.ns2469 +++|IF VARMUSENTR[VARIND] AND NOT FLDENTERED[FLDIND] THEN
07635 M01S00026.ns2469 +++| BEGIN # IF MUST ENTERED AND NOT #
07636 M01S00027.ns2469 +++| FLDVALID[FLDIND] = FALSE; # PROVEN FALSE #
07637 M01S00028.ns2469 +++| RETURN;
07638 M01S00029.ns2469 +++| END
07639 M01S00030.ns2469 +++|
07640 M01S00031.ns2469 +++|ALLBLANK = TRUE; # SET FLAGS AND CHECK CHARACTER #
07641 M01S00032.ns2469 +++|STARRED = FALSE;
07642 M01S00033.ns2469 +++|NOTFULL = FALSE;
07643 M01S00034.ns2469 +++|IF NEXTCHAR(FLDIND,0) EQ ASTERISK AND NOT VARMUSKNOW[VARIND] THEN
07644 M01S00035.ns2469 +++| BEGIN # IF ASTERISK AND NOT MUST KNOW #
07645 M01S00036.ns2469 +++| STARRED = TRUE;
07646 M01S00037.ns2469 +++| END
07647 M01S00038.ns2469 +++|IF NEXTCHAR(FLDIND,0) NQ BLANK THEN
07648 M01S00039.ns2469 +++| BEGIN # IF NOT A BLANK #
07649 M01S00040.ns2469 +++| ALLBLANK = FALSE; # NOT ALL BLANKS #
07650 M01S00041.ns2469 +++| END
07651 M01S00042.ns2469 +++|ELSE
07652 M01S00043.ns2469 +++| BEGIN # A BLANK #
07653 M01S00044.ns2469 +++| NOTFULL = TRUE; # UNFULL #
07654 M01S00045.ns2469 +++| END
07655 M01S00046.ns2469 +++|FOR I = 1 STEP 1 WHILE I LQ FLDLENGTH[FLDIND] -1 DO
07656 M01S00047.ns2469 +++| BEGIN # EXAMINE THE REST OF THE FIELD #
07657 M01S00048.ns2469 +++| IF NEXTCHAR(FLDIND,I) NQ BLANK THEN
07658 M01S00049.ns2469 +++| BEGIN # IF NOT A BLANK #
07659 M01S00050.ns2469 +++| ALLBLANK = FALSE; # NOT ALL BLANKS #
07660 M01S00051.ns2469 +++| STARRED = FALSE; # NOT STARRED #
07661 M01S00052.ns2469 +++| END
07662 M01S00053.ns2469 +++| ELSE
07663 M01S00054.ns2469 +++| BEGIN # A BLANK #
07664 M01S00055.ns2469 +++| NOTFULL = TRUE; # UNFULL #
07665 M01S00056.ns2469 +++| END
07666 M01S00057.ns2469 +++| END
07667 M01S00058.ns2469 +++|IF STARRED THEN RETURN; # ASTERISK AND NOT *MUST KNOW* #
07668 M01S00059.ns2469 +++|IF(VARMUSFILL[VARIND] AND FLDENTERED[FLDIND] AND
07669 M01S00060.ns2469 +++| (NOTFULL AND NOT ALLBLANK)) OR (VARMUSCON[VARIND] AND ALLBLANK) THEN
07670 M01S00061.ns2469 +++| BEGIN # IF MUST FILL AND NOT FULL OR #
07671 M01S00062.ns2469 +++| FLDVALID[FLDIND] = FALSE; # MUST CONTAIN AND ALL BLANKS #
07672 M01S00063.ns2469 +++| RETURN;
07673 M01S00064.ns2469 +++| END
| Line S00001 Modification History |
M01 (Added by) | sform14 |
Seq # *Modification Id* Act
----------------------------+
07674 M01S00001.sform14 +++|IF NOT VARMUSENTR[VARIND] AND ALLBLANK THEN RETURN;
| Line S00065 Modification History |
M01 (Added by) | ns2469 |
Seq # *Modification Id* Act
----------------------------+
07675 M01S00065.ns2469 +++|
07676 M01S00066.ns2469 +++|GOTO VARITYPE[VARTYPE[VARIND]];
07677 M00S04810.sform +++|
07678 M00S04811.sform +++|RESERV:
07679 M00S04812.sform +++|CHARACVAR: # VALIDATE CHARACTER VARIABLE #
07680 M00S04813.sform +++|
07681 M00S04814.sform +++| IF VARVALM[VARIND] THEN MATCHV(FLDIND);
07682 M00S04815.sform +++| IF VARPICTYPE[VARIND] NQ 0 THEN PICVAL(FLDIND);
07683 M00S04816.sform +++| RETURN;
07684 M00S04817.sform +++|
07685 M00S04818.sform +++|INTEGERVAR: # VALIDATE INTEGER VARIABLE #
07686 M00S04819.sform +++|
07687 M00S04820.sform +++| IF VARPICTYPE[VARIND] GR FORMTYPE"E" THEN
07688 M00S04821.sform +++| BEGIN # DATE VALIDATION #
07689 M00S04822.sform +++| DATEVL(FLDIND,IVAL,EVAL);
07690 M00S04823.sform +++| END
07691 M00S04824.sform +++| ELSE
07692 M00S04825.sform +++| BEGIN
07693 M00S04826.sform +++| NCHECK(FLDIND,IVAL,EVAL,INPTYPE,DOLLARSIGN);
07694 M00S04827.sform +++| IF INPTYPE EQ FORMTYPE"BAD" OR INPTYPE GR VARPICTYPE[VARIND]
07695 M00S04828.sform +++| OR VARPICTYPE[VARIND] EQ FORMTYPE"E" AND DOLLARSIGN THEN
07696 M00S04829.sform +++| BEGIN
07697 M00S04830.sform +++| FLDVALID[FLDIND] = FALSE;
07698 M00S04831.sform +++| RETURN;
07699 M00S04832.sform +++| END
07700 M00S04833.sform +++| END
07701 M00S04834.sform +++| IF VARVALM[VARIND] THEN MATCHV(FLDIND);
07702 M00S04835.sform +++| IF VARVALR[VARIND] THEN IRANGE(FLDIND,IVAL,EVAL);
07703 M00S04836.sform +++| RETURN;
07704 M00S04837.sform +++|
07705 M00S04838.sform +++|REALVAR: # VALIDATE REAL VARIABLE #
07706 M00S04839.sform +++|
07707 M00S04840.sform +++| IF VARPICTYPE[VARIND] GR FORMTYPE"E" THEN
07708 M00S04841.sform +++| BEGIN
07709 M00S04842.sform +++| DATEVL(FLDIND,IVAL,EVAL);
07710 M00S04843.sform +++| END
07711 M00S04844.sform +++| ELSE
07712 M00S04845.sform +++| BEGIN
07713 M00S04846.sform +++| NCHECK(FLDIND,IVAL,EVAL,INPTYPE,DOLLARSIGN);
07714 M00S04847.sform +++| IF INPTYPE EQ FORMTYPE"BAD" OR INPTYPE GR VARPICTYPE[VARIND]
07715 M00S04848.sform +++| OR VARPICTYPE[VARIND] EQ FORMTYPE"E" AND DOLLARSIGN THEN
07716 M00S04849.sform +++| BEGIN
07717 M00S04850.sform +++| FLDVALID[FLDIND] = FALSE;
07718 M00S04851.sform +++| RETURN;
07719 M00S04852.sform +++| END
07720 M00S04853.sform +++| END
07721 M00S04854.sform +++| IF VARVALM[VARIND] THEN MATCHV(FLDIND);
07722 M00S04855.sform +++| IF VARVALR[VARIND] THEN REALRANGE(FLDIND,IVAL,EVAL);
| Line S04856 Modification History |
M01 (Removed by) | ns2469 |
Seq # *Modification Id* Act
----------------------------+
07723 M01S04856.ns2469 ---| RETURN;
07724 M00S04857.sform +++|
07725 M00S04858.sform +++|END # VALIDF #
07726 M00S04859.sform +++|CONTROL EJECT;
07727 M00S04860.sform +++|
07728 M00S04861.sform +++|PROC WRIALL;
07729 M00S04862.sform +++|
07730 M00S04863.sform +++|# TITLE WRIALL - WRITE ALL PANELS. #
07731 M00S04864.sform +++|
07732 M00S04865.sform +++|BEGIN # WRIALL #
07733 M00S04866.sform +++|
07734 M00S04867.sform +++|#
07735 M00S04868.sform +++|** WRIALL - WRITE ALL PANELS.
07736 M00S04869.sform +++|*
07737 M00S04870.sform +++|* THIS PROCEDURE REWRITES ALL PANELS THAT ARE ON THE SCREEN IN
07738 M00S04871.sform +++|* THE ORDER THAT THEY WERE WRITTEN.
07739 M00S04872.sform +++|*
07740 M00S04873.sform +++|* PROC WRIALL
07741 M00S04874.sform +++|*
| Line S04875 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07742 M01S04875.242l642 ---|* ENTRY ACTIVEPAN = THE NAME OF THE ACTIVE PANEL.
| Line S01176 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07743 M01S01176.242l642 +++|* ENTRY TERACTPANL = THE NAME OF THE ACTIVE PANEL.
07744 M00S04876.sform +++|* PLTNUMONSC = THE NUMBER OF PANELS ON THE SCREEN.
07745 M00S04877.sform +++|*
07746 M00S04878.sform +++|* EXIT COMPLETE SCREEN REWRITTEN.
07747 M00S04879.sform +++|*
| Line S01177 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | ns2346 |
Seq # *Modification Id* Act
----------------------------+
07748 M02S01177.ns2346 ---|* CALLS CLRLNS, POSARR, REWFLD, VDTCLS, VDTPRO, WRIBOX, WRITES.
| Line S00037 Modification History |
M01 (Added by) | ns2346 |
M02 (Removed by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
07749 M02S00037.ns2503 ---|* CALLS CLRLNS, POSARR, REWFLD, VDTCLS, VDTPRO, VDTSAM, WRIBOX,
07750 M02S00038.ns2503 ---|* WRITES.
| Line S00001 Modification History |
M01 (Added by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
07751 M01S00001.ns2503 +++|* CALLS CLRLNS, POSARR, REWFLD, VDTCAA, VDTCLS, VDTPRO, VDTSAM,
07752 M01S00002.ns2503 +++|* WRIBOX, WRITES.
| Line S01178 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07753 M01S01178.242l642 +++|*
07754 M00S04880.sform +++|* NOTES THIS PROCEDURE IS CALLED BY READ IN THE CASE OF
07755 M00S04881.sform +++|* A CLEAR PAGE AND BY WRIPAN IF AN OVERLAY WRITE
07756 M00S04882.sform +++|* HAS CAUSED A SHIFT FROM 80 TO 132 COLUMN MODE.
07757 M00S04883.sform +++|* IF THE ACTIVE PANEL IS NOT THE LAST PANEL TO BE
07758 M00S04884.sform +++|* REWRITTEN THEN ITS VARIABLES WILL BE REWRITTEN
07759 M00S04885.sform +++|* ONCE MORE TO INSURE THAT THEY ARE CORRECT.
07760 M00S04886.sform +++|#
07761 M00S04887.sform +++|ITEM PANELADDR I; # PANEL ADDRESS #
07762 M00S04888.sform +++|ITEM PANELNAME C(7); # PANEL NAME #
07763 M00S04889.sform +++|ITEM PLTINDEX I; # PANEL LOAD TABLE INDEX #
07764 M00S04890.sform +++|ITEM NUMWRITTEN I; # NUMBER OF PANELS WRITTEN #
07765 M00S04891.sform +++|
07766 M00S04892.sform +++|VDTCLS; # CLEAR SCREEN #
07767 M00S04893.sform +++|NUMWRITTEN = 0; # NO PANELS WRITTEN YET #
07768 M00S04894.sform +++|
07769 M00S04895.sform +++|WHYLE NUMWRITTEN NQ PLTNUMONSC[0] DO
07770 M00S04896.sform +++| BEGIN
07771 M00S04897.sform +++| NUMWRITTEN = NUMWRITTEN + 1;
07772 M00S04898.sform +++| PLTINDEX = 1; # FIND CORRECT PANEL #
07773 M00S04899.sform +++| WHYLE PLTENTRYNM[PLTINDEX] NQ NUMWRITTEN DO
07774 M00S04900.sform +++| BEGIN
07775 M00S04901.sform +++| PLTINDEX = PLTINDEX + 1;
07776 M00S04902.sform +++| END
07777 M00S04903.sform +++| PANELNAME = PLTENAME[PLTINDEX]; # WRITE PANEL #
07778 M00S04904.sform +++| PANELADDR = PLTADDR[PLTINDEX];
| Line S04905 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07779 M01S04905.252l678 ---| IF PLTNUMONSC[0] NQ 1 THEN POSARR(PANELADDR);
| Line S00226 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
07780 M02S00226.ns2503 ---| IF PLTNUMONSC[0] NQ 1 THEN
07781 M02S00227.ns2503 ---| BEGIN # IF MORE THAN ONE ON SCREEN #
07782 M02S00228.ns2503 ---| POSARR(PANELADDR);
07783 M02S00229.ns2503 ---| END
07784 M02S00230.ns2503 ---| ELSE
07785 M02S00231.ns2503 ---| BEGIN # JUST ONE ON SCREEN #
07786 M02S00232.ns2503 ---| VDTPRO(OUT"PROTECTALL");
07787 M02S00233.ns2503 ---| END
| Line S00003 Modification History |
M01 (Added by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
07788 M01S00003.ns2503 +++| IF PLTNUMONSC[0] NQ 1 THEN POSARR(PANELADDR);
07789 M00S04906.sform +++| IF NOT PANPRIPAN[0] THEN CLRLNS;
07790 M00S04907.sform +++| IF PANSTRFLD[0] NQ 0 THEN WRITES;
07791 M00S04908.sform +++| IF PANSTRBOX[0] NQ 0 THEN WRIBOX;
07792 M00S04909.sform +++| END
07793 M00S04910.sform +++|
| Line S04911 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07794 M01S04911.242l642 ---|IF PANELNAME NQ ACTIVEPAN THEN
| Line S01179 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07795 M01S01179.242l642 +++|IF PANELNAME NQ TERACTPANL[0] THEN
07796 M00S04912.sform +++| BEGIN # IF NEED TO REWRITE VARIABLES #
| Line S04913 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07797 M01S04913.242l642 ---| PANELADDR = PLTADDR[ACTPANPLTI];
| Line S01180 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07798 M01S01180.242l642 +++| PANELADDR = PLTADDR[TERACTPLTI[0]];
07799 M00S04914.sform +++| POSARR(PANELADDR);
07800 M00S04915.sform +++| IF PANPRIPAN[0] THEN
07801 M00S04916.sform +++| BEGIN # IF PRIMARY PANEL #
| Line S04917 Modification History |
M01 (Removed by) | ns2346 |
Seq # *Modification Id* Act
----------------------------+
07802 M01S04917.ns2346 ---| VDTPRO;
| Line S00039 Modification History |
M01 (Added by) | ns2346 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07803 M02S00039.252l678 ---| VDTPRO(OUT"PROTECTALL"); # ISSUE GLOBAL PROTECT #
| Line S04918 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07804 M01S04918.252l678 ---| IF PANNUMBYTE[0] NQ 0 THEN REWFLD;
| Line S00234 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
07805 M02S00234.ns2503 ---| IF NOT TERPROCLRS[0] THEN
07806 M02S00235.ns2503 ---| BEGIN # IF PROTECT DOES NOT CLEAR #
07807 M02S00236.ns2503 ---| VDTPRO(OUT"PROTECTALL"); # ISSUE GLOBAL PROTECT #
07808 M02S00237.ns2503 ---| IF PANNUMBYTE[0] NQ 0 THEN REWFLD;
07809 M02S00238.ns2503 ---| END
| Line S00004 Modification History |
M01 (Added by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
07810 M01S00004.ns2503 +++| IF NOT TERPROCLRS[0] THEN VDTPRO(OUT"PROTECTALL");
07811 M01S00005.ns2503 +++| IF PANNUMBYTE[0] NQ 0 THEN REWFLD;
07812 M00S04919.sform +++| END
07813 M00S04920.sform +++| ELSE
07814 M00S04921.sform +++| BEGIN # IF OVERLAY PANEL #
07815 M00S04922.sform +++| CLRLNS;
07816 M00S04923.sform +++| IF PANSTRFLD[0] NQ 0 THEN WRITES;
07817 M00S04924.sform +++| IF PANSTRBOX[0] NQ 0 THEN WRIBOX;
07818 M00S04925.sform +++| END
07819 M00S04926.sform +++| END
07820 M00S04927.sform +++|
| Line S04928 Modification History |
M01 (Removed by) | ns2346 |
Seq # *Modification Id* Act
----------------------------+
07821 M01S04928.ns2346 ---|VDTCAA; # CLEAR ALL ATTRIBUTES #
| Line S00040 Modification History |
M01 (Added by) | ns2346 |
M02 (Removed by) | ns2356 |
Seq # *Modification Id* Act
----------------------------+
07822 M02S00040.ns2356 ---|VDTSAM(0); # CLEAR ALL ATTRIBUTES #
| Line S00025 Modification History |
M01 (Added by) | ns2356 |
Seq # *Modification Id* Act
----------------------------+
07823 M01S00025.ns2356 +++| IF NOT TERBLCKMDE[0] THEN VDTSAM(0); ELSE VDTCAA(0);
| Line S04929 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07824 M01S04929.242l642 ---|VDTEOO;
07825 M00S04930.sform +++|
07826 M00S04931.sform +++|END # WRIALL #
07827 M00S04932.sform +++|CONTROL EJECT;
07828 M00S04933.sform +++|
07829 M00S04934.sform +++|PROC WRIBOX;
07830 M00S04935.sform +++|
07831 M00S04936.sform +++|# TITLE WRIBOX - WRITE BOX. #
07832 M00S04937.sform +++|
07833 M00S04938.sform +++|BEGIN # WRIBOX #
07834 M00S04939.sform +++|
07835 M00S04940.sform +++|#
07836 M00S04941.sform +++|** WRIBOX - WRITE BOX.
07837 M00S04942.sform +++|*
07838 M00S04943.sform +++|* THIS PROCEDURE WRITES THE BOXES DEFINED IN THE BOX LIST OF
07839 M00S04944.sform +++|* THE ACTIVE PANEL TO THE SCREEN.
07840 M00S04945.sform +++|*
07841 M00S04946.sform +++|* PROC WRIBOX
07842 M00S04947.sform +++|*
| Line S01181 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07843 M01S01181.242l642 +++|* CALLS VDTBOX, VDTDRW, VDTPOS, VDTPRO, VDTSAM.
07844 M01S01182.242l642 +++|*
07845 M00S04948.sform +++|* NOTES WRIBOX DOES CURSOR POSITIONING AND ATTRIBUTE SELECTION
07846 M00S04949.sform +++|* (WHICH INCLUDES SELECTION OF THE PROPER LINE WEIGHT
07847 M00S04950.sform +++|* FOR THE LINE DRAWING CHARACTER SET) AND DOES NOT DE-
07848 M00S04951.sform +++|* PEND ON THE CALLING PROCEDURE FOR THESE FUNCTIONS.
07849 M00S04952.sform +++|#
07850 M00S04953.sform +++|ITEM BOXINDEX I; # INDEX INTO THE BOX LIST #
| Line S04954 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07851 M01S04954.252l678 ---|ITEM CURORD I; # CURRENT ATTRIBUTE ORDINAL #
07852 M00S04955.sform +++|ITEM CURWEIGHT I; # CURRENT LINE WEIGHT #
07853 M00S04956.sform +++|ITEM NUMCHARS I; # NUMBER OF CHARACTERS #
07854 M00S04957.sform +++|
| Line S04958 Modification History |
M01 (Removed by) | ns2346 |
Seq # *Modification Id* Act
----------------------------+
07855 M01S04958.ns2346 ---|IF PANSTRFLD[0] EQ 0 THEN VDTPRO; # PROTECT SCREEN IF NO FIELDS #
| Line S00041 Modification History |
M01 (Added by) | ns2346 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07856 M02S00041.252l678 ---|IF PANSTRFLD[0] EQ 0 THEN VDTPRO(OUT"PROTECTALL"); # IF NO FIELDS #
| Line S00239 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07857 M01S00239.252l678 +++|IF PANSTRFLD[0] EQ 0 AND NOT TERPROCLRS[0] THEN
07858 M01S00240.252l678 +++| BEGIN # IF NO FIELDS AND NO CLEAR #
07859 M01S00241.252l678 +++| VDTPRO(OUT"PROTECTALL"); # ISSUE GLOBAL PROTECT #
07860 M01S00242.252l678 +++| END
07861 M00S04959.sform +++|
| Line S04960 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07862 M01S04960.252l678 ---|CURORD = -1; # NO CURRENT ATTRIBUTES YET #
| Line S00243 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07863 M01S00243.252l678 +++|TERCURVORD[0] = -1; # NO CURRENT ATTRIBUTES YET #
07864 M00S04961.sform +++|CURWEIGHT = -1; # NO CURRENT LINE WEIGHT YET #
07865 M00S04962.sform +++|
07866 M00S04963.sform +++|FOR BOXINDEX = 0 STEP 1 WHILE BOXWORD[BOXINDEX] NQ 0 DO
07867 M00S04964.sform +++| BEGIN # CHECK FOR ATTRIBUTE CHANGE #
| Line S04965 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07868 M01S04965.252l678 ---| IF BOXATTORD[BOXINDEX] NQ CURORD THEN
| Line S00244 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07869 M01S00244.252l678 +++| IF BOXATTORD[BOXINDEX] NQ TERCURVORD[0] THEN
07870 M00S04966.sform +++| BEGIN # SET NEW ATTRIBUTES #
| Line S04967 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07871 M01S04967.252l678 ---| CURORD = BOXATTORD[BOXINDEX];
07872 M01S04968.252l678 ---| VDTSAM(ATTMASK[CURORD]);
| Line S00245 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07873 M01S00245.252l678 +++| TERCURVORD[0] = BOXATTORD[BOXINDEX];
07874 M01S00246.252l678 +++| IF NOT TERATTRCHR[0] THEN VDTSAM(ATTMASK[TERCURVORD[0]]);
07875 M00S04969.sform +++| END
| Line S04970 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07876 M01S04970.252l678 ---| IF ATTLINEWT[CURORD] NQ CURWEIGHT THEN
| Line S00247 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07877 M01S00247.252l678 +++| IF ATTLINEWT[TERCURVORD[0]] NQ CURWEIGHT THEN
07878 M00S04971.sform +++| BEGIN # SET NEW LINE WEIGHT #
| Line S04972 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07879 M01S04972.252l678 ---| CURWEIGHT = ATTLINEWT[CURORD];
| Line S00248 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07880 M01S00248.252l678 +++| CURWEIGHT = ATTLINEWT[TERCURVORD[0]];
07881 M00S04973.sform +++| VDTDRW(CURWEIGHT);
07882 M00S04974.sform +++| END
07883 M00S04975.sform +++| IF BOXREPEAT[BOXINDEX] GR 1 THEN
07884 M00S04976.sform +++| BEGIN # IF HORIZONTAL / VERTICAL LINE #
07885 M00S04977.sform +++| IF BOXCHAR[BOXINDEX] EQ 0 THEN
07886 M00S04978.sform +++| BEGIN # IF HORIZONTAL LINE #
| Line S04979 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07887 M01S04979.242l642 ---| IF BOXYCORD[BOXINDEX] LQ NUMLINES THEN
| Line S01183 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07888 M01S01183.242l642 +++| IF BOXYCORD[BOXINDEX] LQ TERNUMLNES[0] THEN
07889 M00S04980.sform +++| BEGIN # IF LINE WITHIN LINE BOUNDARY #
07890 M00S04981.sform +++| VDTPOS(BOXXCORD[BOXINDEX],BOXYCORD[BOXINDEX]);
07891 M00S04982.sform +++| FOR NUMCHARS = 0 STEP 1 UNTIL BOXREPEAT[BOXINDEX]-1 DO
07892 M00S04983.sform +++| BEGIN # OUTPUT HORIZONTAL LINE #
| Line S04984 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07893 M01S04984.242l642 ---| IF BOXXCORD[BOXINDEX] + NUMCHARS LQ NUMCOLS THEN
| Line S01184 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07894 M01S01184.242l642 +++| IF BOXXCORD[BOXINDEX] + NUMCHARS LQ TERNUMCOLS[0] THEN
07895 M00S04985.sform +++| BEGIN # IF WITHIN COLUMN BOUNDARY #
07896 M00S04986.sform +++| VDTBOX(BOXCHAR[BOXINDEX]);
07897 M00S04987.sform +++| END
07898 M00S04988.sform +++| END
07899 M00S04989.sform +++| END
07900 M00S04990.sform +++| END
07901 M00S04991.sform +++| ELSE
07902 M00S04992.sform +++| BEGIN # IF VERTICAL LINE #
| Line S04993 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07903 M01S04993.242l642 ---| IF BOXXCORD[BOXINDEX] LQ NUMCOLS THEN
| Line S01185 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07904 M01S01185.242l642 +++| IF BOXXCORD[BOXINDEX] LQ TERNUMCOLS[0] THEN
07905 M00S04994.sform +++| BEGIN # IF LINE WITHIN COLUMN BOUNDARY #
07906 M00S04995.sform +++| FOR NUMCHARS = 0 STEP 1 UNTIL BOXREPEAT[BOXINDEX]-1 DO
07907 M00S04996.sform +++| BEGIN # OUTPUT VERTICAL LINE #
| Line S04997 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07908 M01S04997.242l642 ---| IF BOXYCORD[BOXINDEX] + NUMCHARS LQ NUMLINES THEN
| Line S01186 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07909 M01S01186.242l642 +++| IF BOXYCORD[BOXINDEX] + NUMCHARS LQ TERNUMLNES[0]THEN
07910 M00S04998.sform +++| BEGIN # IF WITHIN LINE BOUNDARY #
07911 M00S04999.sform +++| VDTPOS(BOXXCORD[BOXINDEX],BOXYCORD[BOXINDEX]+NUMCHARS);
07912 M00S05000.sform +++| VDTBOX(BOXCHAR[BOXINDEX]);
07913 M00S05001.sform +++| END
07914 M00S05002.sform +++| END
07915 M00S05003.sform +++| END
07916 M00S05004.sform +++| END
07917 M00S05005.sform +++| END
07918 M00S05006.sform +++| ELSE
07919 M00S05007.sform +++| BEGIN # OUTPUT SINGLE BOX CHARACTER #
| Line S05008 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07920 M01S05008.242l642 ---| IF BOXYCORD[BOXINDEX] LQ NUMLINES
07921 M01S05009.242l642 ---| AND BOXXCORD[BOXINDEX] LQ NUMCOLS THEN
| Line S01187 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07922 M01S01187.242l642 +++| IF BOXYCORD[BOXINDEX] LQ TERNUMLNES[0]
07923 M01S01188.242l642 +++| AND BOXXCORD[BOXINDEX] LQ TERNUMCOLS[0] THEN
07924 M00S05010.sform +++| BEGIN # IF CHARACTER WITHIN BOUNDARIES #
07925 M00S05011.sform +++| VDTPOS(BOXXCORD[BOXINDEX],BOXYCORD[BOXINDEX]);
07926 M00S05012.sform +++| VDTBOX(BOXCHAR[BOXINDEX]);
07927 M00S05013.sform +++| END
07928 M00S05014.sform +++| END
07929 M00S05015.sform +++| END
07930 M00S05016.sform +++|
07931 M00S05017.sform +++|VDTDRW(0); # TURN OFF LINE DRAWING #
07932 M00S05018.sform +++|
07933 M00S05019.sform +++|END # WRIBOX #
07934 M00S05020.sform +++|CONTROL EJECT;
07935 M00S05021.sform +++|
07936 M00S05022.sform +++|PROC WRIPAN;
07937 M00S05023.sform +++|
07938 M00S05024.sform +++|# TITLE WRIPAN - WRITE PANEL. #
07939 M00S05025.sform +++|
07940 M00S05026.sform +++|BEGIN # WRIPAN #
07941 M00S05027.sform +++|
07942 M00S05028.sform +++|#
07943 M00S05029.sform +++|** WRIPAN - WRITE PANEL.
07944 M00S05030.sform +++|*
07945 M00S05031.sform +++|* THIS PROCEDURE DETERMINES IF THE PANEL TO BE WRITTEN IS
07946 M00S05032.sform +++|* A PRIMARY OR AN OVERLAY PANEL, ASSURES THAT THE TERMINAL
07947 M00S05033.sform +++|* IS IN SCREEN MODE AND CALLS THE PROPER ROUTINES TO WRITE
07948 M00S05034.sform +++|* THE PANEL TO THE SCREEN.
07949 M00S05035.sform +++|*
07950 M00S05036.sform +++|* PROC WRIPAN
07951 M00S05037.sform +++|*
| Line S05038 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07952 M01S05038.242l642 ---|* ENTRY ACTIVEPAN = THE NAME OF THE PANEL TO BE WRITTEN.
07953 M01S05039.242l642 ---|* ACTPANPLTI = THE CORRESPONDING PLT INDEX.
| Line S01189 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07954 M01S01189.242l642 +++|* ENTRY TERACTPANL = THE NAME OF THE PANEL TO BE WRITTEN.
07955 M01S01190.242l642 +++|* TERACTPLTI = THE CORRESPONDING PLT INDEX.
07956 M00S05040.sform +++|*
07957 M00S05041.sform +++|* EXIT PANEL WRITTEN TO SCREEN.
07958 M00S05042.sform +++|*
| Line S01191 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | ns2346 |
Seq # *Modification Id* Act
----------------------------+
07959 M02S01191.ns2346 ---|* CALLS REWFLD, SETSRN, WRIALL, WRIBOX, WRITES, VDTCAA, VDTCLS,
07960 M02S01192.ns2346 ---|* VDTGTD, VDTPRO, VDTSTD.
| Line S00042 Modification History |
M01 (Added by) | ns2346 |
M02 (Removed by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
07961 M02S00042.ns2503 ---|* CALLS REWFLD, SETSRN, WRIALL, WRIBOX, WRITES, VDTCLS, VDTGTD,
07962 M02S00043.ns2503 ---|* VDTPRO, VDTSAM, VDTSTD.
| Line S00006 Modification History |
M01 (Added by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
07963 M01S00006.ns2503 +++|* CALLS REWFLD, SETSRN, WRIALL, WRIBOX, WRITES, VDTCAA, VDTCLS,
07964 M01S00007.ns2503 +++|* VDTGTD, VDTPRO, VDTSAM, VDTSTD.
| Line S01193 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07965 M01S01193.242l642 +++|*
07966 M00S05043.sform +++|* NOTES IF AN ATTEMPT IS MADE TO WRITE AN OVERLAY PANEL
07967 M00S05044.sform +++|* WITHOUT A PREVIOUS PRIMARY PANEL BEING WRITTEN
07968 M00S05045.sform +++|* (I.E. THE TERMINAL IS IN LINE MODE) THEN A DAY-
07969 M00S05046.sform +++|* FILE MESSAGE WILL BE ISSUED AND THE PROGRAM WILL
07970 M00S05047.sform +++|* BE ABORTED.
07971 M00S05048.sform +++|#
07972 M00S05049.sform +++|ITEM FATAL B = TRUE; # FATAL ERROR #
07973 M00S05050.sform +++|ITEM HOLDCOLS I; # NUMBER OF REQUESTED COLUMNS #
07974 M00S05051.sform +++|ITEM HOLDLINES I; # NUMBER OF REQUESTED LINES #
07975 M00S05052.sform +++|ITEM MSG C(25) = " NOT PRIMARY. "; # ERROR MSG. #
07976 M00S05053.sform +++|ITEM PANELADDR I; # ADDRESS OF PANEL RECORD #
07977 M00S05054.sform +++|ITEM PLTCOUNT I; # COUNTER TO CLEAR PLT #
07978 M00S05055.sform +++|ITEM PNAME C(6) = "SFSWRI"; # PROCEDURE NAME #
07979 M00S05056.sform +++|
| Line S05057 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07980 M01S05057.242l642 ---|IF PLTENTRYNM[ACTPANPLTI] NQ 0 THEN
| Line S01194 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07981 M01S01194.242l642 +++|IF PLTENTRYNM[TERACTPLTI[0]] NQ 0 THEN
07982 M00S05058.sform +++| BEGIN # IF PANEL IS ON SCREEN #
| Line S05059 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
07983 M01S05059.242l642 ---| VDTBOO;
07984 M00S05060.sform +++| IF PANPRIPAN[0] THEN
07985 M00S05061.sform +++| BEGIN # IF PRIMARY ON SCREEN #
| Line S05062 Modification History |
M01 (Removed by) | ns2346 |
Seq # *Modification Id* Act
----------------------------+
07986 M01S05062.ns2346 ---| IF PLTNUMONSC[0] GR 1 THEN VDTPRO;
| Line S00044 Modification History |
M01 (Added by) | ns2346 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07987 M02S00044.252l678 ---| IF PLTNUMONSC[0] GR 1 THEN VDTPRO(OUT"PROTECTALL");
| Line S00249 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
07988 M01S00249.252l678 +++| IF PLTNUMONSC[0] GR 1 AND NOT TERPROCLRS[0] THEN
07989 M01S00250.252l678 +++| BEGIN # IF MORE THAN 1 AND NO CLEAR #
07990 M01S00251.252l678 +++| VDTPRO(OUT"PROTECTALL"); # ISSUE GLOBAL PROTECT #
07991 M01S00252.252l678 +++| END
07992 M00S05063.sform +++| IF PANNUMBYTE[0] NQ 0 THEN REWFLD;
07993 M00S05064.sform +++| END
07994 M00S05065.sform +++| ELSE
07995 M00S05066.sform +++| BEGIN # IF OVERLAY ON SCREEN #
07996 M00S05067.sform +++| CLRLNS; # CLEAR NECESSARY LINES #
07997 M00S05068.sform +++| IF PANSTRFLD[0] NQ 0 THEN WRITES;
07998 M00S05069.sform +++| IF PANSTRBOX[0] NQ 0 THEN WRIBOX;
| Line S05070 Modification History |
M01 (Removed by) | ns2346 |
Seq # *Modification Id* Act
----------------------------+
07999 M01S05070.ns2346 ---| VDTCAA; # CLEAR ALL ATTRIBUTES #
| Line S00045 Modification History |
M01 (Added by) | ns2346 |
M02 (Removed by) | sform16 |
Seq # *Modification Id* Act
----------------------------+
08000 M02S00045.sform16 ---| VDTSAM(0); # CLEAR ALL ATTRIBUTES #
| Line S00001 Modification History |
M01 (Added by) | sform16 |
Seq # *Modification Id* Act
----------------------------+
08001 M01S00001.sform16 +++| IF NOT TERBLCKMDE[0] THEN VDTSAM(0); ELSE VDTCAA(0);
| Line S00001 Modification History |
M01 (Added by) | sform27 |
Seq # *Modification Id* Act
----------------------------+
08002 M01S00001.sform27 +++| FOR PLTCOUNT = 1 STEP 1 UNTIL PLTNUMENT[0] DO
08003 M01S00002.sform27 +++| BEGIN # UPDATE SEQUENCE NUMBERS #
08004 M01S00003.sform27 +++| IF PLTENTRYNM[PLTCOUNT] GR PLTENTRYNM[TERACTPLTI[0]] THEN
08005 M01S00004.sform27 +++| BEGIN
08006 M01S00005.sform27 +++| PLTENTRYNM[PLTCOUNT] = PLTENTRYNM[PLTCOUNT]-1;
08007 M01S00006.sform27 +++| END
08008 M01S00007.sform27 +++| END
08009 M01S00008.sform27 +++| PLTENTRYNM[TERACTPLTI[0]] = PLTNUMENT[0];
08010 M00S05071.sform +++| END
08011 M00S05072.sform +++| END
08012 M00S05073.sform +++|ELSE
08013 M00S05074.sform +++| BEGIN # IF PANEL NOT ON SCREEN #
08014 M00S05075.sform +++| HOLDCOLS = PANNUMCOLS[0]; # GET REQUESTED COLUMNS #
| Line S05076 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08015 M01S05076.242l642 ---| HOLDLINES = PANNUMLNES[0] + 1; # GET REQUESTED LINES #
| Line S01195 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08016 M01S01195.242l642 +++| HOLDLINES = PANNUMLNES[0]; # GET REQUESTED LINES #
08017 M00S05077.sform +++| IF PANPRIPAN[0] THEN
08018 M00S05078.sform +++| BEGIN # IF PRIMARY NOT ON SCREEN #
08019 M00S05079.sform +++| IF NOT TERSCREENM[0] THEN
08020 M00S05080.sform +++| BEGIN # IF NOT IN SCREEN MODE #
08021 M00S05081.sform +++| SETSRN(HOLDCOLS,HOLDLINES); # SET SCREEN MODE #
08022 M00S05082.sform +++| END
08023 M00S05083.sform +++| ELSE
08024 M00S05084.sform +++| BEGIN
08025 M00S05085.sform +++| VDTSTD(HOLDCOLS,HOLDLINES); # SET SCREEN SIZE #
08026 M00S05086.sform +++| VDTGTD(HOLDCOLS,HOLDLINES); # GET ACTUAL VALUES #
| Line S05087 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08027 M01S05087.242l642 ---| NUMCOLS = HOLDCOLS - 1; # SET INTERNAL VALUE #
08028 M01S05088.242l642 ---| NUMLINES = HOLDLINES - 1; # SET INTERNAL VALUE #
| Line S01196 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08029 M01S01196.242l642 +++| TERNUMCOLS[0] = HOLDCOLS - 1; # SET INTERNAL VALUE #
08030 M01S01197.242l642 +++| TERNUMLNES[0] = HOLDLINES - 1; # SET INTERNAL VALUE #
| Line S05089 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
08031 M01S05089.252l678 ---| VDTCLS; # CLEAR SCREEN #
08032 M00S05090.sform +++| END
| Line S00253 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
08033 M01S00253.252l678 +++| VDTCLS;
08034 M00S05091.sform +++| TERCNWRIOV[0] = TRUE; # ALLOW OVERLAY WRITE #
08035 M00S05092.sform +++| FOR PLTCOUNT = 1 STEP 1 UNTIL PLTNUMENT[0] DO
08036 M00S05093.sform +++| BEGIN # CLEAR SEQUENCE NUMBERS #
08037 M00S05094.sform +++| PLTENTRYNM[PLTCOUNT] = 0;
08038 M00S05095.sform +++| END
08039 M00S05096.sform +++| PLTNUMONSC[0] = 1; # ONE PANEL ON SCREEN #
| Line S05097 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08040 M01S05097.242l642 ---| PLTENTRYNM[ACTPANPLTI] = 1;
| Line S01198 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08041 M01S01198.242l642 +++| PLTENTRYNM[TERACTPLTI[0]] = 1;
08042 M00S05098.sform +++| TERMESWRIT[0] = FALSE;
08043 M00S05099.sform +++| TERMESREAD[0] = FALSE;
| Line S00254 Modification History |
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
08044 M02S00254.ns2503 ---| VDTPRO(OUT"PROTECTALL"); # ISSUE GLOBAL PROTECT #
| Line S00008 Modification History |
M01 (Added by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
08045 M01S00008.ns2503 +++| IF TERPROCLRS[0] THEN VDTPRO(OUT"PROTECTALL");
08046 M00S05100.sform +++| IF PANSTRFLD[0] NQ 0 THEN WRITES;
08047 M00S05101.sform +++| IF PANSTRBOX[0] NQ 0 THEN WRIBOX;
| Line S05102 Modification History |
M01 (Removed by) | ns2346 |
Seq # *Modification Id* Act
----------------------------+
08048 M01S05102.ns2346 ---| VDTCAA; # CLEAR ALL ATTRIBUTES #
| Line S00046 Modification History |
M01 (Added by) | ns2346 |
M02 (Removed by) | ns2356 |
Seq # *Modification Id* Act
----------------------------+
08049 M02S00046.ns2356 ---| VDTSAM(0); # CLEAR ALL ATTRIBUTES #
| Line S00026 Modification History |
M01 (Added by) | ns2356 |
Seq # *Modification Id* Act
----------------------------+
08050 M01S00026.ns2356 +++| IF NOT TERBLCKMDE[0] THEN VDTSAM(0); ELSE VDTCAA(0);
08051 M00S05103.sform +++| END
08052 M00S05104.sform +++| ELSE
08053 M00S05105.sform +++| BEGIN # IF OVERLAY NOT ON SCREEN #
| Line S05106 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08054 M01S05106.242l642 ---| IF NOT TERCNWRIOV[0] THEN ERRMSG(ACTIVEPAN,PNAME,MSG,FATAL);
| Line S01199 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08055 M01S01199.242l642 +++| IF NOT TERCNWRIOV[0] THEN ERRMSG(TERACTPANL[0],PNAME,MSG,FATAL);
| Line S05107 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08056 M01S05107.242l642 ---| VDTBOO;
08057 M00S05108.sform +++| PLTNUMONSC[0] = PLTNUMONSC[0] + 1;
| Line S05109 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08058 M01S05109.242l642 ---| PLTENTRYNM[ACTPANPLTI] = PLTNUMONSC[0];
08059 M01S05110.242l642 ---| IF HOLDCOLS GR NUMCOLS OR HOLDLINES GR NUMLINES THEN
| Line S01200 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08060 M01S01200.242l642 +++| PLTENTRYNM[TERACTPLTI[0]] = PLTNUMONSC[0];
08061 M01S01201.242l642 +++| IF HOLDCOLS GR TERNUMCOLS[0] OR HOLDLINES GR TERNUMLNES[0] THEN
08062 M00S05111.sform +++| BEGIN
08063 M00S05112.sform +++| VDTSTD(HOLDCOLS,HOLDLINES); # SET SCREEN SIZE #
08064 M00S05113.sform +++| VDTGTD(HOLDCOLS,HOLDLINES); # GET ACTUAL VALUES #
| Line S05114 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08065 M01S05114.242l642 ---| IF HOLDCOLS NQ NUMCOLS+1 OR HOLDLINES NQ NUMLINES+1 THEN
08066 M01S05115.242l642 ---| BEGIN # IF SCREEN SIZE CHANGED #
08067 M01S05116.242l642 ---| NUMCOLS = HOLDCOLS - 1; # RESET SCREEN DIMENSIONS #
08068 M01S05117.242l642 ---| NUMLINES = HOLDLINES - 1;
| Line S01202 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08069 M01S01202.242l642 +++| IF HOLDCOLS NQ TERNUMCOLS[0] + 1 OR
08070 M01S01203.242l642 +++| HOLDLINES NQ TERNUMLNES[0] + 1 THEN
08071 M01S01204.242l642 +++| BEGIN # IF SCREEN SIZE CHANGED, RESET #
08072 M01S01205.242l642 +++| TERNUMCOLS[0] = HOLDCOLS - 1;
08073 M01S01206.242l642 +++| TERNUMLNES[0] = HOLDLINES - 1;
08074 M00S05118.sform +++| WRIALL; # WRITE ALL PANELS #
08075 M00S05119.sform +++| END
08076 M00S05120.sform +++| ELSE
08077 M00S05121.sform +++| BEGIN # NO CHANGE TO SCREEN SIZE #
08078 M00S05122.sform +++| CLRLNS; # CLEAR NECESSARY LINES #
08079 M00S05123.sform +++| IF PANSTRFLD[0] NQ 0 THEN WRITES;
08080 M00S05124.sform +++| IF PANSTRBOX[0] NQ 0 THEN WRIBOX;
| Line S05125 Modification History |
M01 (Removed by) | ns2346 |
Seq # *Modification Id* Act
----------------------------+
08081 M01S05125.ns2346 ---| VDTCAA; # CLEAR ALL ATTRIBUTES #
| Line S00047 Modification History |
M01 (Added by) | ns2346 |
M02 (Removed by) | ns2356 |
Seq # *Modification Id* Act
----------------------------+
08082 M02S00047.ns2356 ---| VDTSAM(0); # CLEAR ALL ATTRIBUTES #
| Line S00027 Modification History |
M01 (Added by) | ns2356 |
Seq # *Modification Id* Act
----------------------------+
08083 M01S00027.ns2356 +++| IF NOT TERBLCKMDE[0] THEN VDTSAM(0); ELSE VDTCAA(0);
08084 M00S05126.sform +++| END
08085 M00S05127.sform +++| END
08086 M00S05128.sform +++| ELSE
08087 M00S05129.sform +++| BEGIN
08088 M00S05130.sform +++| CLRLNS; # CLEAR NECESSARY LINES #
08089 M00S05131.sform +++| IF PANSTRFLD[0] NQ 0 THEN WRITES;
08090 M00S05132.sform +++| IF PANSTRBOX[0] NQ 0 THEN WRIBOX;
| Line S05133 Modification History |
M01 (Removed by) | ns2346 |
Seq # *Modification Id* Act
----------------------------+
08091 M01S05133.ns2346 ---| VDTCAA; # CLEAR ALL ATTRIBUTES #
| Line S00048 Modification History |
M01 (Added by) | ns2346 |
M02 (Removed by) | ns2356 |
Seq # *Modification Id* Act
----------------------------+
08092 M02S00048.ns2356 ---| VDTSAM(0); # CLEAR ALL ATTRIBUTES #
| Line S00028 Modification History |
M01 (Added by) | ns2356 |
Seq # *Modification Id* Act
----------------------------+
08093 M01S00028.ns2356 +++| IF NOT TERBLCKMDE[0] THEN VDTSAM(0); ELSE VDTCAA(0);
08094 M00S05134.sform +++| END
08095 M00S05135.sform +++| END
08096 M00S05136.sform +++| END
| Line S05137 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08097 M01S05137.242l642 ---|VDTEOO; # END OUTPUT SEQUENCE #
08098 M00S05138.sform +++|
08099 M00S05139.sform +++|END # WRIPAN #
08100 M00S05140.sform +++|CONTROL EJECT;
08101 M00S05141.sform +++|
08102 M00S05142.sform +++|PROC WRITES;
08103 M00S05143.sform +++|
08104 M00S05144.sform +++|# TITLE WRITES - WRITE SCREEN. #
08105 M00S05145.sform +++|
08106 M00S05146.sform +++|BEGIN # WRITES #
08107 M00S05147.sform +++|
08108 M00S05148.sform +++|#
08109 M00S05149.sform +++|** WRITES - WRITE SCREEN.
08110 M00S05150.sform +++|*
08111 M00S05151.sform +++|* THIS PROCEDURE WRITES THE PANEL TO THE SCREEN USING THE
08112 M00S05152.sform +++|* POSITIONING INFORMATION FOUND IN THE FIELD LIST AND THE
08113 M00S05153.sform +++|* DATA FOUND IN THE CONSTANT LIST AND VARIABLE DATA AREAS.
08114 M00S05154.sform +++|*
08115 M00S05155.sform +++|* PROC WRITES
08116 M00S05156.sform +++|*
08117 M00S05157.sform +++|* EXIT PANEL WRITTEN TO SCREEN.
| Line S01207 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08118 M01S01207.242l642 +++|*
| Line S01208 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
08119 M02S01208.ns2503 ---|* CALLS SETATR, VDTSTR, WRIVAR.
| Line S00009 Modification History |
M01 (Added by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
08120 M01S00009.ns2503 +++|* CALLS SETATR, VDTCAA, VDTPRO, VDTSAM, VDTSTR, WRIVAR.
08121 M00S05158.sform +++|#
| Line S05159 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08122 M01S05159.242l642 ---|ITEM CURORD I; # CURRENT ATTRIBUTE ORDINAL #
08123 M00S05160.sform +++|ITEM FLDINDEX I; # INDEX INTO FIELD LIST #
08124 M00S05161.sform +++|BASED ARRAY CONSTRING;; # PASSES ADDRESS TO VDTSTR #
08125 M00S05162.sform +++|
| Line S05163 Modification History |
M01 (Removed by) | ns2346 |
Seq # *Modification Id* Act
----------------------------+
08126 M01S05163.ns2346 ---|VDTPRO; # GLOBAL PROTECT #
| Line S00049 Modification History |
M01 (Added by) | ns2346 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
08127 M02S00049.252l678 ---|VDTPRO(OUT"PROTECTALL"); # ISSUE GLOBAL PROTECT #
| Line S05164 Modification History |
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
08128 M01S05164.252l678 ---|CURORD = -1; # NO CURRENT ATTRIBUTES YET #
| Line S01209 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
08129 M02S01209.252l678 ---|LASTPOS = - 1; # LAST ATTRIBUTE POSITION #
| Line S00255 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
08130 M01S00255.252l678 +++|TERCURVORD[0] = -1; # NO CURRENT ATTRIBUTES YET #
08131 M01S00256.252l678 +++|TERPREVPOS[0] = -1; # LAST ATTRIBUTE POSITION #
08132 M00S05165.sform +++|
| Line S00010 Modification History |
M01 (Added by) | ns2503 |
Seq # *Modification Id* Act
----------------------------+
08133 M01S00010.ns2503 +++|IF NOT TERPROCLRS[0] THEN VDTPRO(OUT"PROTECTALL");
08134 M01S00011.ns2503 +++|
08135 M00S05166.sform +++|FOR FLDINDEX = 0 STEP 1 WHILE FLDENTRY[FLDINDEX] NQ 0 DO
08136 M00S05167.sform +++| BEGIN
08137 M00S05168.sform +++| IF FLDACTIVE[FLDINDEX] THEN
08138 M00S05169.sform +++| BEGIN
| Line S05170 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08139 M01S05170.242l642 ---| IF FLDXCORD[FLDINDEX] + FLDLENGTH[FLDINDEX] LQ NUMCOLS + 1
08140 M01S05171.242l642 ---| AND FLDYCORD[FLDINDEX] LQ NUMLINES THEN
| Line S01210 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08141 M01S01210.242l642 +++| IF FLDXCORD[FLDINDEX] + FLDLENGTH[FLDINDEX] LQ TERNUMCOLS[0] + 1
08142 M01S01211.242l642 +++| AND FLDYCORD[FLDINDEX] LQ TERNUMLNES[0] THEN
08143 M00S05172.sform +++| BEGIN # IF FIELD ON SCREEN #
| Line S05173 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08144 M01S05173.242l642 ---| VDTPOS(FLDXCORD[FLDINDEX],FLDYCORD[FLDINDEX]);
08145 M01S05174.242l642 ---| IF FLDATTORD[FLDINDEX] NQ CURORD THEN
08146 M01S05175.242l642 ---| BEGIN # IF NOT CURRENT ATTRIBUTES #
08147 M01S05176.242l642 ---| CURORD = FLDATTORD[FLDINDEX];
08148 M01S05177.242l642 ---| VDTSAM(ATTMASK[CURORD]); # SET NEW ATTRIBUTES #
08149 M01S05178.242l642 ---| END
| Line S01212 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08150 M01S01212.242l642 +++| SETATR(FLDINDEX); # SET FIELD ATTRIBUTES #
08151 M00S05179.sform +++| IF FLDVARFLAG[FLDINDEX] THEN # IF VARIABLE FIELD #
08152 M00S05180.sform +++| BEGIN
08153 M00S05181.sform +++| WRIVAR(FLDINDEX); # WRITE VARIABLE FIELD #
08154 M00S05182.sform +++| END
08155 M00S05183.sform +++| ELSE
08156 M00S05184.sform +++| BEGIN # WRITE CONSTANT FIELD #
08157 M00S05185.sform +++| P<CONSTRING>=LOC(RECWORDC[FLDCONOS[FLDINDEX]]);
08158 M00S05186.sform +++| VDTSTR(CONSTRING);
08159 M00S05187.sform +++| FLDREWRITE[FLDINDEX] = FALSE; # CLEAR REWRITE FIELD FLAG #
08160 M00S05188.sform +++| END
| Line S01213 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08161 M01S01213.242l642 +++| IF TERTABPROT[0] THEN
08162 M01S01214.242l642 +++| BEGIN # IF PROTECTED TABBING #
08163 M01S01215.242l642 +++| IF TERATTRSET[0] THEN
08164 M01S01216.242l642 +++| BEGIN # RESET ATTRIBUTES BEFORE VDTPOS #
| Line S01217 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
08165 M02S01217.252l678 ---| IF CURORD NQ 2 THEN
| Line S00257 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
08166 M01S00257.252l678 +++| IF TERCURVORD[0] NQ 2 THEN
| Line S01218 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08167 M01S01218.242l642 +++| BEGIN # IF NOT PROTECTED OUTPUT #
| Line S01219 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
08168 M02S01219.252l678 ---| CURORD = 2; # SET ORDINAL AND ISSUE IT #
| Line S00258 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
08169 M01S00258.252l678 +++| TERCURVORD[0] = 2; # SET ORDINAL AND ISSUE IT #
| Line S01220 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
08170 M01S01220.242l642 +++| VDTSAM(O"6001");
08171 M01S01221.242l642 +++| END
08172 M01S01222.242l642 +++| END
08173 M01S01223.242l642 +++| END
08174 M00S05189.sform +++| END
08175 M00S05190.sform +++| ELSE
08176 M00S05191.sform +++| BEGIN # IF FIELD NOT ON SCREEN #
08177 M00S05192.sform +++| FLDACTIVE[FLDINDEX] = FALSE; # CLEAR ACTIVE FIELD FLAG #
08178 M00S05193.sform +++| FLDREWRITE[FLDINDEX] = FALSE; # CLEAR REWRITE FIELD FLAG #
08179 M00S05194.sform +++| END
08180 M00S05195.sform +++| END
08181 M00S05196.sform +++| END
| Line S00050 Modification History |
M01 (Added by) | ns2346 |
M02 (Removed by) | ns2356 |
Seq # *Modification Id* Act
----------------------------+
08182 M02S00050.ns2356 ---| VDTSAM(0); # CLEAR ALL ATTRIBUTES #
| Line S00029 Modification History |
M01 (Added by) | ns2356 |
M02 (Removed by) | sform16 |
Seq # *Modification Id* Act
----------------------------+
08183 M02S00029.sform16 ---| IF NOT TERBLCKMDE[0] THEN VDTSAM(0); ELSE VDTCAA(0);
| Line S00002 Modification History |
M01 (Added by) | sform16 |
Seq # *Modification Id* Act
----------------------------+
08184 M01S00002.sform16 +++| IF NOT TERBLCKMDE[0] THEN VDTSAM(0); ELSE VDTSAM(O"6001");
08185 M00S05197.sform +++|
08186 M00S05198.sform +++|END # WRITES #
08187 M00S05199.sform +++|CONTROL EJECT;
08188 M00S05200.sform +++|
08189 M00S05201.sform +++|PROC WRIVAR(FLDINDEX);
08190 M00S05202.sform +++|
08191 M00S05203.sform +++|# TITLE WRIVAR - WRITE VARIABLE. #
08192 M00S05204.sform +++|
08193 M00S05205.sform +++|BEGIN # WRIVAR #
08194 M00S05206.sform +++|
08195 M00S05207.sform +++|#
08196 M00S05208.sform +++|** WRIVAR - WRITE VARIABLE.
08197 M00S05209.sform +++|*
08198 M00S05210.sform +++|* THIS PROCEDURE WRITES THE VARIABLE POINTED AT BY FLDINDEX
08199 M00S05211.sform +++|* TO THE SCREEN.
08200 M00S05212.sform +++|*
08201 M00S05213.sform +++|* PROC WRIVAR(FLDINDEX)
08202 M00S05214.sform +++|*
08203 M00S05215.sform +++|* ENTRY FLDINDEX = INDEX INTO THE FIELD LIST.
08204 M00S05216.sform +++|*
08205 M00S05217.sform +++|* EXIT VARIABLE WRITTEN TO SCREEN.
08206 M00S05218.sform +++|*
08207 M00S05219.sform +++|* NOTES CURSOR POSITIONING HAS BEEN DONE BY THE CALLING
08208 M00S05220.sform +++|* PROCEDURE AS WELL AS ATTRIBUTE SELECTION.
| Line S00001 Modification History |
M01 (Added by) | ns2385 |
Seq # *Modification Id* Act
----------------------------+
08209 M01S00001.ns2385 +++|*
08210 M01S00002.ns2385 +++|* CALLS VDTPSU.
08211 M00S05221.sform +++|#
08212 M00S05222.sform +++|ITEM FLDINDEX I; # INDEX INTO THE FIELD LIST #
08213 M00S05223.sform +++|
08214 M00S05224.sform +++|ITEM CHARACTER I; # HOLDS ONE CHARACTER FOR VDTCHR #
08215 M00S05225.sform +++|ITEM CHARINDEX I; # CHARACTER OFFSET INTO VARDATA #
| Line S00010 Modification History |
M01 (Added by) | sform18 |
Seq # *Modification Id* Act
----------------------------+
08216 M01S00010.sform18 +++|ITEM ENDCHAR I; # LOCATION OF LAST NON-BLANK #
08217 M00S05226.sform +++|ITEM NUMCHARS I; # NUMCHARS TO WRITE #
08218 M00S05227.sform +++|ITEM WORDINDEX I; # WORD OFFSET INTO VARDATA #
08219 M00S05228.sform +++|
08220 M00S05229.sform +++|FLDREWRITE[FLDINDEX] = FALSE; # CLEAR REWRITE FIELD FLAG #
08221 M00S05230.sform +++|
08222 M00S05231.sform +++|IF NOT TERDONTCLR[0] THEN
08223 M00S05232.sform +++| BEGIN # CLEAR READ FLAGS #
08224 M00S05233.sform +++| FLDENTERED[FLDINDEX] = FALSE;
08225 M00S05234.sform +++| FLDVALID[FLDINDEX] = FALSE;
| Line S05235 Modification History |
M01 (Removed by) | sform18 |
Seq # *Modification Id* Act
----------------------------+
08226 M01S05235.sform18 ---| END
08227 M01S05236.sform18 ---|IF NOT FLDOUTPUTV[FLDINDEX] THEN
08228 M01S05237.sform18 ---| BEGIN # IF INPUT ONLY VARIABLE #
08229 M01S05238.sform18 ---| FOR NUMCHARS = 0 STEP 1 UNTIL FLDLENGTH[FLDINDEX]-1 DO
08230 M01S05239.sform18 ---| BEGIN # OUTPUT BLANKS TO SCREEN #
| Line S05240 Modification History |
M01 (Removed by) | ns2385 |
M02 (Removed by) | sform18 |
Seq # *Modification Id* Act
----------------------------+
08231 M02S05240.sform18 ---| VDTCHR(BLANK);
| Line S00003 Modification History |
M01 (Added by) | ns2385 |
M02 (Removed by) | sform18 |
Seq # *Modification Id* Act
----------------------------+
08232 M02S00003.sform18 ---| VDTPSU;
| Line S05241 Modification History |
M01 (Removed by) | sform18 |
Seq # *Modification Id* Act
----------------------------+
08233 M01S05241.sform18 ---| END
08234 M01S05242.sform18 ---| END
08235 M01S05243.sform18 ---|ELSE
| Line S00011 Modification History |
M01 (Added by) | sform18 |
Seq # *Modification Id* Act
----------------------------+
08236 M01S00011.sform18 +++| END
08237 M01S00012.sform18 +++|ENDCHAR = 0;
08238 M01S00013.sform18 +++|IF FLDOUTPUTV[FLDINDEX] THEN
08239 M00S05244.sform +++| BEGIN # IF NOT INPUT ONLY VARIABLE #
| Line S00014 Modification History |
M01 (Added by) | sform18 |
Seq # *Modification Id* Act
----------------------------+
08240 M01S00014.sform18 +++| CHARINDEX = FLDVDTCORD[FLDINDEX]+FLDLENGTH[FLDINDEX];
08241 M01S00015.sform18 +++| WORDINDEX = CHARINDEX / 5;
08242 M01S00016.sform18 +++| CHARINDEX = 2*(CHARINDEX - (WORDINDEX * 5));
08243 M01S00017.sform18 +++| FOR NUMCHARS = FLDLENGTH[FLDINDEX] STEP -1
08244 M01S00018.sform18 +++| WHILE NUMCHARS GR ENDCHAR DO
08245 M01S00019.sform18 +++| BEGIN # FIND LAST NON-BLANK CHARACTER #
08246 M01S00020.sform18 +++| IF CHARINDEX GR 0 THEN CHARINDEX = CHARINDEX - 2;
08247 M01S00021.sform18 +++| ELSE
08248 M01S00022.sform18 +++| BEGIN # IF AT END OF WORD #
08249 M01S00023.sform18 +++| CHARINDEX = 8;
08250 M01S00024.sform18 +++| WORDINDEX = WORDINDEX - 1; # UPDATE WORD INDEX #
08251 M01S00025.sform18 +++| END
08252 M01S00026.sform18 +++| CHARACTER = C<CHARINDEX,2>VDATAC[WORDINDEX];
08253 M01S00027.sform18 +++| IF CHARACTER GR O"40" AND CHARACTER LQ O"176" THEN
08254 M01S00028.sform18 +++| ENDCHAR = NUMCHARS; # IF DISPLAYABLE NON-BLANK #
08255 M01S00029.sform18 +++| END
08256 M00S05245.sform +++| WORDINDEX = FLDVDTCORD[FLDINDEX] / 5;
08257 M00S05246.sform +++| CHARINDEX = 2*(FLDVDTCORD[FLDINDEX] - (WORDINDEX * 5));
| Line S05247 Modification History |
M01 (Removed by) | sform18 |
Seq # *Modification Id* Act
----------------------------+
08258 M01S05247.sform18 ---| FOR NUMCHARS = 0 STEP 1 UNTIL FLDLENGTH[FLDINDEX]-1 DO
| Line S00030 Modification History |
M01 (Added by) | sform18 |
Seq # *Modification Id* Act
----------------------------+
08259 M01S00030.sform18 +++| FOR NUMCHARS = 1 STEP 1 UNTIL ENDCHAR DO
08260 M00S05248.sform +++| BEGIN # OUTPUT VARIABLE #
08261 M00S05249.sform +++| IF CHARINDEX EQ 10 THEN
08262 M00S05250.sform +++| BEGIN # UPDATE WORD INDEX #
08263 M00S05251.sform +++| CHARINDEX = 0;
08264 M00S05252.sform +++| WORDINDEX = WORDINDEX + 1;
08265 M00S05253.sform +++| END
08266 M00S05254.sform +++| CHARACTER = C<CHARINDEX,2>VDATAC[WORDINDEX];
| Line S05255 Modification History |
M01 (Removed by) | ns2385 |
Seq # *Modification Id* Act
----------------------------+
08267 M01S05255.ns2385 ---| IF CHARACTER GQ O"40"
| Line S00004 Modification History |
M01 (Added by) | ns2385 |
Seq # *Modification Id* Act
----------------------------+
08268 M01S00004.ns2385 +++| IF CHARACTER GR O"40"
08269 M00S05256.sform +++| AND CHARACTER LQ O"176" THEN
| Line S05257 Modification History |
M01 (Removed by) | ns2385 |
Seq # *Modification Id* Act
----------------------------+
08270 M01S05257.ns2385 ---| BEGIN # IF DISPLAYABLE CHARACTER #
| Line S00005 Modification History |
M01 (Added by) | ns2385 |
Seq # *Modification Id* Act
----------------------------+
08271 M01S00005.ns2385 +++| BEGIN # IF NON-BLANK AND DISPLAYABLE #
08272 M00S05258.sform +++| VDTCHR(CHARACTER); # OUTPUT CHARACTER #
08273 M00S05259.sform +++| END
08274 M00S05260.sform +++| ELSE
| Line S05261 Modification History |
M01 (Removed by) | ns2385 |
Seq # *Modification Id* Act
----------------------------+
08275 M01S05261.ns2385 ---| BEGIN
08276 M01S05262.ns2385 ---| VDTCHR(BLANK); # OUTPUT BLANK #
| Line S00006 Modification History |
M01 (Added by) | ns2385 |
Seq # *Modification Id* Act
----------------------------+
08277 M01S00006.ns2385 +++| BEGIN # BLANK OR NONDISPLAYABLE #
08278 M01S00007.ns2385 +++| VDTPSU; # PSEUDO UNDERLINE #
08279 M00S05263.sform +++| END
08280 M00S05264.sform +++| CHARINDEX = CHARINDEX + 2; # UPDATE CHARACTER INDEX #
08281 M00S05265.sform +++| END
08282 M00S05266.sform +++| END
| Line S00031 Modification History |
M01 (Added by) | sform18 |
Seq # *Modification Id* Act
----------------------------+
08283 M01S00031.sform18 +++|FOR NUMCHARS = ENDCHAR+1 STEP 1 UNTIL FLDLENGTH[FLDINDEX] DO
08284 M01S00032.sform18 +++| BEGIN
08285 M01S00033.sform18 +++| IF TERBLCKMDE[0] AND FLDINPUTV[FLDINDEX] THEN
08286 M01S00034.sform18 +++| BEGIN
08287 M01S00035.sform18 +++| VDTCHR(O"137"); # SEND UNDERLINE TO SCREEN #
08288 M01S00036.sform18 +++| END
08289 M01S00037.sform18 +++| ELSE
08290 M01S00038.sform18 +++| BEGIN
08291 M01S00039.sform18 +++| VDTPSU;
08292 M01S00040.sform18 +++| END
08293 M01S00041.sform18 +++| END
08294 M00S05267.sform +++|
08295 M00S05268.sform +++|END # WRIVAR #
08296 M00S05269.sform +++|CONTROL EJECT;
08297 M00S05270.sform +++|
08298 M00S05271.sform +++|PROC WRIVCH(FIELD,OFFSET,CHAR);
08299 M00S05272.sform +++|
08300 M00S05273.sform +++|# TITLE WRIVCH - WRITE CHARACTER INTO VARDATA. #
08301 M00S05274.sform +++|
08302 M00S05275.sform +++|BEGIN # WRIVCH #
08303 M00S05276.sform +++|
08304 M00S05277.sform +++|#
08305 M00S05278.sform +++|** WRIVCH - WRITE CHARACTER INTO VARDATA.
08306 M00S05279.sform +++|*
08307 M00S05280.sform +++|* PROC WRIVCH(FIELD,OFFSET,CHAR)
08308 M00S05281.sform +++|*
08309 M00S05282.sform +++|* ENTRY FIELD = FIELD INDEX.
08310 M00S05283.sform +++|* OFFSET = CHARACTER POSITION IN FIELD.
08311 M00S05284.sform +++|* CHAR = CHARACTER INPUT.
08312 M00S05285.sform +++|*
08313 M00S05286.sform +++|* EXIT CHAR WRITTEN INTO VARDATA.
08314 M00S05287.sform +++|#
08315 M00S05288.sform +++|ITEM FIELD I; # INDEX OF CURRENT FIELD #
08316 M00S05289.sform +++|ITEM OFFSET I; # CHARACTER OFFSET INTO FIELD #
08317 M00S05290.sform +++|ITEM CHAR I; # CHARACTER TO PUT INTO VARDATA #
08318 M00S05291.sform +++|
08319 M00S05292.sform +++|ITEM CHARIND I; # CHARACTER INDEX INTO VARDATA #
08320 M00S05293.sform +++|ITEM CHARPOS I; # CHARACTER POSITION IN VARDATA #
08321 M00S05294.sform +++|ITEM WORDIND I; # WORD INDEX INTO VARDATA #
08322 M00S05295.sform +++|
08323 M00S05296.sform +++|CHARPOS = FLDVDTCORD[FIELD] + OFFSET;
08324 M00S05297.sform +++|WORDIND = CHARPOS/5;
08325 M00S05298.sform +++|CHARIND = CHARPOS - 5*WORDIND;
08326 M00S05299.sform +++|B<CHARIND*12,12>VDATAU[WORDIND] = CHAR;
08327 M00S05300.sform +++|
08328 M00S05301.sform +++|END # WRIVCH #
08329 M00S05302.sform +++|
08330 M00S05303.sform +++|END # SFORM # TERM