BBBFBqPROJECTREC
C B)BEB+PROJ_CODECODE9(3)
C BSBoBTPROJ_NAMENAMEX(10)
ChB~CCMANAGER_NUMNUM9(5)DEFINE RECORD PROJECT_REC USING 01 PROJECT_REC. 03 PROJ_CODE PIC 9(3) QUERY_NAME IS CODE. 03 PROJ_NAME PIC X(10) QUERY_NAME IS NAME. 03 MANAGER_NUM PIC 9(5) QUERY_NAME IS NUM. ;