/begin-procedure log=*a,par=*y(proc-par=(                              -
/        &INBUILD=TRM.V761.TNMNAT31.BUILD,                              -
/        &INDDE=TRM.V761.DDE,                                          -
/        &INTNMF=TRM.V761.TNMFILE,                                     -
/        &OUTBUILD=TRMTNM.BUILD,                                       -
/        &OUTDDE=TRMTNM.DDE,                                           -
/        &OUTTNMF=TRMTNM.TNMFILE,                                      -
/        ))
/REMARK -------------------------------------------------------------*
/REMARK This proc loads the files from the TRM install tape to disk.
/REMARK &&INBUILD - The name of the build file.
/REMARK &&INDDE   - The name of the NATLOAD file
/REMARK &&OUTBUILD - The name of disk build file to be created.
/REMARK &&OUTDDE - The name of NATLOAD file to be created.
/REMARK -------------------------------------------------------------*
/assign-syslst p.trmloadt.lst
/mod-job-opt logging=*par(listing=*y)
/assign-sysdta *syscmd
/REMARK -------------------------------------------------------------*
/REMARK ----  Delete the files we create
/REMARK -------------------------------------------------------------*
/delete-file   file-name=&OUTBUILD
/set-job-step
/delete-file   file-name=&OUTDDE
/set-job-step
/REMARK -------------------------------------------------------------*
/REMARK ----  Copy the BUILD file from tape to disk
/REMARK -------------------------------------------------------------*
/create-file   file-name=&OUTBUILD,                                    -
/              support=*public-disk(space=*relative(primary-alloc=50,  -
/              secondary-alloc=50))
/add-file-link link-name=PCOUT,file-name=&OUTBUILD,                    -
/              open-mode=*output,record-format=*var,                   -
/              record-size=32760,buffer-length=*std(16),               -
/              access-method=*sam
/imp-file sup=*TAPE(vol=TRM761,dev-type=TAPE-C1,f-name=&INBUILD)
/add-file-link link-name=PCIN,file-name=&INBUILD,                      -
/              open-mode=*input,close-mode=*leave,                     -
/              record-format=*by-cat,record-size=*by-cat,              -
/              buffer-length=*by-cat,                                  -
/              sup=*tape(f-seq=1)
/start-percon
//assign-input-file  file=*tape-file,link-name=PCIN
//assign-output-file link-name=PCOUT
//end
/REMARK -------------------------------------------------------------*
/REMARK ----  Copy the DDE file from tape to disk
/REMARK -------------------------------------------------------------*
/create-file   file-name=&OUTDDE,                                      -
/              support=*public-disk(space=*relative(primary-alloc=50,  -
/              secondary-alloc=50))
/add-file-link link-name=PCOUT,file-name=&OUTDDE,                      -
/              open-mode=*output,record-format=*var,                   -
/              record-size=9996,buffer-length=*std(16),                -
/              access-method=*sam
/imp-file sup=*TAPE(vol=TRM761,dev-type=TAPE-C1,f-name=&INDDE)
/add-file-link link-name=PCIN,file-name=&INDDE,                        -
/              open-mode=*input,close-mode=*leave,                     -
/              record-format=*by-cat,record-size=*by-cat,              -
/              buffer-length=*by-cat,                                  -
/              sup=*tape(f-seq=1)
/start-percon
//assign-input-file  file=*tape-file,link-name=PCIN
//assign-output-file link-name=PCOUT
//end
/REMARK -------------------------------------------------------------*
/REMARK ----  Copy the TNMFILE file from tape to disk
/REMARK -------------------------------------------------------------*
/create-file   file-name=&OUTTNMF,                                     -
/              support=*public-disk(space=*relative(primary-alloc=50,  -
/              secondary-alloc=50))
/add-file-link link-name=PCOUT,file-name=&OUTTNMF,                     -
/              open-mode=*output,record-format=*var,                   -
/              record-size=9996,buffer-length=*std(16),                -
/              access-method=*sam
/imp-file sup=*TAPE(vol=TRM761,dev-type=TAPE-C1,f-name=&INTNMF)
/add-file-link link-name=PCIN,file-name=&INTNMF,                       -
/              open-mode=*input,close-mode=*leave,                     -
/              record-format=*by-cat,record-size=*by-cat,              -
/              buffer-length=*by-cat,                                  -
/              sup=*tape(f-seq=1)
/start-percon
//assign-input-file  file=*tape-file,link-name=PCIN
//assign-output-file link-name=PCOUT
//end
/remove-file-link link-name=PCIN,unload-released-tape=*yes
/remove-file-link link-name=PCOUT
/set-job-step
/assign-sysdta *prim
/assign-syslst *prim
/end-procedure