| 
Démarrer le débogage (STRDBG) Indiquez vos choix, puis appuyez sur ENTREE. Programme . . . . . . . . . . . PGM rpgiv11 Bibliothèque . . . . . . . . . + si autres valeurs Programme par défaut . . . . . . DFTPGM *PGM Nb maxi d'instructions trace . . MAXTRC 200 Trace pleine . . . . . . . . . . TRCFULL *STOPTRC MàJ fichiers de production . . . UPDPROD *YES .......................................................................... : la commande STRDBG possède de nouveaux paramètres destinés aux : : programmes ILE (debug avec visualisation de source) : : : : ATTENTION il faut préciser DBGVIEW(*SOURCE) à la compil du pgm. : : : : taille d'un pgm simple: sans 124 416 , avec 147 456 (1/6 en plus) : :........................................................................: Fin F3=Exit F4=Invite F5=Réafficher F10=Autres paramètres F12=Annuler F13=Mode d'emploi invite F24=Autres touches |
|
Démarrer le débogage (STRDBG) Indiquez vos choix, puis appuyez sur ENTREE. Programme . . . . . . . . . . . PGM > RPGIV11 Bibliothèque . . . . . . . . . *LIBL + si autres valeurs *LIBL Programme par défaut . . . . . . DFTPGM *PGM Nb maxi d'instructions trace . . MAXTRC 200 Trace pleine . . . . . . . . . . TRCFULL *STOPTRC MàJ fichiers de production . . . UPDPROD *YES Autres paramètres Afficher source module . . . . . DSPMODSRC *yes Programme de débogage source . . SRCDBGPGM *SYSDFT Bibliothèque . . . . . . . . . Pgm pour msg non intercepté . . UNMONPGM *NONE Bibliothèque . . . . . . . . . F3=Exit F4=Invite F5=Réafficher F12=Annuler F13=Mode d'emploi invite F24=Autres touches |
|
Source d'un module
Programme: RPGIV11 Biblio: AF4SRCT Module: RPGIV11
1 .....H*eywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2 H DATEDIT(*DMY)
3 .....F*ilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++
4 FRPGI11D CF E WORKSTN
5 FFICH1L0 UF E K DISK
6 FFICH2P1 IF E K DISK
7 FFICH1PV UF A E K DISK
8 .....D*ame+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++
9 D SDS
10 D SDSECR 244 253 ############
11 D DATC DS # ROLLUP #
12 D DATVER 6 0 INZ ############
13 Derror s 3 inz('NON')
14 * PGM PRINCIPAL (BOUCLE SUR IMAGE 1)
15 * ==================================
A suivre...
Débogage
F3=Arrêter programme F6=Ajouter/Effacer pt arrêt F10=Pas à pas
F11=Variable F12=Reprendre F24=Autres touches
|
|
Source d'un module Programme: RPGIV11 Biblio: AF4SRCT Module: RPGIV11 16 .....C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+ 17 C # WRITE TITRE <-- ################ 18 C EXFMT F1 # # 19 C DOW *in03 = *OFF # positionnez # 20 C EXSR TRTF1 # le curseur # 21 C EXFMT F1 # sur la # 22 C ENDDO # ligne # 23 C eval *inlr = *on # choisie # 24 * DEBUT DES SOUS PROGRAMMES # puis, F6. # 25 * ========================= # # 26 C TRTF1 BEGSR # . # 27 C CLE CHAIN FICH1FV # # 28 C IF *in65 = *off ################ 29 * ENREGISTREMENT VERROUILLÉ 30 C UNLOCK FICH1PV A suivre... Débogage F3=Arrêter programme F6=Ajouter/Effacer pt arrêt F10=Pas à pas F11=Variable F12=Reprendre F24=Autres touches |
|
Source d'un module Programme: RPGIV11 Biblio: AF4SRCT Module: RPGIV11 16 .....C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+ > 17 C WRITE TITRE 18 C EXFMT F1 19 C DOW *in03 = *OFF 20 C EXSR TRTF1 21 C EXFMT F1 22 C ENDDO 23 C eval *inlr = *on 24 * DEBUT DES SOUS PROGRAMMES 25 * ========================= 26 C TRTF1 BEGSR 27 C CLE CHAIN FICH1FV 28 C IF *in65 = *off 29 * ENREGISTREMENT VERROUILLÉ 30 C UNLOCK FICH1PV A suivre... Débogage F3=Arrêter programme F6=Ajouter/Effacer pt arrêt F10=Pas à pas F11=Variable F12=Reprendre F24=Autres touches Point d'arrêt ajouté à la ligne 17. # |
|
Gestion de tous les fichiers spoule Indiquez vos options, puis appuyez sur ENTREE. 1=Envoyer 2=Modifier 3=Suspendre 4=Supprimer 5=Afficher 6=Libérer 7=Messages 8=Attributs 9=Gérer l'état d'impression Unité ou Total Pg en Nb Opt Fichier Utilisat file Référence Etat pages cours ex RPGIV11 AF400CM WAF400 RDY 12 1 £PFCST AF400CM PRT03 V3R10TXT RDY 7 1 ################################################################# # # # Avec F12, vous retrouvez l'écran précédent, vous pouvez # # lancer le programme. # ################################################################# Fin Paramètres pour les options 1, 2, 3 ou commande ===> call rpgiv11 F3=Exit F10=Vue 3 F11=Vue 2 F12=Annuler F22=Imprimantes F24=Autres touches |
|
Source d'un module Programme: RPGIV11 Biblio: AF4SRCT Module: RPGIV11 16 .....C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+ 17 C WRITE TITRE 18 C EXFMT F1 ################# 19 C DOW *in03 = *OFF # # 20 C EXSR TRTF1 # au point # 21 C EXFMT F1 # d'arret # 22 C ENDDO # vous # 23 C eval *inlr = *on # retrouvez # 24 * DEBUT DES SOUS PROGRAMMES # cet écran # 25 * ========================= # # 26 C TRTF1 BEGSR # # 27 C CLE CHAIN FICH1FV # # 28 C IF *in65 = *off ################# 29 * ENREGISTREMENT VERROUILLÉ 30 C UNLOCK FICH1PV A suivre... Débogage F3=Arrêter programme F6=Ajouter/Effacer pt arrêt F10=Pas à pas F11=Variable F12=Reprendre F24=Autres touches Point d'arrêt à la ligne 17. # |
|
Source d'un module Programme: RPGIV11 Biblio: AF4SRCT Module: RPGIV11 16 .....C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+ 17 C WRITE TITRE 18 C EXFMT F1 ################# 19 C DOW * # 3 = *OFF # # 20 C EXSR TRTF1 # vous pouvez # 21 C EXFMT F1 # désigner une # 22 C ENDDO # variable # 23 C eval *inlr = *on # à l'aide du # 24 * DEBUT DES SOUS PROGRAMMES # curseur et # 25 * ========================= # appuyer sur # 26 C TRTF1 BEGSR # F11. # 27 C CLE CHAIN FICH1FV # # 28 C IF *in65 = *off ################# 29 * ENREGISTREMENT VERROUILLÉ 30 C UNLOCK FICH1PV A suivre... Débogage F3=Arrêter programme F6=Ajouter/Effacer pt arrêt F10=Pas à pas F11=Variable F12=Reprendre F24=Autres touches # |
|
Source d'un module Programme: RPGIV11 Biblio: AF4SRCT Module: RPGIV11 16 .....C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+ 17 C WRITE TITRE 18 C EXFMT F1 19 C DOW *in03 = *OFF 20 C EXSR TRTF1 21 C EXFMT F1 22 C ENDDO 23 C eval *inlr = *on 24 * DEBUT DES SOUS PROGRAMMES 25 * ========================= 26 C TRTF1 BEGSR 27 C CLE CHAIN FICH1FV 28 C IF *in65 = *off 29 * ENREGISTREMENT VERROUILLÉ 30 C UNLOCK FICH1PV A suivre... Débogage F3=Arrêter programme F6=Ajouter/Effacer pt arrêt F10=Pas à pas F11=Variable F12=Reprendre F24=Autres touches *IN03 = '0' <---* # |
|
Quelques commandes du Debug : Attr : permet de visualiser la définition d'une variable Eval : permet de 1/ voir le contenu d'une variable [eval nbr] 2/ changer le contenu d'une variable [eval nbr = 1] Break : définition d'un point d'arret Step : définition de critères de saut (un arret tous les x passages) find : recherche 1/ d'une chaîne de caractère. 2/ d'un numéro d'instructions. F14 permet de gérer la liste des modules à mettre au point F16 Autorise ou non la mise à jour des fichiers de production F21 affiche une ligne de commande F1 affiche l'aide qui est trés détaillée |
