VALIDUS
file170 = 'VALIDUS'
path170 = '&USER&,&AREA&,&SYS&'
packing = 'A6'
file180 = 'scrach_validus'
path180 = '$local'
get_deadstart_file to=$name(file180) data_conversion=$name(packing)
display_value ' make VALIDUS a local file '
.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
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)
display_value ' saved DS procedure '
.EOR
OSLIB
file170 = 'OSLIB'
path170 = '&USER&,&AREA&,&SYS&'
packing = 'B56'
"Define variable to record system file loading status"
create_variable DSV$LOADED_B56_SYSTEM_FILES kind=boolean scope=job value=no
create_system_file f=$user.osf$operator_library lfn=osf$operator_library ..
  fc=object fs=library public=no
get_deadstart_file to=osf$operator_library data_conversion=$name(packing)
display_value ' loaded OSLIB to osf$operator_library '
    TASK osf$operator_library
    TASKEND
.EOR
SYSLIB
file170 = 'SYSLIB'
path170 = '&USER&,&AREA&,&SYS&'
packing = 'B56'
create_system_file f=$user.osf$system_library lfn=osf$system_library ..
   fc=object fs=library public=yes
get_deadstart_file to=osf$system_library data_conversion=$name(packing)
display_value ' loaded SYSLIB to osf$system_library '
    TASK osf$system_library
    TASKEND
.EOR
CYBIILB
file170 = 'CYBIILB'
path170 = '&USER&,&AREA&,&SYS&'
packing = 'B56'
create_system_file f=$user.cyf$run_time_library lfn=cyf$run_time_library ..
     fc=object fs=library public=yes
get_deadstart_file to=cyf$run_time_library data_conversion=$name(packing)
display_value ' loaded CYBIILB to cyf$run_time_library '
    TASK cyf$run_time_library
    TASKEND
.EOR
SOPCLIB
file170 = 'SOPCLIB'
path170 = '&USER&,&AREA&,&SYS&'
packing = 'B56'
create_system_file f=$user.osf$operator_command_library ..
     lfn=osf$operator_command_library fc=object fs=library public=no
get_deadstart_file to=osf$operator_command_library dc=$name(packing)
display_value ' loaded SOPCLIB to osf$operator_command_library '
    TASK osf$operator_command_library
    TASKEND
.EOR
SYSCLIB
file170 = 'SYSCLIB'
path170 = '&USER&,&AREA&,&SYS&'
packing = 'B56'
"Record that system files are loaded"
DSV$LOADED_B56_SYSTEM_FILES = yes
create_system_file f=$user.osf$command_library lfn=osf$command_library ..
    fc=object fs=library public=yes
get_deadstart_file to=osf$command_library data_conversion=$name(packing)
display_value ' loaded SYSCLIB to osf$command_library '
    TASK osf$command_library
    TASKEND
"Record that system files are loaded"
DSV$LOADED_B56_SYSTEM_FILES = yes
