ERUP - Execution JCL

   #!/bin/sh
   #@(#)Mig RPP (R) ERUP BATCH PROCEDURE
   # * ------------------------------------------------------
   # *      IBM RATIONAL PROGRAMMING PATTERNS (RPP)
   # *
   # * ------------------------------------------------------
   # *             - USER'S ERROR MESSAGES UPDATING -
   # *
   # * ------------------------------------------------------
   # *
   # * THE ERUP PROCEDURE UPDATES THE USER-DEFINED ERROR
   # * MESSAGE FILE. THESE MESSAGES ARE OBTAINED FROM THE
   # * SEQUENTIAL OUTPUT FILE OF THE RPP GENERATION
   # * ERRORLABEL.TXT OR FROM TRANSACTIONS FOR ERROR
   # * MESSAGE DELETIONS AT THE ENTITY LEVEL.
   # *
   # * INPUT :
   # *  -  USER IDENTIFICATION LINE (REQUIRED)
   # *  COL 2  : "*"
   # *  COL 28 : " " OR "F" LANGUAGE CODE
   # *  -  COMMAND LINE :
   # *  COL 1  : "D"    TRANSACTION CODE (DELETION)
   # *  COL 2  :  ENTITY TYPE; SAME AS IN CHOICE FIELD.
   # *            "O "   SCREEN
   # *            "D "   DATA STRUCTURE
   # *            "S "   SEGMENT
   # *  COL 4  : (6 CAR.) ENTITY CODE
   # * ------------------------------------------------------
   # *
   # Parameter control
   . $MIGDIR/system/proc/BVPINIT.ini
   echo ""
   echo "---------------------------------------------------------"
   BVPMSG 1004 "ERUP"
   echo "                        =============="
   BVPMSG 1047 "$BVPBASE"
   BVPMSG 1005 "$PACDIR/config/$1"
   BVPMSG 1006 "$PACTMP"
   BVPMSG 1073 "$PACUSERS"
   BVPMSG 1007 "$PACINPUT"
   echo "---------------------------------------------------------"
   echo ""
   BVPPAUSE
   BVPMKDIR
   # ---------------------------------------------------------
   PAC7LG=ˋBVPENV PTUSGL PAC7LG /dev/nullˋ
   export PAC7LG
   if [ "$PAC7LG" = "/dev/null" ]
   then
    PAC7LG=$PACTMP/WLG
    touch $PAC7LG
   else
    if [ ! -f "$PAC7LG" ]
    then
     BVPMSG 1034 $PAC7LG
     RETURN=1
     BVPRMTMP
     exit $RETURN
    fi
   fi
   PAC7GL=ˋBVPENV PTUSGL PAC7GL $PACTMP/WGLˋ
   EXPORT PAC7GL
   BVPMSG 1009 "BVPTUSGL"
   rtspac BVPTUSGL
   RETURN=$?
   case $RETURN in
   0)
    ;;
   *)
    BVPMSG 1012 "BVPTUSGL"
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   PAC7EM=ˋBVPENV PACL96 PAC7EM \ˋdirname $PACUSERS\ˋ/ERRMSGˋ
   export PAC7EM
   PAC7GL=ˋBVPENV PACL96 PAC7GL $PACTMP/WGLˋ
   export PAC7GL
   PAC7IU=ˋBVPENV PACL96 PAC7IU $PACUSERS/ERUPIUL96.txtˋ
   export PAC7IU
   PAC7IX=ˋBVPENV PACL96 PAC7IX $PACUSERS/ERUPIXL96.txtˋ
   export PAC7IX
   PAC7MB=$PACINPUT
   export PAC7MB
   BVPMSG 1009 "BVPACL96"
   rtspac BVPACL96
   RETURN=$?
   case $RETURN in
   0)
    ;;
   8)
    BVPMSG 1012 "BVPACL96"
    BVPMSG 1014
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   *)
    BVPMSG 1012 "BVPACL96"
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   BVPMSG 1010
   BVPRMTMP
   exit $RETURN

Feedback