MIA1 - Execution Script

   #!/bin/sh
   #@(#)VA Pac xxx xxx (R) MIA1 BATCH PROCEDURE
   # * ------------------------------------------------------
   # *      VISUALAGE PACBASE
   # *
   # * ------------------------------------------------------
   # *        PROGRAM GENERATION
   # *
   # * ------------------------------------------------------
   # *
   # Parameter control
   . $PACDIR/system/proc/BVPINIT.ini
   echo ""
   echo "---------------------------------------------------------"
   BVPMSG 1004 "MIA1"
   echo "                        =============="
   BVPMSG 1047 "$BVPBASE"
   BVPMSG 1005 "$PACDIR/config/$1"
   BVPMSG 1006 "$PACTMP"
   BVPMSG 1073 "$PACUSERS"
   BVPMSG 1007 "$PACINPUT"
   echo "---------------------------------------------------------"
   echo ""
   BVPPAUSE
   BVPMKDIR
   # ---------------------------------------------------------
   . $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
   PAC7ME=$PACINPUT
   export PAC7ME
   PAC7MG=ˋBVPENV PACA10 PAC7MG $PACTMP/WMGˋ
   export PAC7MG
   PAC7MV=ˋBVPENV PACA10 PAC7MV $PACTMP/WMVˋ
   export PAC7MV
   BVPMSG 1009 "BVPACA10"
   rtspac BVPACALL BVPACA10
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPACA10"
    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/PACGGK.ini
   . $PACDIR/config/$1/PACGGN.ini
   . $PACDIR/config/$1/PACGGR.ini
   . $PACDIR/config/$1/PACGGU.ini
   PAC7JG=ˋBVPENV PACA20 PAC7JG $PACTMP/WKCˋ
   export PAC7JG
   PAC7KF=ˋBVPENV PACA20 PAC7KF $PACTMP/WKFˋ
   export PAC7KF
   PAC7KU=ˋBVPENV PACA20 PAC7KU $PACTMP/WKUˋ
   export PAC7KU
   PAC7MG=ˋBVPENV PACA20 PAC7MG $PACTMP/WMGˋ
   export PAC7MG
   PAC7W1=ˋBVPENV PACA20 PAC7W1 /dev/nullˋ
   export PAC7W1
   BVPMSG 1009 "BVPACA20"
   rtspac BVPACALL BVPACA20
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPACA20"
    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
   . $PACDIR/config/$1/SQUEL.ini
   PAC7CA=ˋBVPENV PACMM1 PAC7CA $PACTMP/WCAˋ
   export PAC7CA
   PAC7CM=ˋBVPENV PACMM1 PAC7CM $PACTMP/WCMˋ
   export PAC7CM
   PAC7EP=ˋBVPENV PACMM1 PAC7EP $PACTMP/WEPˋ
   export PAC7EP
   PAC7GI=ˋBVPENV PACMM1 PAC7GI /dev/nullˋ
   export PAC7GI
   PAC7GP=ˋBVPENV PACMM1 PAC7GP $PACTMP/WGPˋ
   export PAC7GP
   PAC7JG=ˋBVPENV PACMM1 PAC7JG $PACTMP/WJGˋ
   export PAC7JG
   PAC7KC=ˋBVPENV PACMM1 PAC7KC $PACTMP/WKCˋ
   export PAC7KC
   PAC7KP=ˋBVPENV PACMM1 PAC7KP $PACTMP/WKPˋ
   export PAC7KP
   PAC7G1=ˋBVPENV PACMM1 PAC7G1 $PACTMP/WG1ˋ
   export PAC7G1
   PAC7G2=ˋBVPENV PACMM1 PAC7G2 $PACUSERS/COBOL_MIA1.txtˋ
   export PAC7G2
   PAC7G3=ˋBVPENV PACMM1 PAC7G3 $PACUSERS/CONTROL_COBOL_MIA1.txtˋ
   export PAC7G3
   PAC7WB=ˋBVPENV PACMM1 PAC7WB $PACTMP/WWBˋ
   export PAC7WB
   PAC7WC=ˋBVPENV PACMM1 PAC7WC $PACTMP/WWCˋ
   export PAC7WC
   PAC7WM=ˋBVPENV PACMM1 PAC7WM $PACTMP/WWMˋ
   export PAC7WM
   PAC7WP=ˋBVPENV PACMM1 PAC7WP $PACTMP/WWPˋ
   export PAC7WP
   PAC7W1=ˋBVPENV PACMM1 PAC7W1 $PACTMP/WW1ˋ
   export PAC7W1
   PAC7W2=ˋBVPENV PACMM1 PAC7W2 $PACTMP/WW2ˋ
   export PAC7W2
   PAC7W3=ˋBVPENV PACMM1 PAC7W3 $PACTMP/WW3ˋ
   export PAC7W3
   PAC7W4=ˋBVPENV PACMM1 PAC7W4 $PACTMP/WW4ˋ
   export PAC7W4
   PAC7W5=ˋBVPENV PACMM1 PAC7W5 $PACTMP/WW5ˋ
   export PAC7W5
   PAC7W6=ˋBVPENV PACMM1 PAC7W6 $PACTMP/WW6ˋ
   export PAC7W6
   PAC7IA=ˋBVPENV PACMM1 PAC7IA $PACUSERS/MIA1IA.txtˋ
   export PAC7IA
   BVPMSG 1009 "BVPACMM1"
   rtspac BVPACMM1
   RETURN=$?
   case $RETURN in
   12)
    BVPMSG 1012 "BVPACMM1"
    BVPMSG 1025
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   *)
    ;;
   esac
   # ---------------------------------------------------------
   BVPMSG 1010
   BVPRMTMP
   exit $RETURN

Feedback