//UNPAXSSD JOB  your job parameters           <== Modify job card
//*
//*  Remember to set CAPS OFF!  
//*
//*===================================================================*
//* User specified Set Symbols
//*===================================================================*
//SETTEMP  SET  TEMPPATH='/tmp/tempdir'       <== Verify Temp Path
//SETUNIT  SET  CARTUNIT='device'             <== Verify Cartridge Unit
//SETDEST  SET  DESTPATH='/destination path'  <== target for depot
//*
//*===================================================================*
//* Set data set name to the value you used to archive the depot 
//*===================================================================*
//*
//SETDSN1 SET  CARTDSN='SAS.SOFTWARE.DEPOT'   <== dataset name on tape
//*
//*===================================================================*
//* Create Directory for paxrst script                                *
//*===================================================================*
//*===================================================================*
//* Uncomment the 2 lines beginning with //MKDIR if you want to create*
//* the directory in the TEMPPATH variable above.  WARNING!   Do NOT  *
//* execute this step if you have any other files in this directory   *
//* as they WILL be deleted!                                          *
//*===================================================================*
//*MKDIR    EXEC PGM=BPXBATCH,DYNAMNBR=20,
//*     PARM='SH rm -rf &TEMPPATH;mkdir &TEMPPATH'
//*
//*===================================================================*
//* Create Script to restore pax file(s)                              *
//*===================================================================*
//GENER    EXEC PGM=IEBGENER
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   DUMMY
//SYSUT1   DD   *
#!/bin/sh
function checkrc
{
  rc=$?
  if test ! "$rc" = "0"
  then
   echo $1
   echo $rc
   exit $rc
  fi
}
mkdir -p $1; rc=$
checkrc 'Mkdir failed.'
cd $1
checkrc 'Unable to change directory path.'
rm -f ebccd.id
touch sassd.txt
checkrc 'Creation of sassd.txt failed.'
/bin/pax -r  -k -f //DD:PAXIN1
echo '010236_td01' >> ebccd.id
checkrc 'Update of ebccd.id failed.'
/bin/pax -r  -k -f //DD:PAXIN2
echo '010236_td02' >> ebccd.id
checkrc 'Update of ebccd.id failed.'
iconv -f ibm-1047 -t utf-8 ebccd.id > cd.id
checkrc 'Convert of ebccd.id failed.'
rm -f ebccd.id
/*
//SYSUT2   DD   PATHOPTS=(OWRONLY,OCREAT),FILEDATA=TEXT,
//      PATHMODE=(SIRUSR,SIWUSR,SIXUSR),
//      PATH='&TEMPPATH/paxrstr.sh'
//*
//*===================================================================*
//* Execute script to restore pax file(s)                             *
//*===================================================================*
//UNPAX    EXEC PGM=BPXBATCH,DYNAMNBR=20,
//     PARM='PGM &TEMPPATH/paxrstr.sh &DESTPATH'
//*
//PAXIN1   DD   DISP=SHR,LABEL=(1,SL),UNIT=(&CARTUNIT,,DEFER),
//      DSN=&CARTDSN1,VOL=SER=(vol100,vol102,vol103)  <== edit volsers
//STDOUT   DD   SYSOUT=*
//STDERR   DD   SYSOUT=*
//STDENV   DD   *
_BPX_SHAREAS=YES
/*
//* End of PAX Unload Job
//