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')
