Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/demo/personnel_rec.cdd-record
There are no other files named personnel_rec.cdd-record in the archive.
B8BBDDCsD)D<EPERSON

E/B)B*ID9(5)

E/(0BQBmBSBsC
BvEMPLOYEESTATUSSTATUSX(11).;BoSTATUS:. STATUS EQ "TRAINEE","EXPERIENCED".
 CCCCGEMPLOYEE_NAMENAME

D0C*CFC+FIRST_NAMEF_NAMEX(10)

DP0CTCpCULAST_NAMEL_NAMEX(10)

E/DDEPTXXX

E/@D5D7START_DATE,.GD9 0D:TODAY

E/h8DIDJDeSALARY9(5)$$$,$$$

E/E)SUPID9(5),.\E+ E-DEFINE RECORD PERSONNELREC USING
01 PERSON.
   05 ID                       PIC IS 9(5).
   05 EMPLOYEE_STATUS          PIC IS X(11)
                               QUERY_NAME IS STATUS
                               QUERY_HEADER IS "STATUS"
&                               VALID IF STATUS EQ "TRAINEE","EXPERIENCED".
   05 EMPLOYEE_NAME            QUERY_NAME IS NAME.
      10 FIRST_NAME            PIC IS X(10)
                               QUERY_NAME IS F_NAME.
      10 LAST_NAME             PIC IS X(10)
                               QUERY_NAME IS L_NAME.
   05 DEPT                     PIC IS XXX.
   05 START_DATE               USAGE IS DATE
                               DEFAULT VALUE IS "TODAY".
   05 SALARY                   PIC IS 9(5)
                               EDIT_STRING IS $$$,$$$.
   05 SUP_ID
                               PIC IS 9(5)
                               MISSING VALUE IS 0 .
 ;