imported>Admin : 1 révision importée

2019-03-06T09:11:17Z

1 révision importée

imported>Nturpin le 23 juin 2017 à 09:44

2017-06-23T09:44:33Z

Nouvelle page

;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
<br />
suppression DTAQ: DLTDTAQ
<br />
STRRBTDTA: démarrage de la DtaQ qui contient l'instruction de démarrage du robot + les spools passés en état RDY.
<br />
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)
<br />

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

← Version précédente	Version du 6 mars 2019 à 09:11
(Aucune différence)

A propos du robot Mapping - Historique des versions

imported>Admin : 1 révision importée

imported>Nturpin le 23 juin 2017 à 09:44