ERLD - JCL d'exécution

   #!/bin/sh
   #@(#)Mig RPP (R) ERLD BATCH PROCEDURE
   # * ------------------------------------------------------
   # *      IBM RATIONAL PROGRAMMING PATTERNS (RPP)
   # *
   # * ------------------------------------------------------
   # *             - LOADING OF USER'S ERROR MESSAGES -
   # *
   # * ------------------------------------------------------
   # *
   # * THE ERLD PROCEDURE PERFORMS THE INITIAL LOADING OF USER
   # * DEFINED ERROR MESSAGES. THESE MESSAGES ARE OBTAINED
   # * FROM THE SEQUENTIAL OUTPUT FILE 'ERRORLABEL.TXT'
   # * RESULT OF RPP GENERATION (SIMILAR TO PAC GL FILE).
   # *
   # *
   # * INPUT :
   # *  -  USER IDENTIFICATION LINE (REQUIRED)
   # *  COL 2  : "*"
   # *  COL 28 : " " OR "F" LANGUAGE CODE
   # * ------------------------------------------------------
   # *
   # Parameter control
   . $MIGDIR/system/proc/BVPINIT.ini
   echo ""
   echo "---------------------------------------------------------"
   BVPMSG 1004 "ERLD"
   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 PACL94 PAC7EM \ˋdirname $PACUSERS\ˋ/ERRMSGˋ
   export PAC7EM
   PAC7GL=ˋBVPENV PACL94 PAC7GL $PACTMP/WGLˋ
   export PAC7GL
   PAC7IY=ˋBVPENV PACL94 PAC7IY $PACUSERS/ERLDIYL94.txtˋ
   export PAC7IY
   PAC7MB=$PACINPUT
   export PAC7MB
   BVPMSG 1009 "BVPACL94"
   rtspac BVPACL94
   RETURN=$?
   case $RETURN in
   0)
    ;;
   8)
    BVPMSG 1012 "BVPACL94"
    BVPMSG 1014
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   *)
    BVPMSG 1012 "BVPACL94"
    BVPERR
    BVPRMTMP
    exit $RETURN
    ;;
   esac
   # ---------------------------------------------------------
   BVPMSG 1010
   BVPRMTMP
   exit $RETURN

Vos commentaires