XLJOSL
file170 = 'XLJOSL'
path170 = '&USER&,&AREA&,&SYS&'
packing = 'B60'
"Define variable to record system file loading status"
create_variable DSV$LOADED_B60_SYSTEM_FILES kind=boolean scope=job value=no
" library file, leave it local on 'sysci' file for conversion to ii"
detach_file (sysci sysii) status=lpf_ignore_status
get_deadstart_file to=sysci data_conversion=$name(packing)
display_value '  convert XLJOSL to sysii '
  TASK ocf$object_file
    execute_task parameter='sysci,sysii' starting_procedure=citoii
    detach_file sysci
  TASKEND
.EOR
XLJLIB
file170 = 'XLJLIB'
path170 = '&USER&,&AREA&,&SYS&'
packing = 'B60'
detach_file (libci libii) status=lpf_ignore_status
get_deadstart_file to=libci data_conversion=$name(packing)
display_value ' convert XLJLIB to libii '
  TASK cyf$run_time_library
    execute_task parameter='libci,libii' starting_procedure=citoii
    detach_file libci
  TASKEND
.EOR
XLJOCM
file170 = 'XLJOCM'
pat170 = '&USER&,&AREA&,&SYS&'
packing = 'B60'
"leave file local on 'ocmci'"
detach_file (ocmci ocmii) status=lpf_ignore_status
get_deadstart_file to=ocmci data_conversion=$name(packing)
display_value ' convert XLJOCM to ocmii '
  TASK osf$system_library
    execute_task parameter='ocmci,ocmii' starting_procedure=citoii
    detach_file ocmci
  TASKEND
.EOR
CYBHOBJ
file170 = 'CYBHOBJ'
path170 = '&USER&,&AREA&,&SYS&'
packing = 'B60'
" library file, leave it local on 'cybci' file for conversion to ii"
detach_file (cybci cybii) status=lpf_ignore_status
get_deadstart_file to=cybci data_conversion=$name(packing)
display_value ' convert CYBHOBJ to cybii '
  TASK osf$operator_library
    execute_task parameter='cybci,cybii' starting_procedure=citoii
    detach_file cybci
  TASKEND
.EOR
VALIDUS
file170 = 'VALIDUS'
path170 = '&USER&,&AREA&,&SYS&'
packing = 'A6'
file180 = 'scrach_validus'
path180 = '$local'
display_value ' make VALIDUS a local file '
get_deadstart_file to=$name(file180) data_conversion=$name(packing)
.EOR
DDSPROC
file170 = 'DDSPROC'
path170 = '&USER&,&AREA&,&SYS&'
packing = 'A6'
file180 = 'ds'
path180 = '$user'
" save ds"
create_system_file f=$fname(path180//'.'//file180) lfn=$name(file180) ..
    fc=legible fs=data p=yes
display_value ' save DS procedure '
get_deadstart_file to=$name(file180) data_conversion=$name(packing)
detach_file $name(file180) status=lpf_ignore_status
change_file_attributes f=$fname(path180//'.'//file180) ..
    ring_attributes=(3,11,11)
"Record that system files are loaded"
DSV$LOADED_B60_SYSTEM_FILES = yes
display_value ' await outstanding task completions '
  wait task_names=(ocf$object_file, cyf$run_time_library)
  wait task_names=(osf$system_library, osf$operator_library)
  cause $task_status(osf$object_file)
  cause $task_status(cyf$run_time_library)
  cause $task_status(osf$system_library)
  cause $task_status(osf$operator_library)
