A propos du robot Mapping

UTILISER LES VARIABLES DE ROBOT DANS UN CL

tout déclarer en CHAR et non en numerique Contrairement au splnum La zone est "remplie" complètement (000012 par ex), sur 6 digits, donc ça ne pose pas de problème Copie écran en bref d'un exemple ;-)

       *************** Beginning of data ************************************************************
0001.00              PGM        PARM(&SPLF &CLSPLNUM5 &JOB &JOBNUM &USER +                   070704   
0002.00                           &MAPNAM &MAPSEQ)                                           070704   
0003.00              DCL        VAR(&SPLF) TYPE(*CHAR) LEN(10)                               040624   
0004.00              DCL        VAR(&CLSPLNUM5) TYPE(*CHAR) LEN(5)                           050304   
0005.00              DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)                                040624   
0006.00              DCL        VAR(&JOBNUM ) TYPE(*CHAR) LEN(6)                             040624   
0007.00              DCL        VAR(&USER) TYPE(*CHAR) LEN(10)                               040624   
0008.00              DCL        VAR(&MAPNAM) TYPE(*CHAR) LEN(10)                             070704   
0009.00              DCL        VAR(&MAPSEQ) TYPE(*CHAR) LEN(10)                             070704   
0010.00              DCL        VAR(&OUTQ) TYPE(*CHAR) LEN(10)                               070704   
0011.00                                                                                      091203   
0012.00                                                                                      091203   
0013.00 /* EXECUTION MAPCPYSPLF SPECIF                                              */       091203   
0014.00              MAPCPYSPLF SPLF(&SPLF) SPLNUM(&CLSPLNUM5) JOB(&JOB) +                   091203   
0015.00                           JOBNUM(&JOBNUM) USER(&USER) +                              091203   
0016.00                           MAPNAM(SPECIF) MAPSEQ(00010) OUTQ(TRASH)                   091203   
0017.00                                                                                      091203   
0018.00 /* RECUPERATION DE L'OUTQ DE DESTINATION DANS UNE DTAARA                    */       070704   
0019.00              RTVDTAARA  DTAARA(QTEMP/OUTQ (1 10)) RTNVAR(&OUTQ)                      091203   

+++++++++++++++++++++++++++++++++++++

autres notes

+++++++++++++++++++++++++++++++++++++

LOG DU ROBOT

DSPPFM MAPRBTLOG	<<< Editer LOG
CLRPFM MAPRBTLOG	<<< RAZ LOG

1/ stop robot 2/ DSPDTAQ > vide (cnx au robot= ok)
3/ HLD/RLS sur un spool (14-4)
4/ DSPDTAQ > data (pour MAPQFIND)
5/ HLD MAPQFIND (14-5-5) 
6/ start robot
7/ DSPDTAQ > doit se vider dans => MAPQFIND
8/ vérif MAPQFIND (14-5-5) > data
9/ HLD MAPQMIDDLE
10/ RLS MAPQFIND => data MAPQMIDDLE
11/ RLS MAPQMIDDLE => création $spool

verif etat > wrkactjob

dataq ne démarre pas: créer la OutQ PRT01 dans QGPL

strrbt endrbt (et non en utilisant le menu sinon s'inscrit/s'ajoute dans la DTAQ)

WrkSBS MAPSROBOT

DTAQ

remise a zero: ClrDtaQ
suppression DTAQ: DLTDTAQ
STRRBTDTA: démarrage de la DtaQ qui contient l'instruction de démarrage du robot + les spools passés en état RDY.
renommage bib map400 > modif les jobD (MapDspeed, .... x8)

OBJETS:
SPLMAP
ACTION
ACTLIG

DOSSIER QPJOBLOG

CHGJOBD MAPDMIDDLE	>	4

0 *SECLVL date et heure du spool mappé: rechercher le QPJOBLOG qui correspond (appartient au profil (propriétés) du spool > owner du spool)

DEUX ROBOTS

Si le non du sous-système est différent de MAPSROBOT il est important de renseigner le nom du sous système dans l'option 1 du menu 14 et de créer une Jobd du nom de ce sous système (par copie de la jobd MAPSROBOT en modifiant la liste des bib associé).

Hi Wim,
I think you did not stop the robot before adding the new outqs. That’s the cause of the problem (all the queues are not correctly loaded now).
To restore the robot to a normal behavior, you have to do this:
-	Stop the robot using an ENDSBS command
-	Start the robot using the STRRBT command
Do the same process again (ENDSBS + STRRBT) if the problem is still there.
You can check the list of waiting jobs in the DTAQ objects (in the outq configuration menu 14/4, check the DTAQ(s) defined) : do a DSPDTAARA command. If you see a message containing ENDRBTENDRBTENDRBT….. you have to do the process again.
Regards,
Etienne

dspsysval pour qsyslibl

CHGJOBD JOBD(MAPDspeed) INLLIBL(MAP400V7 QGPL)

JOBD

DSPJOBD MAP400/MAPDROBOT

User profile: MAPPING

Job queue: MAP400/MAPQROBOT

Request data: CALL MAP_C812 '*YES'

Library list: MAP400, QTEMP, QGPL

MAP_833

Liste des paramètres du PGM :

OUTORI > OUTQ d'origine
LIBORI > LIB d'origine
OUTDES > OUTQ de destination
LIBDES > LIB de destination
SPLBON > Relation spool / action encodé en HEX(EBCDIC)
SPLFNAME > Nom du spool
JOBNAME > Nom du job
USERNAME > Nom de l'user
JOBNUM > Numéro du job
SPLFNUM > Numéro du spool
USRDTA > Donnée utilisateur
LOG > Activer la log *YES ou *NO
PRIORITY > Priorité du traitement dans le robot
ACTIONS > Nom de l'action du robot
NBPAGES > Nombre de pages

Exemple :

CALL PGM (MAP_833) PARM('IN' 'MAP400720' 'OUT' 'MAP400720' X'CE1E7C5D9C5C1D3404040......' 'AXESPL' 'QPADEV0009' 'NTURPIN' '571242' '      1' 'TEST' '*YES' 'MAPMIDDLE' 'AXEREAL' '  4306')