/* */ 'XEDIT FILESETS ON_CD A (WIDTH 444' 'SET RECFM V' 'SET LRECL *' 'SET TRUNC *' 'SET MSGMODE OFF' 'DELETE *' 'SET MSGMODE OFF' 'XEDIT' ':1' 'LOCATE /{/' do while rc=0 /* Found a start to a file descriptor. */ 'EXTRACT /CURLINE/LINE/' parse var curline.3 file_name . . . package lcb . If lcb ^= '{' Then Do /* Sanity check */ 'EMSG Aaaack. Line' line.1 'is in the wrong format. lcb isn''t.' exit End /* Now loop through all the packages in this file. */ last_line = '' Do forever 'NEXT' 'EXTRACT /CURLINE/LINE/' first_char = Substr(curline.3,1,1) If first_char = '}' Then Leave If first_char = '[' Then Do parse var last_line fileset . . . . . description 'XEDIT FILESETS ON_CD A (WIDTH 444' 'INPUT' left(file_name,25) left(package,25) left(fileset,35) description 'XEDIT' 'LOCATE /]/' End last_line = curline.3 End 'LOCATE /{/' End 'TOP' 'XEDIT FILESETS ON_CD A (WIDTH 444' 'TOP'