Function ACCESS1 |
Virtual Machine |
 |
The first function, ACCESS1, accesses the customer file by alternate key 1, which has duplicates. Access is Lookup Mode only.
PTI @DOCSFUN PROIV Technologies 12/06/91 14:44 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: ACCESS1 'SCREEN' ACCESS CUSTOMER FILE BY ALTERNATE KEY 1
FUNCTION DEFINITION
REV#:
FUNCTION NAME: ACCESS1 TITLE: ACCESS CUSTOMER FILE BY ALTERNATE KEY 1
TYPE: S SPECS CHG ON: 10/06/90
EXIT LINK: ERROR LINK: RESET ON: 11/06/90 14:33:25
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 1
02 5 : 10 SALESMAN CODE: :
03 7 : 10 SEQ# : 19 SLSMN
: 29 CUSTOMER# : 44 CUSTOMER NAME
04 8 : 10 ---- : 19 -----
: 29 ---------- : 44 ---------------------------------------
Figure 25. Function Name: Access1 (page 1)
PTI @DOCSFUN PROIV Technologies 12/06/91 14:46 PAGE 2
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: ACCESS1 'SCREEN' ACCESS CUSTOMER FILE BY ALTERNATE KEY 1
H E L P M E S S A G E S
FLD ------------------------------- M E S S A G E --------------------------------
001 SCRATCH VARIABLE CONTAINING SALESMAN'S ID NUMBER
002 PSEUDO-SEQUENCE NUMBER FOR INDEX PAGING
003 SALESMAN'S ID NUMBER
004 CUSTOMER'S ID NUMBER
005 CUSTOMER'S NAME
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 $SLSMN
5 25 3
002 @PSEQ
1 11 2.0 2 Y Y Y
003 CUST_SLSMN
1 20 3 Y Y Y
004 CUST_NO
1 29 10 Y
005 CUST_NAME
1 44 30 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 26. Function Name: Access1 (page 2)
PTI @DOCSFUN PROIV Technologies 12/06/91 14:48 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: ACCESS1 'SCREEN' ACCESS CUSTOMER FILE BY ALTERNATE KEY 1
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: 3
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 SLSCUST 3 3
LOGIC DEFINITION
LGID LNE STEP -------------------------- S T A T E M E N T ---------------------------------
001 * DEFAULT LOGIC - SET SELECTION OF ALL SALESMAN RECORDS
002 CUST_SLSMN = $SLSMN
003 SEL-PARTIAL(CUST.SLSMN)
Figure 27. Function Name: Access1 (page 4)
Topic ID: 720107