RECORD INSTALL_IN_RECORD
01 INS_IN_REC.
!
! This reads data from an INSTALL/LIST/FULL log file
!
! B. Z. Lederman    29-Sep-1987		ITT World Communications
!		    31-Dec-1990	Add fields for qualifiers on line
!				after image name
!
    10 TEXT_IN PIC X(80).
    10 PARSE_FIELDS REDEFINES TEXT_IN.
	20 DISK PIC XXX.
	20 IMAGE PIC X(77).
	20 PARSE_2 REDEFINES IMAGE.
	    30 BLANK1 PIC X(5).
	    30 TYPE PIC X(10).
	20 PARSE_3 REDEFINES IMAGE.
	    30 BLANK2 PIC X(17).
	    30 QUAL2 PIC X(60).
;