Function ACCESS2 |
Virtual Machine |
 |
The second function, ACCESS2, accesses the customer file by alternate key 2, which has duplicates. Access is in Lookup Mode only.
PTI @DOCSFUN PROIV Technologies 12/06/91 14:50 PAGE 1
TRM: CONSOLE F U N C T I O N D O C U M E N T A T I O N OPR: SYS
FUNCTION NAME: ACCESS2 'SCREEN' ACCESS CUSTOMER FILE BY ALTERNATE KEY 2
FUNCTION DEFINITION
REV#:
FUNCTION NAME: ACCESS2 TITLE: ACCESS CUSTOMER FILE BY ALTERNATE KEY 2
TYPE: S SPECS CHG ON: 10/06/90
EXIT LINK: ERROR LINK: RESET ON: 11/06/90 12:45:52
LOGIC IN: LOGIC OUT: NO CMD CALL: SIZES:
ANALYST: PTI ENTRY DATE: 12/06/90 BY: SYS
SEQ# ---------------------------- D E S C R I P T I O N -----------------------
001
* * * * * * * * * * * * * * MENU/FORMAT DEFINITION * * * * * * * * * * * * * * * * * *
1.........2........... 1.........2............
FORMAT 0....5....0....5....0....5...9 0....5....0....5....0....5...9
ID SEQ LINE COL ----------------TEXT----------- COL --------------TEXT-----------------
1 01 2 : 20 ACCESS CUSTOMER FILE BY ALTERN : 50 ATE KEY 2
02 5 : 10 POSTCODE (FIRST 5 DIGITS) :
03 7 : 10 SEQ# : 19 POSTCODE
: 33 CUSTOMER NAME : 68 CUSTOMER #
04 8 : 10 ---- : 19 -----
: 33 ---------- : 68 ----------------------------------------
Figure 28. Function Name: Access2 (page 1)
PTI @DOCSFUN PROIV Technologies 12/06/91 14:56 PAGE 3
TRM: CONSOLE F U N C T I O N D O C U M E N T A T I O N OPR: SYS
FUNCTION NAME: ACCESS2 'SCREEN' ACCESS CUSTOMER FILE BY ALTERNATE KEY 2
H E L P M E S S A G E S
FLD ----------------------------------- M E S S A G E -----------------------------------
001 SCRATCH VARIABLE CONTAINING CUSTOMER'S POSTCODE/ZIPCODE
002 PSEUDO-SEQUENCE NUMBER FOR INDEX PAGING
003 CUSTOMER'S POSTCODE/ZIPCODE
004 CUSTOMER'S NAME
005 CUSTOMER'S ID NUMBER
SCREEN FIELD DEFINITION
----------------------------------------------------------------------------------------------
A FIL LGC SPECIAL GEN LGC M N D A O T SEC LK
FLD VAR LIN B COL CDE DISPLAY-CODE LEN BEF CHECK CHK AFT I C O R V B L C LS
--- --- --- - --- --- ------------ --- --- ------- --- --- - - - - - - - - -
001 $POSTCODE
5 38 5
002 @PSEQ
1 11 2.0 2 Y Y Y
003 CUST_POST
1 19 9 Y Y Y
004 CUST_NAME
1 33 30 Y Y Y
005 CUST_NO
1 68 10 Y
SCREEN CHARACTERISTICS DEFINITION
---------------------------------LOGICAL SCREEN INFORMATION-----------------------------------
SCREEN# : 01 DEF LOGIC : EXIT LOGIC : ONE TIME :
FORMAT ID : 1 CLEAR CRT : Y LS MODE(S) : A DEF MODE : A
START FLD# : 1 END FIELD# : 5 LAST RD FLD:
MODE LINE : LINE# PRMPT:
SCREEN SIZE - STRT ROW: STRT COL: ROWS: COLS:
P A G I N G: STRT ROW: STRT COL: ROWS: COLS:
#LNS/RCD: #COL/RCD: PG ARRAY: # ELMNTS:
CONTRACTED - END FLD : #CTD LNS:
S O R T : SSEL LGC: SSEL EFL: SV1:
SV2: SV3:
SV4: SV5:
Figure 29. Function Name: Access2 (page 3)
PTI @DOCSFUN PROIV Technologies 12/06/91 14:59 PAGE 4
TRM: CONSOLE F U N C T I O N D O C U M E N T A T I O N OPR: SYS
FUNCTION NAME: ACCESS2 'SCREEN' ACCESS CUSTOMER FILE BY ALTERNATE KEY 2
SCREEN CHARACTERISTICS DEFINITION
---------------------------------LOGICAL SCREEN INFORMATION-----------------------------------
SCREEN# : 02 DEF LOGIC : 1 EXIT LOGIC : ONE TIME :
FORMAT ID : 1 CLEAR CRT : LS MODE(S) : L DEF MODE : L
START FLD# : 2 END FIELD# : 5 LAST RD FLD: 4
MODE LINE : LINE# PRMPT:
SCREEN SIZE - STRT ROW: STRT COL: ROWS: COLS:
P A G I N G: Y STRT ROW: 9 STRT COL: ROWS: 12 COLS:
#LNS/RCD: 1 #COL/RCD: PG ARRAY: # ELMNTS:
CONTRACTED - END FLD : #CTD LNS:
S O R T : SSEL LGC: SSEL EFL: SV1:
SV2: SV3:
SV4: SV5:
------------------------------------- FILE INFORMATION ---------------------------------------
FILE --NAME-- A C D L RD-FLD RTN-FLD BEF-READ ERR NO-ERR BEF-WRTE ERR PCB#
01 POSTCUST 4 3
LOGIC DEFINITION
LGID LNE STEP -------------------------- S T A T E M E N T --------------------------------
001 * DEFAULT LOGIC - SET SELECTION OF ALL CORRESPONDING POSTCODE RECORDS
002 CUST_POST = $POSTCODE
003 SEL-PARTIAL(CUST_POST)
Figure 30. Function Name: Access2 (page 4)
Topic ID: 720108