/*    This exec reads WANTIN LSLPP, which a list of filesets we      */
/*  want in our lslpp, lpp-414, and using the file AIX414 FILESETS,  */
/*  translates those filesets into package names, then writes a      */
/*  file, BFFCREATE COMMAND, that can then run on nemesis to         */
/*  augment the lslpp with everything we need from CD.               */
input_file_1 = 'FILESETS ON414CD'
wanted_input_file = 'WANTIN LSLPP A'
output_file = 'BFFCREAT COMMAND A'
 
all_filesets = ''
 
If state(input_file_1) = '' Then Do
  'EMSG Missing' input_file_1'.  Nothing was done.'
  Exit 123
End
 
If state(wanted_input_file) = '' Then Do
  'EMSG Missing' wanted_input_file'.  Nothing was done.'
  Exit 234
End
 
'EXECIO * DISKR' input_file_1 '(FINIS STEM IN.'
packages = ''
Do i = 4 to in.0
  parse var in.i . package fileset .
  package.fileset = package
  If wordpos(package,packages)=0 Then packages = packages package
End
packages = strip(packages)
 
'ERASE' output_file
'EXECIO 1 DISKW' output_file '1 V (STRING bffcreate -d /cd/usr/sys/inst.images -X -t /inst.images \'
 
'EXECIO * DISKR' wanted_input_file '(FINIS STEM IN.'
packages_wanted = ''
Do i = 1 to in.0
  parse var in.i fileset .
  package = package.fileset
  If wordpos(package,packages_wanted)=0 Then Do
if package = 'devices.msg.ca_ES' then do
say 'Due to fileset' fileset 'on line' i 'of' wanted_input_file
trace ?i
end
    packages_wanted = packages_wanted package
    'EXECIO 1 DISKW' output_file '(STRING    ' package '\'
  End
End