; FDS.DBL V-A-X COMMON RECORD SECTION FOR USE WITH 'INP.DBL' DATA DIVISIONS ; REVISED BY RON TENNY 12/21/82 RECORD SCRPAR RTRC ,99A100 ; ARRAY FOR HOLDING THE SCREEN BUILDING PARAMETER FILE S ,9D2 ; ARRAY FOR HOLDING START ELEMENT OF NEXT SCREEN RECORD FD FDR ,A2 ,A6 FDVAR ,A6 ;VARIABLE NAME ,A2 ,A1 ;COMMA FDTYP ,A1 ;TYPE RECORD- A OR D FDSIZ ,A3 ;SIZE OF SIZE OF FIELD ,A3 ,A1 ;SEMICOLON FDTXT ,A38 ;VARIABLE TEXT ,A1 FDEDT ,A20 ;VARIABLE EDIT MASK ,A60 ;------------------------------------------------------------------------------------ RECORD STFLG ,D2 ;FLAGS THAT THE STATE FILE IS ALREADY OPEN FILDEF ,A14 ;NAME OF FILE DEFINATION SELECTED FILNAM ,A6 ;NAME OF FILE RECORD SELECTED OUTPAR ,A14 ;NAME OF OUTPUT PARAMETER FILE NAME ,A6 ; NAME OF PROGRAM OR VARIATION SELECTED DBKEY ,A36 ; SAVE VARIABLE FOR RECORD KEY LO ,D1 ; LO RANGE OF KEY TYPE ACCEPTABLE HI ,D1 ; HI RANGE OF KEY TYPE ACCEPTABLE IDLEN ,D3,001 ; LENGTH OF ID, IF USED (CUSTOMERS * PROSPECTS NEED SET TO 3) IDCHK ,D1 ; FLAGS WHETHER 'ID' CHECK IS OK NOADD ,D1 ; SET TO "1" IF NO ADD'S OR DELETE'S ALLOWED RETAIL ,D2,20 ; THIS IS THE FIELD IN ITEM MAINT PROGRAMS FOR THE RETAIL COST WHSLE ,D2,22 ; THIS IS THE FIELD IN ITEM MAINT PROGRAMS FOR THE WHOLESALE COST COST ,D2,24 ; THIS IS THE FIELD IN ITEM MAINT PROGRAMS FOR THE PURCHASE COST J ,D3 ; POINTER USED TO LOCATE END OF TEXT IN PARAMETER K ,D3 ; COUNTER OF ELEMENTS ON SCREEN L ,D3 ; USED TO REFERENCE BEGINNING OF TEXT DISPLAY CURSOR POSITION NUM ,D3 ; CHANGE NUMBER SELECTED EA ,A16 ; BLANK FIELD E ,A16 ,'ZZZZZZZZZZZZZZZ-' ; STD NUMERIC EDIT MASK MTBL ,12D2 ,01,02,03,04,05,06,07,08,09,10,11,12 DTBL ,12D3 ,000,031,059,090,120,151,181,212,243,273,304,334 MNME ,12A3 ,'JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC' RECORD KEY1 ,A17 ,'Primary key field' ; TEXT FIELD FOR PRIMARY KEY KEY1L ,D3 ; STARTING RECORD POSITION FOR PRIMARY KEY KEY1H ,D3 ; ENDING RECORD POSITION FOR PRIMARY KEY KEY1N ,D2 ; SCREEN REFERENCE NUMBER WHERE PRIMARY KEY IS DISPLAYED ,A2 KEY2 ,A17 ,'Secondary key #1 ' ; TEXT FIELD FOR SECONDARY KEY KEY2L ,D3 ; STARTING RECORD POSITION FOR SECONDARY KEY #1 KEY2H ,D3 ; ENDING RECORD POSITION FOR SECONDARY KEY #1 KEY2N ,D2 ; SCREEN REFERENCE NUMBER WHERE SECONDARY KEY #1 IS DISPLAYED ,A2 KEY3 ,A17 ,'Secondary key #2 ' ; TEXT FIELD FOR SECONDARY KEY KEY3L ,D3 ; same as above KEY3H ,D3 KEY3N ,D2 ,A2 RECORD,X KEYS ,3A27 ; ARRAY FOR STORAGE OF PRIMARY AND SECONDARY KEY ATTRIBUTES RECORD KEY ; SAVE AREA FOR HOLDING A SINGLE SCREEN'S KEY ATTRIBUTES KEYD ,A17 ; TEXT FIELD KEYL ,D3 ; STARTING RECORD POSTION KEYH ,D3 ; ENDING RECORD POSTION KEYN ,D2 ; SCREEN REFERENCE NUMBER ,A2