Input 0LA - SPLASH - Start of Process |
| READ 0SA REGISTER HOLD 0 FT 0 BY | | |
T | CNV TEXT --- WORK EXP DATE = 0SA REGISTER EXPIRATION | WORK EXP DATE = | REGISTER EXPIRATION = 2 |
T | SET 0SA USER ID = --- USER ID | USER ID = | USER ID = A |
T | READ 0SA USER HOLD 0 FT 0 BY USER ID | | |
|
|
|
| |
Input 0LA - SPLASH - Select Image |
| IF 0SA REGISTER TYPE EQ B | REGISTER TYPE = 3 | |
F | OR 0SA REGISTER TYPE EQ D | REGISTER TYPE = 3 | |
F | OR 0SA REGISTER TYPE EQ E | REGISTER TYPE = 3 | |
F | OR 0SA REGISTER TYPE EQ M | REGISTER TYPE = 3 | |
F | OR 0SA REGISTER TYPE EQ P | REGISTER TYPE = 3 | |
F | OR 0SA REGISTER TYPE EQ V | REGISTER TYPE = 3 | |
F | OR 0SA REGISTER TYPE EQ Z | REGISTER TYPE = 3 | |
F | F SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 0 | |
| SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 0 | |
| IF 0SA REGISTER EXPIRATION NE | REGISTER EXPIRATION = 2 | |
T | T SET --- TEMP 256 = | TEMP 256 = | |
T | T PASS --- TEMP 256 FIELD SHARE? Y | TEMP 256 = | |
T | T PASS APPX_REG_WARN_DAYS FIELD SHARE? N | | |
T | T GOSUB --- .ENV GET ENV VARIABLE | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - .ENV GET ENV VARIABLE - Start of Process |
| LOCAL --- AI FIELD | AI = | |
| LOCAL --- GI FIELD | GI = | |
| LOCAL --- LI FIELD | LI = | |
| LOCAL --- RETURN CODE FIELD | RETURN CODE = + | |
| SET --- LI = 2048 | LI = | |
| SET --- .ENV GET ENV VARIABLE = | .ENV GET ENV VARIABLE = | |
| OVERFLOW 0LA-SYBYTCCC OVERFLOW(RECEIVE) | | |
| RECEIVE --- TEMP 2K FIELD REQ? Y | TEMP 2K = | |
T | T SET --- GI = --- RECEIVE ARG LEN | GI = | RECEIVE ARG LEN = 2 |
T | T SET --- TEMP 2K = | TEMP 2K = | |
T | RECEIVE --- TEMP 132 FIELD REQ? Y | TEMP 132 = | |
T | OVERFLOW 0LA-SYBYTCCC OVERFLOW(GENERAL) | | |
T | IF --- TEMP 132 EQ | TEMP 132 = A | |
F | SET --- TEMP 2K = --- TEMP 132 | TEMP 2K = | TEMP 132 = A |
F | PASS --- TEMP 2K FIELD SHARE? Y | TEMP 2K = A | |
F | PASS --- LI FIELD SHARE? Y | LI = | |
F | CALL ,RT_GETENV RESIDENT? Y END? N FAIL 0 | | |
F | F SET --- TEMP 2K = | TEMP 2K = A | |
F | F SET --- .ENV GET ENV VARIABLE = Variable not found | .ENV GET ENV VARIABLE = | |
F | F GOTO 0LA-SYBYTCCC END | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Input 0LA - SPLASH - Select Image |
T | T IF --- .ENV GET ENV VARIABLE EQ | .ENV GET ENV VARIABLE = V | |
TF | T AND --- TEMP 256 NE | TEMP 256 = | |
TF | TF SET --- DI = 7 | DI = | |
TF | T SET DATE --- WORK CURRENT CC-DD | WORK CURRENT CC-DD = C | |
TF | T DATE BTW --- WORK CURRENT CC-DD 5 0SA REGISTER EXPIRATION | WORK CURRENT CC-DD = 2 | REGISTER EXPIRATION = 2 |
TF | T IF 0SA USER SA EQ 1 | USER SA = Y | |
TT | T AND --- BETWEEN LE 14 | BETWEEN = | |
TF | T OR --- BETWEEN LE --- DI | BETWEEN = | DI = |
|
|
|
|
|
|
|
| |
Menu 0LA - APPX MENU - Start of Process |
| SET --- MESSAGE ID = 500000 | MESSAGE ID = 0 | |
| SET --- MESSAGE SEVERITY = 8 | MESSAGE SEVERITY = 0 | |
| COPY --- LANGUAGE TEXT | | |
|
|
| |
Subroutine 0LA - LANGUAGE TEXT - Start of Process |
| STORE --- MI FIELD | | |
| STORE --- XI FIELD | | |
| STORE --- WORK CENTER 80 FIELD | | |
| SET --- MESSAGE ID = --- MESSAGE ID | MESSAGE ID = 5 | MESSAGE ID = 5 |
| SET --- MESSAGE SEVERITY = --- MESSAGE SEVERITY | MESSAGE SEVERITY = 8 | MESSAGE SEVERITY = 8 |
| BEG AT --- MESSAGE IN --- MESSAGE ID | | |
| SET --- XI = 1 | XI = | |
| SET --- MI = --- MESSAGE SEVERITY | MI = | MESSAGE SEVERITY = 8 |
| READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = 1 |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = 2 |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = 3 |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = 4 |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = 5 |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = 6 |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 4 | |
TT | TT SET --- WORK CENTER 80 = --- MESSAGE TXT | WORK CENTER 80 = | MESSAGE TXT = P |
TT | TT SET --- LANG TEXT XI = --- WORK CENTER 80 | LANG TEXT XI = | WORK CENTER 80 = |
TT | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = D |
TF | T IF --- XI LT --- MI | XI = | MI = |
TF | RESTORE --- MI FIELD | | |
TF | RESTORE --- XI FIELD | | |
TF | RESTORE --- WORK CENTER 80 FIELD | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Menu 0LA - APPX MENU - Start of Process |
TF | CREATE 0AD VERSION SHARE? Y FAIL 0 CACHE NONE | | |
T | PASS 0AD VERSION FILE SHARE? Y | | |
T | CALL ,RT_VERSION RESIDENT? N END? N FAIL 0 | | |
T | SET --- WORK DSPL CMPL DATE = | WORK DSPL CMPL DATE = | |
T | SET 0AD VERSION TYPE = Compile Date | VERSION TYPE = | |
T | READ 0AD VERSION HOLD 0 FT 0 BY VERSION TYPE | | |
T | T SET --- WORK DSPL CMPL DATE = 0AD VERSION DATA | WORK DSPL CMPL DATE = | VERSION DATA = M |
T | SET 0AD VERSION TYPE = Engine Version | VERSION TYPE = C | |
T | READ 0AD VERSION HOLD 0 FT 0 BY VERSION TYPE | | |
T | T SET --- WORK DSPL ENG VER = 0AD VERSION DATA | WORK DSPL ENG VER = | VERSION DATA = 5 |
T | SET DATE 0AD WORK COPYRIGHT YEAR | WORK COPYRIGHT YEAR = 2 | |
|
|
|
|
|
|
|
|
|
|
| |
Menu 0LA - APPX MENU - Pre-Display |
| GOSUB --- CHECK GUI CLIENT | | |
| |
Subroutine 0LA - CHECK GUI CLIENT - Start of Process |
| PASS --- FEATURE TOKEN SCANLIST FIELD SHARE? Y | FEATURE TOKEN SCANLIST = 1 | |
| CALL ,RT_CHECK_CLI_FEATURE RESIDENT? N END? N FAIL 0 | | |
|
| |
Menu 0LA - APPX MENU - Pre-Display |
| IF --- RETURN CODE EQ 1 | RETURN CODE = + | |
| |
Menu 0LA - APPX MENU - Option Intercept |
| IF --- OPTION EQ USER 2 | OPTION = U | |
| |
Subroutine 0SA - ACL APPLY SECURITY - Subroutine |
| SET 0SA ACLCHK TIMEOUT = 0SA ACLCHK TIMEOUT | ACLCHK TIMEOUT = 0 | ACLCHK TIMEOUT = 0 |
| SET 0SA ACLCHK ACL MODE PROC = 0SA ACLCHK ACL MODE PROC | ACLCHK ACL MODE PROC = G | ACLCHK ACL MODE PROC = G |
| SET 0SA ACLCHK ACL MODE FLD = 0SA ACLCHK ACL MODE FLD | ACLCHK ACL MODE FLD = G | ACLCHK ACL MODE FLD = G |
| SET 0SA ACLCHK ACL MULTIROLE = 0SA ACLCHK ACL MULTIROLE | ACLCHK ACL MULTIROLE = S | ACLCHK ACL MULTIROLE = S |
| SET 0SA ACLCHK DB ID = 0SA ACLCHK DB ID | ACLCHK DB ID = | ACLCHK DB ID = |
| SET 0SA ACLCHK VERSION = 0SA ACLCHK VERSION | ACLCHK VERSION = 0 | ACLCHK VERSION = 0 |
| SET 0SA ACLCHK ACL CONTEXT = 0SA ACLCHK ACL CONTEXT | ACLCHK ACL CONTEXT = P | ACLCHK ACL CONTEXT = P |
| SET 0SA ACLCHK SOURCE = 0SA ACLCHK SOURCE | ACLCHK SOURCE = O | ACLCHK SOURCE = O |
| SET 0SA ACLCHK PRNT AP ID = 0SA ACLCHK PRNT AP ID | ACLCHK PRNT AP ID = 0 | ACLCHK PRNT AP ID = 0 |
| SET 0SA ACLCHK PRNT TYPE = 0SA ACLCHK PRNT TYPE | ACLCHK PRNT TYPE = M | ACLCHK PRNT TYPE = M |
| SET 0SA ACLCHK PRNT NAM = 0SA ACLCHK PRNT NAM | ACLCHK PRNT NAM = A | ACLCHK PRNT NAM = A |
| SET 0SA ACLCHK PRNT RUN OK = 0SA ACLCHK PRNT RUN OK | ACLCHK PRNT RUN OK = Y | ACLCHK PRNT RUN OK = Y |
| SET 0SA ACLCHK PRNT ADD OK = 0SA ACLCHK PRNT ADD OK | ACLCHK PRNT ADD OK = Y | ACLCHK PRNT ADD OK = Y |
| SET 0SA ACLCHK PRNT DEL OK = 0SA ACLCHK PRNT DEL OK | ACLCHK PRNT DEL OK = Y | ACLCHK PRNT DEL OK = Y |
| SET 0SA ACLCHK PRNT CHG OK = 0SA ACLCHK PRNT CHG OK | ACLCHK PRNT CHG OK = Y | ACLCHK PRNT CHG OK = Y |
| SET 0SA ACLCHK PROC AP ID = 0SA ACLCHK PROC AP ID | ACLCHK PROC AP ID = 0 | ACLCHK PROC AP ID = 0 |
| SET 0SA ACLCHK PROC TYPE = 0SA ACLCHK PROC TYPE | ACLCHK PROC TYPE = J | ACLCHK PROC TYPE = J |
| SET 0SA ACLCHK PROC NAM = 0SA ACLCHK PROC NAM | ACLCHK PROC NAM = S | ACLCHK PROC NAM = S |
| SET 0SA ACLCHK PROC RUN OK = 0SA ACLCHK PROC RUN OK | ACLCHK PROC RUN OK = | ACLCHK PROC RUN OK = |
| SET 0SA ACLCHK PROC ADD OK = 0SA ACLCHK PROC ADD OK | ACLCHK PROC ADD OK = | ACLCHK PROC ADD OK = |
| SET 0SA ACLCHK PROC DEL OK = 0SA ACLCHK PROC DEL OK | ACLCHK PROC DEL OK = | ACLCHK PROC DEL OK = |
| SET 0SA ACLCHK PROC CHG OK = 0SA ACLCHK PROC CHG OK | ACLCHK PROC CHG OK = | ACLCHK PROC CHG OK = |
| SET 0SA ACLCHK FLD AP ID = 0SA ACLCHK FLD AP ID | ACLCHK FLD AP ID = | ACLCHK FLD AP ID = |
| SET 0SA ACLCHK FLD FI NAM = 0SA ACLCHK FLD FI NAM | ACLCHK FLD FI NAM = | ACLCHK FLD FI NAM = |
| SET 0SA ACLCHK FLD NAM = 0SA ACLCHK FLD NAM | ACLCHK FLD NAM = | ACLCHK FLD NAM = |
| SET 0SA ACLCHK FI ACC OK = 0SA ACLCHK FI ACC OK | ACLCHK FI ACC OK = | ACLCHK FI ACC OK = |
| SET 0SA ACLCHK FLD VIEW OK = 0SA ACLCHK FLD VIEW OK | ACLCHK FLD VIEW OK = | ACLCHK FLD VIEW OK = |
| SET 0SA ACLCHK FLD EDIT OK = 0SA ACLCHK FLD EDIT OK | ACLCHK FLD EDIT OK = | ACLCHK FLD EDIT OK = |
| SET 0SA ACLCHK CANCEL OK = 0SA ACLCHK CANCEL OK | ACLCHK CANCEL OK = | ACLCHK CANCEL OK = |
| IF --- AI EQ 0 | AI = | |
T | T GOSUB :FIRST TIME | | |
| CREATE 0SA ACLCHKSV SHARE? Y FAIL 0 CACHE NONE | | |
T | OPEN 0SA ACLCHKSV SHARE? Y FAIL 0 CACHE? N | | |
T | OPEN 0SA SECUSER SHARE? Y FAIL 0 CACHE? N | | |
T | OPEN 0SA SECROLE SHARE? Y FAIL 0 CACHE? N | | |
T | OPEN 0SA SECWG SHARE? Y FAIL 0 CACHE? N | | |
T | OPEN 0SA SECDEPT SHARE? Y FAIL 0 CACHE? N | | |
T | OPEN 0SA SECDB SHARE? Y FAIL 0 CACHE? N | | |
T | SET --- AI = 1 | AI = | |
T | SET --- TEMP 1 = 0SA ACLCHK PROC AP ID | TEMP 1 = | ACLCHK PROC AP ID = 0 |
T | IF --- TEMP 1 EQ 0 | TEMP 1 = 0 | |
T | T SET 0SA ACLCHK PROC RUN OK = Y | ACLCHK PROC RUN OK = | |
T | T SET 0SA ACLCHK PROC ADD OK = Y | ACLCHK PROC ADD OK = | |
T | T SET 0SA ACLCHK PROC DEL OK = Y | ACLCHK PROC DEL OK = | |
T | T SET 0SA ACLCHK PROC CHG OK = Y | ACLCHK PROC CHG OK = | |
T | T SET 0SA ACLCHK FI ACC OK = Y | ACLCHK FI ACC OK = | |
T | T SET 0SA ACLCHK FLD EDIT OK = Y | ACLCHK FLD EDIT OK = | |
T | T SET 0SA ACLCHK FLD VIEW OK = Y | ACLCHK FLD VIEW OK = | |
T | T GOTO :ACL APPLY SECURITY EXIT | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Job 0LA - SELECT DATABASE - Pre-Invocation |
| SET --- PROCESS CODE = --- CHILD ID | PROCESS CODE = | CHILD ID = |
| |
Input 0LA - SELECT DATABASE - Start of Process |
| GOSUB --- SELECT DATABASE (SOP) | | |
| |
Subroutine 0LA - SELECT DATABASE (SOP) - Start of Process |
| STORE --- NEXT DATABASE FIELD | | |
| OPEN 0SA PROFILE SHARE? Y FAIL 0 CACHE? N | | |
T | SET --- NEXT CHILD ID = --- PROCESS CODE | NEXT CHILD ID = | PROCESS CODE = |
T | SET --- MESSAGE ID = 515000 | MESSAGE ID = 0 | |
T | SET --- MESSAGE SEVERITY = 6 | MESSAGE SEVERITY = 0 | |
T | COPY --- LANGUAGE TEXT | | |
|
|
|
|
|
| |
Subroutine 0LA - LANGUAGE TEXT - Start of Process |
T | STORE --- MI FIELD | | |
T | STORE --- XI FIELD | | |
T | STORE --- WORK CENTER 80 FIELD | | |
T | SET --- MESSAGE ID = --- MESSAGE ID | MESSAGE ID = 5 | MESSAGE ID = 5 |
T | SET --- MESSAGE SEVERITY = --- MESSAGE SEVERITY | MESSAGE SEVERITY = 6 | MESSAGE SEVERITY = 6 |
T | BEG AT --- MESSAGE IN --- MESSAGE ID | | |
T | SET --- XI = 1 | XI = | |
T | SET --- MI = --- MESSAGE SEVERITY | MI = | MESSAGE SEVERITY = 6 |
T | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = S |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = I |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = N |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = D |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 4 | |
TT | TT SET --- WORK CENTER 80 = --- MESSAGE TXT | WORK CENTER 80 = | MESSAGE TXT = P |
TT | TT SET --- LANG TEXT XI = --- WORK CENTER 80 | LANG TEXT XI = | WORK CENTER 80 = |
TT | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 4 | |
TT | TT SET --- WORK CENTER 80 = --- MESSAGE TXT | WORK CENTER 80 = | MESSAGE TXT = E |
TT | TT SET --- LANG TEXT XI = --- WORK CENTER 80 | LANG TEXT XI = | WORK CENTER 80 = |
TT | T IF --- XI LT --- MI | XI = | MI = |
TF | RESTORE --- MI FIELD | | |
TF | RESTORE --- XI FIELD | | |
TF | RESTORE --- WORK CENTER 80 FIELD | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - SELECT DATABASE (SOP) - Start of Process |
TF | SET 0AD WORK 80 CTR = --- LANG TEXT 00 | WORK 80 CTR = | LANG TEXT 001 = S |
TF | SET --- WORK TTL 32 CTR 001 = --- LANG TEXT 00 | WORK TTL 32 CTR 001 = | LANG TEXT 001 = S |
TF | SET --- DEFAULT MODE = CHANGE | DEFAULT MODE = C | |
TF | SET --- TEMP 79 = | TEMP 79 = | |
TF | SET --- DESC CENTERED = | DESC CENTERED = | |
TF | SUBR --- LOAD QUERY TOKENS DETACHED END? N FAIL | | |
|
|
|
|
|
| |
Subroutine 0LA - LOAD QUERY TOKENS - Subroutine |
| SET --- MESSAGE ID = 521000 | MESSAGE ID = 0 | |
| SET --- MESSAGE SEVERITY = 7 | MESSAGE SEVERITY = 0 | |
| COPY --- LANGUAGE TEXT | | |
|
|
| |
Subroutine 0LA - LANGUAGE TEXT - Subroutine |
| STORE --- MI FIELD | | |
| STORE --- XI FIELD | | |
| STORE --- WORK CENTER 80 FIELD | | |
| SET --- MESSAGE ID = --- MESSAGE ID | MESSAGE ID = 5 | MESSAGE ID = 5 |
| SET --- MESSAGE SEVERITY = --- MESSAGE SEVERITY | MESSAGE SEVERITY = 7 | MESSAGE SEVERITY = 7 |
| BEG AT --- MESSAGE IN --- MESSAGE ID | | |
| SET --- XI = 1 | XI = | |
| SET --- MI = --- MESSAGE SEVERITY | MI = | MESSAGE SEVERITY = 7 |
| READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = N |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = S |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = N |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = N |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = N |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = S |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = N |
TF | T IF --- XI LT --- MI | XI = | MI = |
TF | RESTORE --- MI FIELD | | |
TF | RESTORE --- XI FIELD | | |
TF | RESTORE --- WORK CENTER 80 FIELD | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - LOAD QUERY TOKENS - Subroutine |
TF | SET --- NEXT APPLICATION = 0LA | NEXT APPLICATION = | |
TF | SET --- NEXT VERSION = 00 | NEXT VERSION = | |
TF | OPEN 0AD TOKEN SHARE? Y FAIL 0 CACHE? N | | |
T | SET 0AD TOKEN TYPE = 0 | TOKEN TYPE = 0 | |
T | SET 0AD TOKEN REF NAM = SORT SUBH OPTS | TOKEN REF NAM = | |
T | SET 0AD TOKEN ID = 1 | TOKEN ID = | |
T | BEG AT 0AD TOKEN IN 0AD TOKEN KEY | | |
T | SET 0AD TOKEN ID = 4 | TOKEN ID = 1 | |
T | END AT 0AD TOKEN IN 0AD TOKEN KEY | | |
T | BEG READ 0AD TOKEN HOLD 2 KEY IS TOKEN KEY | | |
T | SET --- ZI = 0AD TOKEN ID | ZI = | TOKEN ID = 1 |
T | SET 0AD TOKEN VAL = --- LANG TEXT ZI | TOKEN VAL = N | LANG TEXT ZI = N |
T | REWRITE 0AD TOKEN FAIL 0 | | |
T | END READ 0AD TOKEN | | |
T | SET --- ZI = 0AD TOKEN ID | ZI = | TOKEN ID = 2 |
T | SET 0AD TOKEN VAL = --- LANG TEXT ZI | TOKEN VAL = S | LANG TEXT ZI = S |
T | REWRITE 0AD TOKEN FAIL 0 | | |
T | END READ 0AD TOKEN | | |
T | SET --- ZI = 0AD TOKEN ID | ZI = | TOKEN ID = 3 |
T | SET 0AD TOKEN VAL = --- LANG TEXT ZI | TOKEN VAL = N | LANG TEXT ZI = N |
T | REWRITE 0AD TOKEN FAIL 0 | | |
T | END READ 0AD TOKEN | | |
T | SET --- ZI = 0AD TOKEN ID | ZI = | TOKEN ID = 4 |
T | SET 0AD TOKEN VAL = --- LANG TEXT ZI | TOKEN VAL = N | LANG TEXT ZI = N |
T | REWRITE 0AD TOKEN FAIL 0 | | |
T | END READ 0AD TOKEN | | |
T | SET 0AD TOKEN TYPE = 0 | TOKEN TYPE = 0 | |
T | SET 0AD TOKEN REF NAM = SORT SUBT OPTS | TOKEN REF NAM = S | |
T | SET 0AD TOKEN ID = 1 | TOKEN ID = 1 | |
T | BEG AT 0AD TOKEN IN 0AD TOKEN KEY | | |
T | SET 0AD TOKEN ID = 3 | TOKEN ID = 1 | |
T | END AT 0AD TOKEN IN 0AD TOKEN KEY | | |
T | BEG READ 0AD TOKEN HOLD 2 KEY IS TOKEN KEY | | |
T | SET --- ZI = 0AD TOKEN ID | ZI = | TOKEN ID = 1 |
T | COMPUTE --- ZI + 4 | ZI = | |
T | SET 0AD TOKEN VAL = --- LANG TEXT ZI | TOKEN VAL = N | LANG TEXT ZI = N |
T | REWRITE 0AD TOKEN FAIL 0 | | |
T | END READ 0AD TOKEN | | |
T | SET --- ZI = 0AD TOKEN ID | ZI = | TOKEN ID = 2 |
T | COMPUTE --- ZI + 4 | ZI = | |
T | SET 0AD TOKEN VAL = --- LANG TEXT ZI | TOKEN VAL = S | LANG TEXT ZI = S |
T | REWRITE 0AD TOKEN FAIL 0 | | |
T | END READ 0AD TOKEN | | |
T | SET --- ZI = 0AD TOKEN ID | ZI = | TOKEN ID = 3 |
T | COMPUTE --- ZI + 4 | ZI = | |
T | SET 0AD TOKEN VAL = --- LANG TEXT ZI | TOKEN VAL = N | LANG TEXT ZI = N |
T | REWRITE 0AD TOKEN FAIL 0 | | |
T | END READ 0AD TOKEN | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Input 0LA - SELECT DATABASE - Select Image |
| GOSUB --- SELECT DATABASE (100 SI) | | |
| |
Subroutine 0LA - SELECT DATABASE (100 SI) - Start of Process |
| IF --- PROCESS CODE NE TEST | PROCESS CODE = | |
T | RESTORE --- NEXT DATABASE FIELD | | |
T | T IF --- NEXT DATABASE EQ | NEXT DATABASE = | |
TT | TT SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
|
|
|
| |
Input 0LA - SELECT DATABASE - Pre-Display |
| GOSUB --- SELECT DATABASE (100.1 PD) | | |
| |
Subroutine 0LA - SELECT DATABASE (100.1 PD) - Start of Process |
| IF --- NEXT DATABASE NE | NEXT DATABASE = | |
F | F DISPLAY --- LANG TEXT 006 (AT APPEARANCE # ) | LANG TEXT 006 = | |
|
| |
Input 0LA - SELECT DATABASE - Option Intercept |
| GOSUB --- SELECT DATABASE (100.1 OI) | | |
| |
Subroutine 0LA - SELECT DATABASE (100.1 OI) - Start of Process |
| IF --- OPTION EQ END | OPTION = S | |
F | IF --- OPTION EQ SCAN | OPTION = S | |
T | T AT FIELD --- NEXT DATABASE (AT APPEARANCE # ) | NEXT DATABASE = | |
TT | TT SCAN --- NEXT DATABASE = 0SA DATABASE ID | NEXT DATABASE = | DATABASE ID = |
|
|
|
| |
Input 0LA - SELECT DATABASE - Global Option Inte |
| GOSUB --- SELECT DATABASE (100 GOI) | | |
| |
Subroutine 0LA - SELECT DATABASE (100 GOI) - Start of Process |
| IF --- OPTION EQ CANCEL | OPTION = S | |
F | OR --- OPTION EQ END | OPTION = S | |
|
| |
Subroutine 0LA - SCAN - Subroutine |
| LOCAL --- TEMP 80 FIELD | TEMP 80 = | |
| STORE --- HI FIELD | | |
| SUBR --- NSCAN SETUP (FULL) SUBPROCESS END? N FAIL | | |
|
|
| |
Subroutine 0LA - NSCAN SETUP (FULL) - Subroutine |
| SCRATCH --- SCANDISP FAIL 0 CACHE? N | | |
T | CREATE --- SCANDISP SHARE? N FAIL 3 CACHE NONE | | |
T | RESTORE --- SCANCTX DEFAULT RECORD | | |
T | RESTORE --- NSCAN DEFAULT RECORD | | |
T | RESTORE --- SCANINFO DEFAULT RECORD | | |
T | PASS 0AD WORK TERM ROWS FIELD SHARE? Y | WORK TERM ROWS = 0 | |
T | PASS 0AD WORK TERM COLS FIELD SHARE? Y | WORK TERM COLS = 0 | |
T | CALL ,RT_SCREEN_SIZE RESIDENT? Y END? N FAIL 0 | | |
T | SET --- NSCAN REC CNT = 0AD WORK TERM ROWS | NSCAN REC CNT = 0 | WORK TERM ROWS = 6 |
T | COMPUTE --- NSCAN REC CNT - 13 | NSCAN REC CNT = 6 | |
T | GOSUB --- NSCAN (FILE GET) | | |
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - NSCAN (FILE GET) - Subroutine |
| SCRATCH --- SCANFI FAIL 0 CACHE? N | | |
T | CREATE --- SCANFI SHARE? N FAIL 3 CACHE NONE | | |
T | PASS --- SCANFI FILE SHARE? Y | | |
T | PASS --- SCANCTX RECORD SHARE? Y | | |
T | CALL ,SP_GET_SCAN_FIS RESIDENT? Y END? N FAIL 0 | | |
|
|
|
|
| |
Subroutine 0LA - NSCAN SETUP (FULL) - Subroutine |
T | IF --- SCANFI SCAN TYPE EQ QRY | SCANFI SCAN TYPE = S | |
F | GOSUB --- NSCAN (FILE DFLT) | | |
|
| |
Subroutine 0LA - NSCAN (FILE DFLT) - Subroutine |
| SET --- NSCAN FI CNT = | NSCAN FI CNT = 0 | |
| SET --- SCANFI REC ID = | SCANFI REC ID = 0 | |
| BEG AT --- SCANFI IN --- SCANFI REC ID | | |
| BEG READ --- SCANFI HOLD 0 KEY IS SCANFI REC ID | | |
| COMPUTE --- NSCAN FI CNT + 1 | NSCAN FI CNT = 0 | |
| END READ --- SCANFI | | |
| IF --- NSCAN FI CNT EQ | NSCAN FI CNT = 1 | |
F | SET 0SA SCANPRF USER ID = --- USER ID | SCANPRF USER ID = | USER ID = A |
F | SET 0SA SCANPRF AP = --- SCANCTX PROC AP | SCANPRF AP = | SCANCTX PROC AP = 0 |
F | SET 0SA SCANPRF VER = --- SCANCTX PROC VER | SCANPRF VER = | SCANCTX PROC VER = 0 |
F | SET 0SA SCANPRF PROC TYPE = --- SCANCTX PROC TYPE | SCANPRF PROC TYPE = | SCANCTX PROC TYPE = I |
F | SET 0SA SCANPRF PROC NAM = --- SCANCTX PROC NAM | SCANPRF PROC NAM = | SCANCTX PROC NAM = S |
F | SET 0SA SCANPRF ITEM NO = --- SCANCTX ITEM NO | SCANPRF ITEM NO = 0 | SCANCTX ITEM NO = 3 |
F | READ 0SA SCANPRF HOLD 0 FT 0 BY SCANPRF KEY | | |
T | T IF 0SA SCANPRF PROC EM MOD EQ --- SCANCTX PROC EM MOD | SCANPRF PROC EM MOD = A | SCANCTX PROC EM MOD = A |
TT | TT IF --- SCANCTX ACTV PHASE EQ KEY ENTRY | SCANCTX ACTV PHASE = D | |
TTF | TTF SET --- SCANFI SCAN TYPE = 0SA SCANPRF SCAN TYPE | SCANFI SCAN TYPE = S | SCANPRF SCAN TYPE = ? |
TTF | TTF SET --- SCANFI STMT NO = 0SA SCANPRF STMT NO | SCANFI STMT NO = 0 | SCANPRF STMT NO = 0 |
TTF | TT IF --- SCANFI SCAN TYPE NE | SCANFI SCAN TYPE = S | |
TTT | TTT READ --- SCANFI HOLD 0 FT 0 BY SCANFI CHOICE KEY | | |
TTTT | TTTT GOTO :NSCAN (FILE DFLT) EXIT | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - NSCAN SETUP (FULL) - Subroutine |
F | IF --- NSCAN FI CNT EQ | NSCAN FI CNT = 1 | |
F | GOSUB --- NSCAN (FILE SET) | | |
|
| |
Subroutine 0LA - NSCAN (FILE SET) - Subroutine |
| PASS --- SCANFI RECORD SHARE? Y | | |
| PASS --- SCANCTX RECORD SHARE? Y | | |
| CALL ,SP_SET_SCAN_FI RESIDENT? Y END? N FAIL 0 | | |
T | READ 0SA SCANPRF HOLD 2 FT 0 BY SCANPRF KEY | | |
T | T IF --- SCANCTX ACTV PHASE EQ KEY ENTRY | SCANCTX ACTV PHASE = D | |
TF | TF SET 0SA SCANPRF SCAN TYPE = --- SCANFI SCAN TYPE | SCANPRF SCAN TYPE = ? | SCANFI SCAN TYPE = S |
TF | TF SET 0SA SCANPRF STMT NO = --- SCANFI STMT NO | SCANPRF STMT NO = 0 | SCANFI STMT NO = 0 |
TF | T SUBR 0SA SCANPRF (REWRITE) SUBPROCESS END? N FAIL | | |
|
|
|
|
|
|
|
| |
Subroutine 0SA - SCANPRF (REWRITE) - Subroutine |
| REWRITE 0SA SCANPRF FAIL 0 | | |
| |
Subroutine 0LA - NSCAN (FILE SET) - Subroutine |
TT | SET --- NSCAN SCANFI DESC = --- SCANFI DESC | NSCAN SCANFI DESC = | SCANFI DESC = |
TT | GOSUB --- NSCAN CHECK DFLT PROCESS | | |
|
| |
Subroutine 0LA - NSCAN CHECK DFLT PROCESS - Subroutine |
| SET --- NSCAN DFLT PROC = | NSCAN DFLT PROC = | |
| IF --- SCANFI SCAN TYPE EQ DLU | SCANFI SCAN TYPE = S | |
F | OR --- SCANFI SCAN TYPE EQ STMT | SCANFI SCAN TYPE = S | |
T | T STORE 0AD FILE RECORD | | |
T | T SET 0AD WORK OPEN AP = --- SCANFI AP | WORK OPEN AP = | SCANFI AP = |
T | T SET 0AD WORK OPEN VER = --- SCANFI VER | WORK OPEN VER = | SCANFI VER = |
T | T IF --- SCANFI DB EQ 0AD | SCANFI DB = | |
TF | T GOSUB 0AD OPEN (FILE) | | |
|
|
|
|
|
|
|
| |
Subroutine 0LA - OPEN (FILE) - Subroutine |
| SET 0AD WORK OPEN FI NAM = FILE | WORK OPEN FI NAM = | |
| GOSUB 0AD OPEN (PRE-OPEN) | | |
|
| |
Subroutine 0LA - OPEN (PRE-OPEN) - Subroutine |
| SET 0AD WORK OPEN RC = N | WORK OPEN RC = N | |
| IF 0AD WORK OPEN AP EQ | WORK OPEN AP = | |
T | T SET 0AD WORK OPEN AP = --- SOURCE APPLICATION | WORK OPEN AP = | SOURCE APPLICATION = |
T | IF 0AD WORK OPEN VER EQ | WORK OPEN VER = | |
T | T SET 0AD WORK OPEN VER = --- SOURCE VERSION | WORK OPEN VER = | SOURCE VERSION = |
T | SET --- NEXT APPLICATION = 0AD WORK OPEN AP | NEXT APPLICATION = | WORK OPEN AP = |
T | SET --- NEXT VERSION = 0AD WORK OPEN VER | NEXT VERSION = | WORK OPEN VER = |
T | IF --- NEXT APPLICATION EQ --- | NEXT APPLICATION = | |
F | SET 0AD WORK OPEN AP 1ST BYTE = --- NEXT APPLICATION | WORK OPEN AP 1ST BYTE = | NEXT APPLICATION = |
F | IF 0AD WORK OPEN AP 1ST BYTE EQ 0 | WORK OPEN AP 1ST BYTE = | |
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - OPEN (FILE) - Subroutine |
| IF EXIST 0AD FILE FAIL 0 | | |
F | F GOSUB 0AD OPEN (POST OPEN) | | |
|
| |
Subroutine 0LA - NSCAN CHECK DFLT PROCESS - Subroutine |
TF | T IF 0AD WORK OPEN RC EQ Y | WORK OPEN RC = N | |
TF | T RESTORE 0AD FILE RECORD | | |
|
| |
Subroutine 0LA - NSCAN SETUP (FULL) - Subroutine |
F | GOSUB --- NSCAN (PATH GET) | | |
| |
Subroutine 0LA - NSCAN (PATH GET) - Subroutine |
| SCRATCH --- SCANPATH FAIL 0 CACHE? N | | |
T | CREATE --- SCANPATH SHARE? N FAIL 3 CACHE NONE | | |
T | PASS --- SCANPATH FILE SHARE? Y | | |
T | PASS --- SCANCTX RECORD SHARE? Y | | |
T | CALL ,SP_GET_SCAN_PATHS RESIDENT? Y END? N FAIL 0 | | |
|
|
|
|
| |
Subroutine 0LA - NSCAN SETUP (FULL) - Subroutine |
F | GOSUB --- NSCAN (PATH DFLT) | | |
| |
Subroutine 0LA - NSCAN (PATH DFLT) - Subroutine |
| SET --- NSCAN PATH CNT = | NSCAN PATH CNT = 0 | |
| SET --- NSCAN PREF PATH REC ID = 9999 | NSCAN PREF PATH REC ID = 0 | |
| SET --- SCANPATH REC ID = | SCANPATH REC ID = 0 | |
| BEG AT --- SCANPATH IN --- SCANPATH REC ID | | |
| BEG READ --- SCANPATH HOLD 0 KEY IS SCANPATH REC ID | | |
| COMPUTE --- NSCAN PATH CNT + 1 | NSCAN PATH CNT = 0 | |
| IF --- SCANPATH PREF PATH EQ 1 | SCANPATH PREF PATH = Y | |
T | T SET --- NSCAN PREF PATH REC ID = --- SCANPATH REC ID | NSCAN PREF PATH REC ID = 9 | SCANPATH REC ID = 0 |
T | END READ --- SCANPATH | | |
T | IF --- SCANCTX SCAN TYPE EQ PCF | SCANCTX SCAN TYPE = S | |
F | IF --- SCANCTX ACTV PHASE EQ KEY ENTRY | SCANCTX ACTV PHASE = D | |
F | F IF 0SA SCANPRF PATH REC ID NE -1 | SCANPRF PATH REC ID = 0 | |
FT | FT SET --- SCANPATH REC ID = 0SA SCANPRF PATH REC ID | SCANPATH REC ID = 0 | SCANPRF PATH REC ID = 0 |
FT | FT READ --- SCANPATH HOLD 0 FT 0 BY SCANPATH REC ID | | |
FTT | FTT GOTO :NSCAN (PATH DFLT) EXIT | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - NSCAN SETUP (FULL) - Subroutine |
F | GOSUB --- NSCAN (PATH SET) | | |
| |
Subroutine 0LA - NSCAN (PATH SET) - Subroutine |
| PASS --- SCANPATH RECORD SHARE? Y | | |
| PASS --- SCANCTX RECORD SHARE? Y | | |
| CALL ,SP_SET_SCAN_PATH RESIDENT? Y END? N FAIL 0 | | |
T | READ 0SA SCANPRF HOLD 2 FT 0 BY SCANPRF KEY | | |
T | T IF --- SCANCTX ACTV PHASE EQ KEY ENTRY | SCANCTX ACTV PHASE = D | |
TF | TF SET 0SA SCANPRF PATH REC ID = --- SCANPATH REC ID | SCANPRF PATH REC ID = 0 | SCANPATH REC ID = 0 |
TF | T SUBR 0SA SCANPRF (REWRITE) SUBPROCESS END? N FAIL | | |
|
|
|
|
|
|
| |
Subroutine 0SA - SCANPRF (REWRITE) - Subroutine |
| REWRITE 0SA SCANPRF FAIL 0 | | |
| |
Subroutine 0LA - NSCAN SETUP (FULL) - Subroutine |
F | GOSUB --- NSCAN (FLD GET) | | |
| |
Subroutine 0LA - NSCAN (FLD GET) - Subroutine |
| SCRATCH --- SCANFLD FAIL 0 CACHE? N | | |
T | CREATE --- SCANFLD SHARE? N FAIL 3 CACHE NONE | | |
T | PASS --- SCANFLD FILE SHARE? Y | | |
T | PASS --- SCANCTX RECORD SHARE? Y | | |
T | CALL ,SP_GET_SCAN_FLDS RESIDENT? N END? N FAIL 0 | | |
|
|
|
|
| |
Subroutine 0LA - NSCAN SETUP (FULL) - Subroutine |
F | GOSUB --- NSCAN (FLD SET) | | |
| |
Subroutine 0LA - NSCAN (FLD SET) - Subroutine |
| GOSUB --- NSCAN COMPUTE FLD LGTHS | | |
| |
Subroutine 0LA - NSCAN COMPUTE FLD LGTHS - Subroutine |
| STORE --- AI FIELD | | |
| STORE --- BI FIELD | | |
| STORE --- CI FIELD | | |
| STORE --- DI FIELD | | |
| STORE --- TEMP 1 FIELD | | |
| STORE --- TEMP 32 FIELD | | |
| CNV BIN --- TEMP 1 = 00 | TEMP 1 = | |
| SET --- AI = | AI = | |
| SET --- BI = | BI = | |
| SET --- CI = | CI = | |
| SET --- DI = | DI = | |
| SET --- NSCAN FLDS MAX WDTH = | NSCAN FLDS MAX WDTH = 0 | |
| SET --- NSCAN FLDS KEY WDTH 001 = | NSCAN FLDS KEY WDTH 001 = 0 | |
| SET --- NSCAN FLDS KEY WDTH 002 = | NSCAN FLDS KEY WDTH 002 = 0 | |
| SET --- SCANFLD REC ID = | SCANFLD REC ID = 3 | |
| BEG AT --- SCANFLD IN --- SCANFLD REC ID | | |
| BEG READ --- SCANFLD HOLD 0 KEY IS SCANFLD REC ID | | |
| IF --- SCANFLD SEQ NE | SCANFLD SEQ = 1 | |
T | T COMPUTE --- AI + 1 | AI = | |
T | T IF --- SCANFLD LEN GE --- SCANFLD LEN COL HDG | SCANFLD LEN = 3 | SCANFLD LEN COL HDG = 2 |
TT | TT COMPUTE --- NSCAN FLDS MAX WDTH + --- SCANFLD LEN | NSCAN FLDS MAX WDTH = 0 | SCANFLD LEN = 3 |
TT | IF --- SCANFLD KEY SEG EQ Y | SCANFLD KEY SEG = ? | |
F | END READ --- SCANFLD | | |
F | IF --- SCANFLD SEQ NE | SCANFLD SEQ = 2 | |
T | T COMPUTE --- AI + 1 | AI = | |
T | T IF --- SCANFLD LEN GE --- SCANFLD LEN COL HDG | SCANFLD LEN = 3 | SCANFLD LEN COL HDG = 1 |
TT | TT COMPUTE --- NSCAN FLDS MAX WDTH + --- SCANFLD LEN | NSCAN FLDS MAX WDTH = 3 | SCANFLD LEN = 3 |
TT | IF --- SCANFLD KEY SEG EQ Y | SCANFLD KEY SEG = ? | |
F | END READ --- SCANFLD | | |
F | IF --- SCANFLD SEQ NE | SCANFLD SEQ = 3 | |
T | T COMPUTE --- AI + 1 | AI = | |
T | T IF --- SCANFLD LEN GE --- SCANFLD LEN COL HDG | SCANFLD LEN = 3 | SCANFLD LEN COL HDG = 7 |
TF | TF COMPUTE --- NSCAN FLDS MAX WDTH + --- SCANFLD LEN COL HDG | NSCAN FLDS MAX WDTH = 3 | SCANFLD LEN COL HDG = 7 |
TF | IF --- SCANFLD KEY SEG EQ Y | SCANFLD KEY SEG = ? | |
F | END READ --- SCANFLD | | |
F | IF --- SCANFLD SEQ NE | SCANFLD SEQ = 4 | |
T | T COMPUTE --- AI + 1 | AI = | |
T | T IF --- SCANFLD LEN GE --- SCANFLD LEN COL HDG | SCANFLD LEN = 2 | SCANFLD LEN COL HDG = 7 |
TF | TF COMPUTE --- NSCAN FLDS MAX WDTH + --- SCANFLD LEN COL HDG | NSCAN FLDS MAX WDTH = 4 | SCANFLD LEN COL HDG = 7 |
TF | IF --- SCANFLD KEY SEG EQ Y | SCANFLD KEY SEG = ? | |
F | END READ --- SCANFLD | | |
F | COMPUTE --- NSCAN FLDS KEY WDTH 001 + --- NSCAN FLDS KEY WDTH 00 | NSCAN FLDS KEY WDTH 001 = 0 | NSCAN FLDS KEY WDTH 002 = 0 |
F | COMPUTE --- NSCAN FLDS KEY WDTH 001 + 2 | NSCAN FLDS KEY WDTH 001 = 0 | |
F | SET --- NSCAN FLDS KEY WDTH 002 = --- NSCAN FLDS KEY WDTH 00 | NSCAN FLDS KEY WDTH 002 = 0 | NSCAN FLDS KEY WDTH 001 = 2 |
F | SET --- NSCAN FLD CNT = --- AI | NSCAN FLD CNT = 0 | AI = |
F | COMPUTE --- AI - 1 | AI = | |
F | COMPUTE --- NSCAN FLDS MAX WDTH + --- AI | NSCAN FLDS MAX WDTH = 4 | AI = |
F | RESTORE --- AI FIELD | | |
F | RESTORE --- BI FIELD | | |
F | RESTORE --- CI FIELD | | |
F | RESTORE --- DI FIELD | | |
F | RESTORE --- TEMP 1 FIELD | | |
F | RESTORE --- TEMP 32 FIELD | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - NSCAN (FLD SET) - Subroutine |
| PASS --- SCANFLD FILE SHARE? Y | | |
| PASS --- SCANCTX RECORD SHARE? Y | | |
| CALL ,SP_SET_SCAN_FLDS RESIDENT? N END? N FAIL 0 | | |
|
|
| |
Subroutine 0LA - NSCAN SETUP (FULL) - Subroutine |
F | GOSUB --- NSCAN (KEY DFLT) | | |
| |
Subroutine 0LA - NSCAN (KEY DFLT) - Subroutine |
| READ --- ENTRY HOLD 1 FT 0 BY | | |
T | - RESTORE --- ENTRY DEFAULT RECORD | | |
T | - PASS --- ENTRY RECORD SHARE? Y | | |
T | - PASS --- SCANFLD FILE SHARE? Y | | |
T | - PASS --- SCANCTX RECORD SHARE? Y | | |
T | - CALL ,SP_GET_START_VALS RESIDENT? Y END? N FAIL 0 | | |
TT | - GOSUB :REPAIR KEY FLD VAL (BUG 1988) | | |
| IF --- SCANCTX PROC AP EQ 0AD | SCANCTX PROC AP = 0 | |
F | AND --- SCANCTX PROC NAM EQ FRAME (OUTPUT) | SCANCTX PROC NAM = S | |
F | AND --- SCANCTX PROC TYPE EQ INPUT | SCANCTX PROC TYPE = I | |
F | IF --- SCANCTX PROC AP EQ 0AD | SCANCTX PROC AP = 0 | |
F | AND --- SCANCTX PROC NAM EQ FRAME (UPDATE) | SCANCTX PROC NAM = S | |
F | AND --- SCANCTX PROC TYPE EQ UPDATE | SCANCTX PROC TYPE = I | |
F | RETURN | | |
TT | T GOSUB :REPAIR FLD FI NAM (BUG 1959) | | |
| SET --- SCANFLD REC ID = 0 | SCANFLD REC ID = 3 | |
| READ --- SCANFLD HOLD 0 FT 0 BY SCANFLD REC ID | | |
T | IF --- SCANFLD AP EQ 0AD | SCANFLD AP = 0 | |
F | AND --- SCANFLD VER EQ 00 | SCANFLD VER = 0 | |
F | AND --- SCANFLD FLD EQ FIELD FI NAM | SCANFLD FLD = D | |
F | F RETURN | | |
TT | T REWRITE --- ENTRY FAIL 0 | | |
TT | RETURN | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - NSCAN SETUP (FULL) - Subroutine |
F | GOSUB --- NSCAN (KEY SET) | | |
| |
Subroutine 0LA - NSCAN (KEY SET) - Subroutine |
| GOSUB --- NSCAN EMPTY SCANDISP | | |
| |
Subroutine 0LA - NSCAN EMPTY SCANDISP - Subroutine |
| SET --- SCANDISP REC ID = | SCANDISP REC ID = 0 | |
| BEG AT --- SCANDISP IN --- SCANDISP REC ID | | |
| BEG READ --- SCANDISP HOLD 2 KEY IS SCANDISP REC ID | | |
|
|
| |
Subroutine 0LA - NSCAN (KEY SET) - Subroutine |
| SET --- SCANCTX STAT = | SCANCTX STAT = 0 | |
| PASS --- ENTRY RECORD SHARE? Y | | |
| PASS --- SCANFLD FILE SHARE? Y | | |
| PASS --- SCANCTX RECORD SHARE? Y | | |
| CALL ,SP_SCAN_START RESIDENT? Y END? N FAIL 0 | | |
|
|
|
|
| |
Subroutine 0LA - NSCAN SETUP (FULL) - Subroutine |
F | GOSUB --- NSCAN (REC GET) | | |
| |
Subroutine 0LA - NSCAN (REC GET) - Subroutine |
| PASS --- SCANCTX RECORD SHARE? Y | | |
| PASS --- SCANDISP FILE SHARE? Y | | |
| PASS --- NSCAN REC CNT FIELD SHARE? Y | NSCAN REC CNT = 4 | |
| CALL ,SP_POPULATE_SCAN RESIDENT? Y END? N FAIL 0 | | |
T | SET --- HI = --- SCANCTX LST REC NO | HI = | SCANCTX LST REC NO = 4 |
|
|
|
|
| |
Subroutine 0LA - SCAN - Subroutine |
T | IF --- SCANFI SCAN TYPE EQ QRY | SCANFI SCAN TYPE = S | |
F | IF --- NSCAN FI CNT GT | NSCAN FI CNT = 1 | |
T | T GOSUB --- NSCAN CHOOSE INPUT | | |
|
|
| |
Subroutine 0LA - NSCAN CHOOSE INPUT - Subroutine |
| SET --- NEXT PROCESS NAME = NSCAN | NEXT PROCESS NAME = | |
| IF --- SCANCTX SCAN TYPE EQ TOKEN | SCANCTX SCAN TYPE = S | |
F | IF --- SCANCTX SCAN TYPE EQ DLU | SCANCTX SCAN TYPE = S | |
F | OR --- SCANCTX SCAN TYPE EQ STMT | SCANCTX SCAN TYPE = S | |
T | AND --- NSCAN FLD CNT EQ 1 | NSCAN FLD CNT = 4 | |
F | IF --- NSCAN FLDS MAX WDTH LE 30 | NSCAN FLDS MAX WDTH = 5 | |
F | AND --- NSCAN FLDS KEY WDTH 001 LE 30 | NSCAN FLDS KEY WDTH 001 = 2 | |
F | IF --- NSCAN FLDS MAX WDTH LE 35 | NSCAN FLDS MAX WDTH = 5 | |
F | AND --- NSCAN FLDS KEY WDTH 001 LE 35 | NSCAN FLDS KEY WDTH 001 = 2 | |
F | IF --- NSCAN FLDS MAX WDTH LE 50 | NSCAN FLDS MAX WDTH = 5 | |
T | AND --- NSCAN FLDS KEY WDTH 001 LE 50 | NSCAN FLDS KEY WDTH 001 = 2 | |
T | T SET --- NEXT PROCESS NAME = NSCAN (50) | NEXT PROCESS NAME = N | |
T | T RETURN | | |
|
|
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - SCAN - Subroutine |
T | T IF --- NEXT PROCESS NAME NE | NEXT PROCESS NAME = N | |
TT | TT INPUT --- SUBPROCESS END? N FAIL | | |
|
| |
Input 0LA - NSCAN (50) - Start of Process |
| GOSUB --- NSCAN ILF (SOP) | | |
| |
Subroutine 0LA - NSCAN ILF (SOP) - Start of Process |
| STORE --- LANG TEXT 001 FIELD | | |
| STORE --- LANG TEXT 002 FIELD | | |
| STORE --- LANG TEXT 003 FIELD | | |
| STORE --- LANG TEXT 004 FIELD | | |
| STORE --- LANG TEXT 005 FIELD | | |
| STORE --- LANG TEXT 006 FIELD | | |
| STORE --- LANG TEXT 007 FIELD | | |
| STORE --- ALTERNATE IMAGE NUMBER FIELD | | |
| STORE 0AD WORK 80 FIELD | | |
| STORE --- TEMP 80 FIELD | | |
| STORE --- FI FIELD | | |
| STORE --- HI FIELD | | |
| STORE --- RI FIELD | | |
| STORE --- LI FIELD | | |
| STORE --- XI FIELD | | |
| STORE --- YI FIELD | | |
| STORE --- ZI FIELD | | |
| SET --- FI = 1 | FI = | |
| SET --- HI = 0 | HI = | |
| SET --- LI = 0 | LI = | |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 1 | |
| SET --- RI = --- NSCAN REC CNT | RI = | NSCAN REC CNT = 4 |
| SET --- MESSAGE ID = 511000 | MESSAGE ID = 0 | |
| SET --- MESSAGE SEVERITY = 7 | MESSAGE SEVERITY = 0 | |
| COPY --- LANGUAGE TEXT | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - LANGUAGE TEXT - Start of Process |
| STORE --- MI FIELD | | |
| STORE --- XI FIELD | | |
| STORE --- WORK CENTER 80 FIELD | | |
| SET --- MESSAGE ID = --- MESSAGE ID | MESSAGE ID = 5 | MESSAGE ID = 5 |
| SET --- MESSAGE SEVERITY = --- MESSAGE SEVERITY | MESSAGE SEVERITY = 7 | MESSAGE SEVERITY = 7 |
| BEG AT --- MESSAGE IN --- MESSAGE ID | | |
| SET --- XI = 1 | XI = | |
| SET --- MI = --- MESSAGE SEVERITY | MI = | MESSAGE SEVERITY = 7 |
| READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = S | MESSAGE TXT = S |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = I | MESSAGE TXT = A |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = N | MESSAGE TXT = M |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = D | MESSAGE TXT = S |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = R |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = R |
TF | T IF --- XI LT --- MI | XI = | MI = |
TT | TT COMPUTE --- XI + 1 | XI = | |
TT | TT GOTO READ NEXT MESSAGE | | |
TT | READNEXT --- MESSAGE HOLD 0 FT 0 BY MESSAGE ID | | |
T | T IF --- MESSAGE SEVERITY EQ 4 | MESSAGE SEVERITY = 0 | |
TF | TF SET --- LANG TEXT XI = --- MESSAGE TXT | LANG TEXT XI = | MESSAGE TXT = N |
TF | T IF --- XI LT --- MI | XI = | MI = |
TF | RESTORE --- MI FIELD | | |
TF | RESTORE --- XI FIELD | | |
TF | RESTORE --- WORK CENTER 80 FIELD | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - NSCAN ILF (SOP) - Start of Process |
TF | SET --- DEFAULT MODE = INQUIRE | DEFAULT MODE = C | |
TF | IF --- SCANCTX HDGS 003 EQ | SCANCTX HDGS 003 = = | |
F | GOTO :NSCAN ILF (SOP) EXIT | | |
|
|
| |
Input 0LA - NSCAN (50) - Start of Process |
| SET --- NSCAN OPT TXT SEL FILE = 1) Select File | NSCAN OPT TXT SEL FILE = | |
| SET --- NSCAN OPT TXT SEL PATH = 2) Select Path | NSCAN OPT TXT SEL PATH = | |
| SET --- NSCAN OPT TXT STRT KEY = 3) Start Value | NSCAN OPT TXT STRT KEY = | |
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 2 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 3 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 4 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 5 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 6 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 7 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 8 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 9 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 2 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 2 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 2 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 2 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 2 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 2 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 2 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 2 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 2 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 2 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 3 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 3 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 3 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 3 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 3 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 3 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 3 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 3 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 3 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 3 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 4 |
T | T STORE --- SCANDISP RECORD | | |
T | T GOSUB --- NSCAN (REC GET) | | |
|
|
| |
Subroutine 0LA - NSCAN (REC GET) - Start of Process |
| PASS --- SCANCTX RECORD SHARE? Y | | |
| PASS --- SCANDISP FILE SHARE? Y | | |
| PASS --- NSCAN REC CNT FIELD SHARE? Y | NSCAN REC CNT = 4 | |
| CALL ,SP_POPULATE_SCAN RESIDENT? Y END? N FAIL 0 | | |
T | SET --- HI = --- SCANCTX LST REC NO | HI = | SCANCTX LST REC NO = 4 |
|
|
|
|
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
T | T RESTORE --- SCANDISP RECORD | | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T END | | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
T | T SET --- ALTERNATE IMAGE NUMBER = 0 | ALTERNATE IMAGE NUMBER = 1 | |
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 0 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Post PCF Read |
| GOSUB --- NSCAN ILF (POST PCF READ) | | |
| |
Subroutine 0LA - NSCAN ILF (POST PCF READ) - Start of Process |
| IF --- SCANCTX LST REC NO EQ --- SCANDISP REC ID | SCANCTX LST REC NO = 4 | SCANDISP REC ID = 1 |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (100.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
F | SET --- NSCAN TITLE = --- LANG TEXT 00 | NSCAN TITLE = | LANG TEXT 001 = S |
F | IF --- SCANFI SCAN TYPE NE TOKEN | SCANFI SCAN TYPE = S | |
T | T IF --- SCANFI DESC NE | SCANFI DESC = | |
TT | TT APPEND --- NSCAN TITLE 1 ( | NSCAN TITLE = S | |
TT | TT APPEND --- NSCAN TITLE 0 --- SCANFI DESC | NSCAN TITLE = S | SCANFI DESC = |
TT | TT APPEND --- NSCAN TITLE 0 ) | NSCAN TITLE = S | |
TT | IF --- NSCAN DFLT PROC NE | NSCAN DFLT PROC = | |
F | F SET --- NSCAN TITLE DFLT PROC = | NSCAN TITLE DFLT PROC = | |
F | STORE --- ALTERNATE IMAGE NUMBER FIELD | | |
F | STORE --- CURSOR COLUMN FIELD | | |
F | STORE --- CURSOR ROW FIELD | | |
F | STORE --- NEXT APPLICATION FIELD | | |
F | STORE --- NEXT VERSION FIELD | | |
F | STORE --- TEMP 1 FIELD | | |
F | STORE --- TEMP 80 FIELD | | |
F | STORE --- AI FIELD | | |
F | STORE --- II FIELD | | |
F | STORE --- XI FIELD | | |
F | STORE --- ZI FIELD | | |
F | STORE --- YI FIELD | | |
F | SET --- AI = | AI = | |
F | SET --- LI = | LI = | |
F | SET --- YI = | YI = | |
F | GOSUB :STORE_RECORDS | | |
| STORE --- SCANFLD RECORD | | |
| RETURN | | |
F | GOSUB :READ_ENTRY_RECORD | | |
| READ --- ENTRY HOLD 2 FT 0 BY | | |
T | RETURN | | |
F | GOSUB :CLEAR_WORK_FIELDS | | |
| BEG LOOP ZI = 001 TO 010 STEP 001 | | |
| SET --- WORK KEY ENTRY FLD ZI = | WORK KEY ENTRY FLD ZI = | |
| SET --- WORK KEY ENTRY DESC ZI = | WORK KEY ENTRY DESC ZI = | |
| END LOOP ZI | ZI 001 = | |
| SET --- WORK KEY ENTRY FLD ZI = | WORK KEY ENTRY FLD ZI = | |
| SET --- WORK KEY ENTRY DESC ZI = | WORK KEY ENTRY DESC ZI = | |
| END LOOP ZI | ZI 001 = | |
| SET --- WORK KEY ENTRY FLD ZI = | WORK KEY ENTRY FLD ZI = | |
| SET --- WORK KEY ENTRY DESC ZI = | WORK KEY ENTRY DESC ZI = | |
| END LOOP ZI | ZI 001 = | |
| SET --- WORK KEY ENTRY FLD ZI = | WORK KEY ENTRY FLD ZI = | |
| SET --- WORK KEY ENTRY DESC ZI = | WORK KEY ENTRY DESC ZI = | |
| END LOOP ZI | ZI 001 = | |
| SET --- WORK KEY ENTRY FLD ZI = | WORK KEY ENTRY FLD ZI = | |
| SET --- WORK KEY ENTRY DESC ZI = | WORK KEY ENTRY DESC ZI = | |
| END LOOP ZI | ZI 001 = | |
| SET --- WORK KEY ENTRY FLD ZI = | WORK KEY ENTRY FLD ZI = | |
| SET --- WORK KEY ENTRY DESC ZI = | WORK KEY ENTRY DESC ZI = | |
| END LOOP ZI | ZI 001 = | |
| SET --- WORK KEY ENTRY FLD ZI = | WORK KEY ENTRY FLD ZI = | |
| SET --- WORK KEY ENTRY DESC ZI = | WORK KEY ENTRY DESC ZI = | |
| END LOOP ZI | ZI 001 = | |
| SET --- WORK KEY ENTRY FLD ZI = | WORK KEY ENTRY FLD ZI = | |
| SET --- WORK KEY ENTRY DESC ZI = | WORK KEY ENTRY DESC ZI = | |
| END LOOP ZI | ZI 001 = | |
| SET --- WORK KEY ENTRY FLD ZI = | WORK KEY ENTRY FLD ZI = | |
| SET --- WORK KEY ENTRY DESC ZI = | WORK KEY ENTRY DESC ZI = | |
| END LOOP ZI | ZI 001 = | |
| SET --- WORK KEY ENTRY FLD ZI = | WORK KEY ENTRY FLD ZI = | |
| SET --- WORK KEY ENTRY DESC ZI = | WORK KEY ENTRY DESC ZI = | |
| END LOOP ZI | ZI 001 = | |
| RETURN | | |
F | GOSUB :LOAD_FIELDS | | |
| SET --- WORK KEY ENTRY FLD CNT = | WORK KEY ENTRY FLD CNT = 0 | |
| SET --- NSCAN KEY SEG CNT = | NSCAN KEY SEG CNT = 0 | |
| SET --- ZI = | ZI = | |
| SET --- ENTRY KEY AP = | ENTRY KEY AP = | |
| SET --- ENTRY VER = | ENTRY VER = | |
| SET --- SCANFLD REC ID = | SCANFLD REC ID = 3 | |
| BEG AT --- SCANFLD IN --- SCANFLD REC ID | | |
| READNEXT --- SCANFLD HOLD 0 FT 0 BY SCANFLD REC ID | | |
T | T IF --- SCANFLD KEY SEG EQ Y | SCANFLD KEY SEG = ? | |
TF | SET --- NSCAN KEY SEG CNT = --- WORK KEY ENTRY FLD CNT | NSCAN KEY SEG CNT = 0 | WORK KEY ENTRY FLD CNT = 0 |
TF | IF --- WORK KEY ENTRY FLD CNT GT --- NSCAN MAIN KEY SEGS | WORK KEY ENTRY FLD CNT = 0 | NSCAN MAIN KEY SEGS = 2 |
F | RETURN | | |
F | GOSUB --- SCAN KEY VALUE (DEFINE ITEMS) | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - SCAN KEY VALUE (DEFINE ITEMS) - Start of Process |
| SET --- YI = --- WORK KEY ENTRY FLD CNT | YI = | WORK KEY ENTRY FLD CNT = 0 |
| BEG LOOP ZI = 001 TO YI STEP 001 | | |
| GOTO :SKV (DEFINE ITEMS) END | | |
|
|
| |
Subroutine 0LA - NSCAN ILF (100.1) (PD) - Start of Process |
F | GOSUB :RESTORE_RECORDS | | |
| RESTORE --- SCANFLD RECORD | | |
| RETURN | | |
F | RESTORE --- ALTERNATE IMAGE NUMBER FIELD | | |
F | RESTORE --- CURSOR COLUMN FIELD | | |
F | RESTORE --- CURSOR ROW FIELD | | |
F | RESTORE --- TEMP 1 FIELD | | |
F | RESTORE --- TEMP 80 FIELD | | |
F | RESTORE --- NEXT APPLICATION FIELD | | |
F | RESTORE --- NEXT VERSION FIELD | | |
F | RESTORE --- XI FIELD | | |
F | RESTORE --- ZI FIELD | | |
F | RESTORE --- YI FIELD | | |
F | RESTORE --- II FIELD | | |
F | RESTORE --- AI FIELD | | |
F | GOTO :NSCAN ILF (100.1) (PD) EXIT | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
F | GOSUB --- APPLY RUNTIME GUI THEME | | |
|
| |
Subroutine 0LA - APPLY RUNTIME GUI THEME - Start of Process |
| GOSUB --- CHECK GUI CLIENT | | |
| |
Subroutine 0LA - CHECK GUI CLIENT - Start of Process |
| PASS --- FEATURE TOKEN SCANLIST FIELD SHARE? Y | FEATURE TOKEN SCANLIST = 1 | |
| CALL ,RT_CHECK_CLI_FEATURE RESIDENT? N END? N FAIL 0 | | |
|
| |
Subroutine 0LA - APPLY RUNTIME GUI THEME - Start of Process |
| IF --- RETURN CODE EQ 1 | RETURN CODE = + | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
F | IF --- NSCAN TITLE DFLT PROC EQ | NSCAN TITLE DFLT PROC = | |
T | T SET 0AD WORK CTR 50 BYTES = --- NSCAN TITLE | WORK CTR 50 BYTES = | NSCAN TITLE = S |
T | T SET 0AD WORK 80 = 0AD WORK CTR 50 BYTES | WORK 80 = | WORK CTR 50 BYTES = |
|
|
| |
Input 0LA - NSCAN (50) - Select Image |
| GOSUB --- NSCAN (SELECT OPTIONS IMAGE) | | |
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
| IF --- INTERACTIVE PHASE EQ DATA SCROLL | INTERACTIVE PHASE = D | |
F | F GOSUB --- CHECK GUI CLIENT | | |
|
| |
Subroutine 0LA - CHECK GUI CLIENT - Start of Process |
| PASS --- FEATURE TOKEN SCANLIST FIELD SHARE? Y | FEATURE TOKEN SCANLIST = 1 | |
| CALL ,RT_CHECK_CLI_FEATURE RESIDENT? N END? N FAIL 0 | | |
|
| |
Subroutine 0LA - NSCAN (SELECT OPTIONS IMAGE) - Start of Process |
F | F IF --- RETURN CODE EQ 1 | RETURN CODE = + | |
FF | FF IF --- INTERACTIVE PHASE EQ KEY ENTRY | INTERACTIVE PHASE = D | |
FFF | FF OR --- INTERACTIVE PHASE EQ DATA DELETION | INTERACTIVE PHASE = D | |
FFF | FFF SET --- ALTERNATE IMAGE NUMBER = 2 | ALTERNATE IMAGE NUMBER = 1 | |
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (150.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (150.1) (PD) - Start of Process |
| IF --- NSCAN FI CNT GT 1 | NSCAN FI CNT = 1 | |
F | F SET --- W OPT TEXT = | W OPT TEXT = | |
F | - DISPLAY --- W OPT TEXT (AT APPEARANCE # 001) | W OPT TEXT = | |
F | IF --- NSCAN PATH CNT GT 1 | NSCAN PATH CNT = 1 | |
F | F SET --- W OPT TEXT = | W OPT TEXT = | |
F | - DISPLAY --- W OPT TEXT (AT APPEARANCE # 002) | W OPT TEXT = | |
F | IF --- NSCAN KEY SEG CNT GT --- NSCAN MAIN KEY SEGS | NSCAN KEY SEG CNT = 0 | NSCAN MAIN KEY SEGS = 2 |
F | F SET --- W OPT TEXT = | W OPT TEXT = | |
F | - DISPLAY --- W OPT TEXT (AT APPEARANCE # 003) | W OPT TEXT = | |
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Select Image |
| SET --- ALTERNATE IMAGE NUMBER = 1 | ALTERNATE IMAGE NUMBER = 2 | |
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- NSCAN ILF (200.1) (PD) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| SET --- NSCAN SAVE KEY FLD VAL 001 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 001 = | ENTRY KEY FLD VAL 001 = |
| SET --- NSCAN SAVE KEY FLD VAL 002 = --- ENTRY KEY FLD VAL 00 | NSCAN SAVE KEY FLD VAL 002 = | ENTRY KEY FLD VAL 002 = |
| GOSUB 0AD MOD SCROLL BEHAV (PRE DISP) | | |
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (PRE DISP) - Start of Process |
| IF 0AD SCROLL SAVE OPTION NE | SCROLL SAVE OPTION = | |
F | AND --- INTERACTIVE PHASE NE DATA SCROLL | INTERACTIVE PHASE = D | |
|
| |
Subroutine 0LA - NSCAN ILF (200.1) (PD) - Start of Process |
| IF --- SCANDISP USR SLCT EQ Y | SCANDISP USR SLCT = N | |
F | F NORMAL (AT APPEARANCE # ) | | |
F | SET --- SCANOPT STAT = 0 | SCANOPT STAT = 0 | |
F | IF --- NSCAN PATH CNT LE 1 | NSCAN PATH CNT = 1 | |
T | T SET --- WIDGET NAME = SELECT PATH | WIDGET NAME = | |
T | T READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
TT | TT SET --- WIDGET ADD TO TOOLBAR = N | WIDGET ADD TO TOOLBAR = Y | |
TT | TT REWRITE --- WIDGET FAIL 0 | | |
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Pre-Display |
| GOSUB --- DELETE MODE BUTTONS | | |
| |
Subroutine 0LA - DELETE MODE BUTTONS - Start of Process |
| SET --- WIDGET NAME = --- ADD MODE | WIDGET NAME = S | |
| READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- DELETE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- INQUIRE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- CHANGE MODE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
F | SET --- WIDGET NAME = --- ACKNOWLEDGE DELETE | WIDGET NAME = - | |
F | READ --- WIDGET HOLD 1 FT 0 BY WIDGET NAME | | |
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - Option Intercept |
| GOSUB --- NSCAN ILF (200.1) (OI) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (OI) - Start of Process |
| IF --- OPTION EQ SCAN | OPTION = E | |
F | IF --- OPTION EQ PREVIOUS ACTIVITY | OPTION = E | |
F | IF --- ENTRY KEY FLD VAL 001 NE --- NSCAN SAVE KEY FLD VAL 00 | ENTRY KEY FLD VAL 001 = | NSCAN SAVE KEY FLD VAL 001 = |
F | OR --- ENTRY KEY FLD VAL 002 NE --- NSCAN SAVE KEY FLD VAL 00 | ENTRY KEY FLD VAL 002 = | NSCAN SAVE KEY FLD VAL 002 = |
F | GOSUB 0AD MOD SCROLL BEHAV (OPT INTR) | | |
|
|
|
|
| |
Subroutine 0LA - MOD SCROLL BEHAV (OPT INTR) - Start of Process |
| AT FIELD (AT APPEARANCE # ) | | |
| |
Subroutine 0LA - NSCAN ILF (200.1) (OI) - Start of Process |
F | IF --- OPTION EQ SCAN | OPTION = E | |
F | IF --- OPTION EQ RETURN | OPTION = E | |
F | OR --- OPTION EQ END | OPTION = E | |
T | AND --- SCANFI SCAN TYPE EQ QRY | SCANFI SCAN TYPE = S | |
F | IF --- OPTION EQ SELECT ACCESS PATH | OPTION = E | |
F | AND --- SCANFI SCAN TYPE NE QRY | SCANFI SCAN TYPE = S | |
F | IF --- OPTION EQ RETURN | OPTION = E | |
F | OR --- OPTION EQ SELECT ACCESS PATH | OPTION = E | |
F | AND --- SCANFI SCAN TYPE NE QRY | SCANFI SCAN TYPE = S | |
F | IF --- OPTION EQ USER 1 | OPTION = E | |
F | IF --- OPTION EQ USER 2 | OPTION = E | |
F | IF --- OPTION EQ USER 3 | OPTION = E | |
F | IF --- OPTION EQ ADD MODE | OPTION = E | |
F | IF --- OPTION EQ DELETE MODE | OPTION = E | |
F | IF --- OPTION EQ INQUIRE MODE | OPTION = E | |
F | IF --- OPTION EQ CHANGE MODE | OPTION = E | |
F | IF --- OPTION EQ SELECT ACCESS PATH | OPTION = E | |
F | AND --- SCANFI SCAN TYPE EQ QRY | SCANFI SCAN TYPE = S | |
F | END | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Input 0LA - NSCAN (50) - End of Process |
| GOSUB --- NSCAN ILF (EOP) | | |
| |
Subroutine 0LA - NSCAN ILF (EOP) - Start of Process |
| SET --- KEATERM ACTIVE = Y | KEATERM ACTIVE = Y | |
| GOSUB --- NSCAN (CLEANUP) | | |
|
| |
Subroutine 0LA - NSCAN (CLEANUP) - Start of Process |
| IF --- NSCAN REINVOKE NE 1 | NSCAN REINVOKE = | |
T | T SET --- SCANOPT FI NAM = --- SCANCTX FI | SCANOPT FI NAM = | SCANCTX FI = D |
T | T PASS --- SCANCTX RECORD SHARE? Y | | |
T | T PASS --- SCANDISP FILE SHARE? Y | | |
T | T CALL ,SP_SCAN_CLEANUP RESIDENT? N END? N FAIL 0 | | |
|
|
|
|
| |
Subroutine 0LA - NSCAN ILF (EOP) - Start of Process |
| RESTORE --- FI FIELD | | |
| RESTORE --- HI FIELD | | |
| RESTORE --- RI FIELD | | |
| RESTORE --- LI FIELD | | |
| RESTORE --- XI FIELD | | |
| RESTORE --- YI FIELD | | |
| RESTORE --- ZI FIELD | | |
| RESTORE --- ALTERNATE IMAGE NUMBER FIELD | | |
| RESTORE --- LANG TEXT 001 FIELD | | |
| RESTORE --- LANG TEXT 002 FIELD | | |
| RESTORE --- LANG TEXT 003 FIELD | | |
| RESTORE --- LANG TEXT 004 FIELD | | |
| RESTORE --- LANG TEXT 005 FIELD | | |
| RESTORE --- LANG TEXT 006 FIELD | | |
| RESTORE --- LANG TEXT 007 FIELD | | |
| RESTORE 0AD WORK 80 FIELD | | |
| RESTORE --- TEMP 80 FIELD | | |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
Subroutine 0LA - SCAN - Subroutine |
TTT | T IF --- NSCAN REINVOKE EQ 1 | NSCAN REINVOKE = | |
TF | RESTORE --- HI FIELD | | |
|
| |
Input 0LA - SELECT DATABASE - Option Intercept |
| GOSUB --- SELECT DATABASE (100.1 OI) | | |
| |
Subroutine 0LA - SELECT DATABASE (100.1 OI) - Start of Process |
| IF --- OPTION EQ END | OPTION = E | |
T | T SET --- OPTION = CANCEL | OPTION = E | |
T | IF --- OPTION EQ SCAN | OPTION = C | |
|
|
| |
Input 0LA - SELECT DATABASE - Global Option Inte |
| GOSUB --- SELECT DATABASE (100 GOI) | | |
| |
Subroutine 0LA - SELECT DATABASE (100 GOI) - Start of Process |
| IF --- OPTION EQ CANCEL | OPTION = C | |
T | OR --- OPTION EQ END | OPTION = C | |
T | T SET --- NEXT DATABASE = | NEXT DATABASE = | |
T | T END PROC | | |
|
|
|
| |
Input 0LA - SELECT DATABASE - End of Process |
| GOSUB --- SELECT DATABASE (EOP) | | |
| |
Subroutine 0LA - SELECT DATABASE (EOP) - Start of Process |
| IF --- OPTION EQ CANCEL | OPTION = C | |
T | OR --- TEMP 79 NE | TEMP 79 = | |
T | T END | | |
|
|
| |
Menu 0LA - APPX MENU - Pre-Display |
| GOSUB --- CHECK GUI CLIENT | | |
| |
Subroutine 0LA - CHECK GUI CLIENT - Start of Process |
| PASS --- FEATURE TOKEN SCANLIST FIELD SHARE? Y | FEATURE TOKEN SCANLIST = 1 | |
| CALL ,RT_CHECK_CLI_FEATURE RESIDENT? N END? N FAIL 0 | | |
|
| |
Menu 0LA - APPX MENU - Pre-Display |
| IF --- RETURN CODE EQ 1 | RETURN CODE = + | |
| |
Menu 0LA - APPX MENU - Option Intercept |
| IF --- OPTION EQ USER 2 | OPTION = E | |
| |