Trucs et Astuces - AS400 - Tips and Tricks

page d'accueil   Boite à outils

 

BATCH DEBUG Table des matières

Pour debogguer un programme batch, il faut

  1. l'interrompre au bon moment
  2. utiliser depuis un autre travail STRSRVJOB et STRDBG

le plus difficile, c'est l'étape 1.

cette solution permet d'y arriver :

  1. avoir une bibliothèque devant celle du programme à débogguer
  2. y compiler un programme de même nom que le programme à debogguer sur la base ci-dessous

la liste et la déclaration des paramètres doit être conforme à celle du programme à débogguer

             PGM        PARM(&UnParm)
             DCL        VAR(&KEY) TYPE(*CHAR) LEN(4)
             DCL        VAR(&REPLY) TYPE(*CHAR) LEN(1)
             DCL        VAR(&REPLY_LEN) TYPE(*DEC) LEN(5 0)
             DCL        VAR(&UnParm) TYPE(*CHAR) LEN(70)
/*  CHECK WITH USER BEFORE GOING FURTHER. */
LOOP:
/*  USE THE SNDPGMMSG COMMAND TO SEND THE INQUIRY MESSAGE. */
             SNDPGMMSG  MSG('THIS PROGRAM IS ABOUT TO DO SOMETHING. +
                          CONTINUE (Y OR N)?') TOMSGQ(*SYSOPR) +
                          MSGTYPE(*INQ) RPYMSGQ(*PGMQ) KEYVAR(&KEY)

/*  USE THE RCVMSG COMMAND ALONG WITH THE MESSAGE KEY    +
           RETURNED BY THE SNDPGMMSG COMMAND TO WAIT FOR AND   +
           RECEIVE THE USER'S REPLY. */
             RCVMSG     MSGTYPE(*RPY) MSGKEY(&KEY) WAIT(*MAX) +
                          RMV(*NO) MSG(&REPLY) MSGLEN(&REPLY_LEN)
/*  CHECK MESSAGE LENGTH. */

             IF         COND(&REPLY_LEN < 1) THEN(GOTO CMDLBL(FIN))

             IF         COND(&REPLY = 'Y') THEN(CALL +
                          PGM(Bibliotheque/Programme) PARM(&UnParm))
 FIN:        ENDPGM

Quand le travail batch se met à interroger QSYSOPR, agir :

This tool is a free source text; you can redistribute it and/or modify it as much as you need. Just add as comment in the code a reference to this site : http://jplamontre.free.fr/jpltools.htm ... and send me an email Contactwith "jpltools" in the subject (it's for my antispam rules). I will be happy to learn what you have done with the jpltools. This tool is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY :

THIS TOOLBOX IS PROVIDED ''AS IS'' AND ANY EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PROVIDER OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT  OF THE USE OF THIS TOOLBOX, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.