/* */ all_filesets = '' 'XEDIT FILESETS ON_CD' ':3' 'NEXT' do until rc^=0 'EXTRACT /CURLINE/' parse var curline.3 . . fileset description If wordpos(fileset,all_filesets)=0 Then Do all_filesets = all_filesets fileset in.fileset = 'C---' desc.fileset = Strip(description) End Else Do /* Duplicate fileset. Should only happen in cases of service. */ /* Don't worry about it now. Only case is bos & U434329.bff */ End 'NEXT' End i=words(all_filesets) 'TOP' 'XEDIT LPP_1 NIMLSLPP' ':1' 'NEXT' do until rc^=0 'EXTRACT /CURLINE/' parse var curline.3 fileset . If wordpos(fileset,all_filesets)=0 Then Do 'EMSG How could this happen? ' fileset 'is in LPP_1, but not on CD.' End Else Do in.fileset = overlay('L',in.fileset,2) End 'NEXT' End 'TOP' 'XEDIT PULP LSLPP' 'LOCATE /------------/' 'NEXT' do until rc^=0 'EXTRACT /CURLINE/LINE' parse var curline.3 fileset description If wordpos(fileset,all_filesets) = 0 Then Do 'EMSG' fileset 'is on PULP, but not on CD. I''m adding it ...' all_filesets = all_filesets fileset in.fileset = '--P-' desc.fileset = Strip(description) End Else Do in.fileset = overlay('P',in.fileset,3) End 'NEXT' End 'TOP' 'XEDIT BITPIT LSLPP' 'LOCATE /------------/' 'NEXT' do until rc^=0 'EXTRACT /CURLINE/LINE' parse var curline.3 fileset description If wordpos(fileset,all_filesets) = 0 Then Do 'EMSG' fileset 'is on BITPIT, but not on CD. I''m adding it ...' all_filesets = all_filesets fileset in.fileset = '---B' desc.fileset = Strip(description) End Else Do in.fileset = overlay('B',in.fileset,4) End 'NEXT' End 'TOP' 'XEDIT ALL LSLPP A (WIDTH 444' 'SET RECFM V' 'SET LRECL *' 'SET TRUNC *' 'SET MSGMODE OFF' 'DELETE *' 'SET MSGMODE OFF' do i=1 to words(all_filesets) fileset = Subword(all_filesets,i,1) 'INPUT' left(fileset,33) in.fileset desc.fileset End 'TOP'