28 novembre 2012

Mise a jour des références croisées des squelettes par TYBXRBS

Depuis HRv7, une chaîne technique TYBXRBS est mise a disposition pour permettre la mise a jour des références croisées d'un squelette (CALL entre programmes, relations programmes et contextes, liens avec des compteurs de paie). Ces références croisées sont stockées dans les tables RF**.

Cette opération est nécessaire après avoir livré un squelette par copie du fichier (suite à réception d'un patch Hot Line ou d'une personnalisation).


  • Le squelette de la chaîne RBS est présent mais en standard cette dernière n'est pas générée ... 
Faire une RBZ avec *GE01 radical TYBX fichier INTPJA3W.

  • Le script de soumission est manquant lui aussi ... 
Pour en créer un faites : 
cd $SBIN
cp -p execbql execrbs

Editez execrbs et remplacez-y les lignes :

$SIGACS/bin/debutsub "                    ${T_TITRES} EXECBQL "
L_NUMJOB=`grep L_NUMJOB $SIGACS/param/libelle.$MY_LANG|awk -F"#" '{print $2}'|cut -c1-50`
H_NUMJOB=`grep H_NUMJOB $SIGACS/param/libelle.$MY_LANG|awk -F"#" '{print $2}'|cut -c1-50`

Saisie_Param "$L_NUMJOB" "00" "*" "$H_NUMJOB" 2
echo PA7IBQL"         ""$PQ""            "  > $TMP/T160PA.$nupro
cat $TMP/T160PA.$nupro

JOBLOG=`echo "EXECBQL".${PQ}.${JOBLOG} | tr -d " "`
$SIGACS/bin/finsub  EXECBQL

  rm $TMP/T160PA."$nupro"
 
par les suivantes :

$SIGACS/bin/debutsub "                    ${T_TITRES} EXECRBS "
L_
CDMODU=`grep L_CDMODU $SIGACS/param/libelle.$MY_LANG|awk -F"#" '{print $2}'|cut -c1-50`
H_
CDMODU=`grep H_CDMODU $SIGACS/param/libelle.$MY_LANG|awk -F"#" '{print $2}'|cut -c1-50`
Saisie_Param "$L_CDMODU" "" "*" "$H_CDMODU" 3
echo "PA13$CDPLLO"            "  > $TMP/T120PA.$nupro
cat $TMP/T120PA.$nupro

JOBLOG=`echo "EXECRBS".${PQ}.${JOBLOG} | tr -d " "`
$SIGACS/bin/finsub  TYBXRBS
  rm $TMP/T120PA."$nupro"

  • De plus la chaîne TYBXRBS contient une assignation incorrecte. 
Pour être en correspondance avec notre script de soumission, modifiez dans le shell :
SQ=$SKEL/pgm/XXXXX???
    export SQ

en :
SQ=$SKEL/pgm/XXXXX${PQ}
    export SQ 

En attendant un patch HotLine, vous pouvez aussi corriger le squelette JJJJJRBS en modifiant manuellement :
003600*D0SQ       %M1 XXXXX???               %24      P O K R S        7BB500
en :
003600*D0SQ       %M1 XXXXX${PQ}              %24      P O K R S        7BB500

  • Test du script et du shell :
/logi/hrdev/bin> execrbs
                                    Phase EXECRBS

Module name : ?
        CDMODU : Enter your module name (shell, program)
 

Module name : BOP

                                    Phase EXECRBS

Parameters :
PA13PLCLIUNO


Log name : EXECRBS.BOP.hrdev


                Do you want to submit the job (Y/N/T) [N] ? y
 

/logi/hrdev/bin> cat $LOG/EXECRBS.BOP.hrdev
*****************************************************************
*            Job RBS - Triplet UNO (UNIX/ORACLE/DL1)            *
*****************************************************************

JOB : JRBS                            DATE : 2012/11/28 10:18:05

*-------------------------- STEP120N ---------------------------*
*                                                               *
*---------------------------------------------------------------*
*GE01BRF-BBAD0001--------------------------------------------------------------------------------
*GE01BRF-BBAD0002-IDENTIFICATION DU PROGRAMME : BRF/7.000/2012-09-24-13.36.28/F/
*GE01BRF-BBAD0003-DEBUT DE TRAITEMENT   - HORODATAGE DE DEBUT : 2012-11-28-10.18.05
*GE01BRF-BBAD0004-LISTE DES PARAMETRES LUS
*GE01BRF-BBAD0006-....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
*GE01BRF-00000000-PA13PLCLIUNO
*GE01BRF-BBAD0005-LISTE DES PARAMETRES INTERPRETES ET UTILISES
*GE01BRF-BBAD0006-....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
*GE01BRF-00000000-PA13PLCLIUNO
*GE01BRF-BBAC0001-PROGRAMME : BOP  ,  TRIPLET (SYSTEME/MONITEUR/SGBD) : U//O
*GE01BRF-BBAD0008-STATISTIQUES SUR LES FICHIERS (ENREGISTREMENTS LUS/ECRITS)
*GE01BRF-BBAD0009-SQ (SQ) : 000000000011888
*GE01BRF-BBAD0009-RF05 (RF05) : 000000000000001
*GE01BRF-BBAD0009-RF10 (RF10) : 000000000000010
*GE01BRF-BBAD0009-RF20 (RF20) : 000000000000142
*GE01BRF-BBAD0009-RF30 (RF30) : 000000000000010
*GE01BRF-BBAD0009-RF60 (RF60) : 000000000000000
*GE01BRF-BBAD0008-STATISTIQUES SUR LES FICHIERS (ENREGISTREMENTS LUS/ECRITS)
*GE01BRF-BBAD0009-PA (PA) : 000000000000001
*GE01BRF-BBAD0010-*** BRF : FIN NORMALE  - HORODATAGE DE FIN   : 2012-11-28-10.18.07  **** CODE RETOUR 00 ******

ls: /logi/hraccess90/hr9/txt/lis/RBS*.11576: Aucun fichier ou répertoire de ce type
JOB : JRBS                            DATE : 2012/11/28 10:18:07


*---------------------------------------------------------------*
*                          End of job                           *
*---------------------------------------------------------------*

Aucun commentaire:

Enregistrer un commentaire