TRDQ - Execution JCL

   #!/bin/sh
   #@(#)VA Pac xxx xxx (R) TRDQ BATCH PROCEDURE
   # * ------------------------------------------------------
   # *      VISUALAGE PACBASE
   # *
   # * ------------------------------------------------------
   # *
   # *       CONVERSION OF DBD BLOCKS INTO SQL BLOCKS
   # *
   # * ------------------------------------------------------
   # *
   # Parameter control
   . $PACDIR/system/proc/BVPINIT.ini
   echo ""
   echo "---------------------------------------------------------"
   BVPMSG 1004 "TRDQ"
   echo "                        =============="
   BVPMSG 1047 "$BVPBASE"
   BVPMSG 1005 "$PACDIR/config/$1"
   BVPMSG 1006 "$PACTMP"
   BVPMSG 1073 "$PACUSERS"
   BVPMSG 1007 "$PACINPUT"
   echo "---------------------------------------------------------"
   echo ""
   BVPPAUSE
   BVPMKDIR
   # ---------------------------------------------------------
   PAC7MB=$PACINPUT
   export PAC7MB
   PAC7ME=ˋBVPENV PTUDQ1 PAC7ME $PACTMP/WMBˋ
   export PAC7ME
   BVPMSG 1009 "BVPTUDQ1"
   rtspac BVPTUDQ1
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPTUDQ1"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   . $PACDIR/config/$1/PAC7AE.ini
   . $PACDIR/config/$1/PAC7AN.ini
   . $PACDIR/config/$1/PAC7AR.ini
   . $PACDIR/config/$1/PAC7AY.ini
   . $PACDIR/config/$1/PACGGN.ini
   . $PACDIR/config/$1/PACGGR.ini
   . $PACDIR/config/$1/PACGGU.ini
   PAC7BM=ˋBVPENV PACX PAC7BM $PACTMP/WBMˋ
   export PAC7BM
   PAC7CP=ˋBVPENV PACX PAC7CP /dev/nullˋ
   export PAC7CP
   PAC7DD=ˋBVPENV PACX PAC7DD $PACUSERS/PACXDD.txtˋ
   export PAC7DD
   PAC7ED=ˋBVPENV PACX PAC7ED $PACUSERS/PACXED.txtˋ
   export PAC7ED
   PAC7EE=ˋBVPENV PACX PAC7EE $PACUSERS/PACXEE.txtˋ
   export PAC7EE
   PAC7EG=ˋBVPENV PACX PAC7EG $PACUSERS/PACXEG.txtˋ
   export PAC7EG
   PAC7EM=ˋBVPENV PACX PAC7EM $PACUSERS/PACXEM.txtˋ
   export PAC7EM
   PAC7EP=ˋBVPENV PACX PAC7EP $PACUSERS/PACXEP.txtˋ
   export PAC7EP
   PAC7EQ=ˋBVPENV PACX PAC7EQ $PACUSERS/PACXEQ.txtˋ
   export PAC7EQ
   PAC7ES=ˋBVPENV PACX PAC7ES /dev/nullˋ
   export PAC7ES
   PAC7EU=ˋBVPENV PACX PAC7EU $PACUSERS/PACXEU.txtˋ
   export PAC7EU
   PAC7EZ=ˋBVPENV PACX PAC7EZ $PACUSERS/PACXEZ.txtˋ
   export PAC7EZ
   PAC7GY=ˋBVPENV PACX PAC7GY /dev/nullˋ
   export PAC7GY
   PAC7IA=ˋBVPENV PACX PAC7IA $PACUSERS/PACXIA.txtˋ
   export PAC7IA
   PAC7MA=ˋBVPENV PACX PAC7MA /dev/nullˋ
   export PAC7MA
   PAC7MB=ˋBVPENV PACX PAC7MB $PACTMP/WMBˋ
   export PAC7MB
   PAC7MM=ˋBVPENV PACX PAC7MM $PACTMP/WMMˋ
   export PAC7MM
   PAC7MJ=ˋBVPENV PACX PAC7MJ $PACTMP/WMJˋ
   export PAC7MJ
   PAC7MR=ˋBVPENV PACX PAC7MR $PACUSERS/PACXMRˋ
   export PAC7MR
   PAC7MV=ˋBVPENV PACX PAC7MV $PACTMP/WMVˋ
   export PAC7MV
   PAC7MX=ˋBVPENV PACX PAC7MX $PACUSERS/PACXMXˋ
   export PAC7MX
   PAC7RE=ˋBVPENV PACX PAC7RE $PACTMP/WREˋ
   export PAC7RE
   PAC7RM=ˋBVPENV PACX PAC7RM $PACTMP/WRMˋ
   export PAC7RM
   PAC7RQ=ˋBVPENV PACX PAC7RQ /dev/nullˋ
   export PAC7RQ
   PAC7TD=ˋBVPENV PACX PAC7TD $PACUSERS/PACXTDˋ
   export PAC7TD
   PAC7TE=ˋBVPENV PACX PAC7TE $PACTMP/WTEˋ
   export PAC7TE
   PAC7UE=ˋBVPENV PACX PAC7UE $PACUSERS/PACXUEˋ
   export PAC7UE
   PAC7WD=ˋBVPENV PACX PAC7WD $PACTMP/WWDˋ
   export PAC7WD
   SYSEXT=ˋBVPENV PACX SYSEXT $PACTMP/WSYˋ
   export SYSEXT
   BVPMSG 1009 "BVPACX"
   rtspac BVPACX
   RETURN=$?
   case $RETURN in
   0)
    ;;
   8)
    BVPMSG 1012 "BVPACX"
    BVPMSG 1014
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   4)
    BVPMSG 1012 "BVPACX"
    BVPMSG 1043
    BVPMSG 1010
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   *)
    BVPMSG 1012 "BVPACX"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   PAC7MB=$PACINPUT
   export PAC7MB
   PAC7MV=ˋBVPENV PTUDQ3 PAC7MV $PACUSERS/UPDATESQLˋ
   export PAC7MV
   PAC7MX=ˋBVPENV PTUDQ3 PAC7MX $PACTMP/WMVˋ
   export PAC7MX
   BVPMSG 1009 "BVPTUDQ3"
   rtspac BVPTUDQ3
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPTUDQ3"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   BVPMSG 1010
   BVPRMTMP
   exit $RETURN

Feedback