CA Datacom/DB Reporting Facility Tutorial › Defining Input Record Fields

Defining Input Record Fields

 USER 'XYZ COMPANY, INC.'
 PERSONEL:  INPUT DATACOM  RECORD EQ 375  NAME EQ PMF DBID EQ 001
 DEFINE PERSONEL-COMMAND    001-005   X
 DEFINE PERSONEL-KEY        006-010   X
 DEFINE PERSONEL-ELMLIST    191-201   X
 DEFINE PERSONEL-NUMBER     301-305   X '  ID  ' 'NUMBER'
 DEFINE PERSONEL-NAME       306-329   X 'EMPLOYEE NAME'
 DEFINE PERSONEL-CITY       354-368   X 'CITY'
 DEFINE PERSONEL-STATE      369-370   X
 DEFINE PERSONEL-ZIP-CODE   371-375   X 'ZIP' 'CODE'
 MOVE 'GETIT' TO PERSONEL-COMMAND
 MOVE 'EMPNO' TO PERSONEL-KEY
 MOVE 'ADEMP' TO PERSONEL-ELMLIST
 GET PERSONEL
 GOTO EOJ WHEN PERSONEL EQ 'E'
 REPORT 'EMPLOYEE SUMMARY - TEXAS'
 SELECT PERSONEL-STATE EQ 'TX'
 CONTROL PERSONEL-CITY
 PRINT PERSONEL-NAME PERSONEL-NUMBER PERSONEL-CITY
      PERSONEL-ZIP-CODE
 END

The DEFINE statements assign symbolic names to fields and describe the fields' characteristics so the data can be referenced by commands within the Reporting Facility program.

The DEFINE statements are coded immediately following the INPUT statement and are divided into two areas, the Communications Area and the Data Area, when you are working with a CA Datacom/DB table.

Note: Standard files do not require a Communications Area in the program.