Date/Time
Fri May 12 16:12:31 2017
User ID
APX
Engine Path
/usr/local/appx600v2/./appx.0sa
Process ID
6566
Workstation
/dev/pts/0
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