COBL
Pour soumettre un JOB d’un JCL (SUB ou SUBMIT)
Après la soumission, Le système donne automatiquement un numéro de JOB (JOBNUM)
Après l’exécution du JOB, le système renvoie un message à l’utilisateur défini dans la carte JOB (NOTIFY=)
Pour voir les résultats, à partir du menu : S ou SDSF
H ou ST
A ce stade, on voit la liste des résultats des jobs soumis avec :
Nom du JOB
Numéro du JOB
La date de traitement
Le code retour (MAX-RC)
Le nombre de lignes
Pour détailler un résultat, ? devant la le JOB concerné :
Le résultat se présente comme suit :
JESMSGLG : la log du traitement
JESJCL : le JCL tel qu’il a été traité
JESYSMSG : messages système, c’est là où on trouve généralement les erreurs de traitement, niveau JCL
1. Pour manipuler les programmes et les fichiers, créer un programme BTSO0001 qui crée un fichier en sortie à partir des éléments de SYSIN, pour cela :
Menu ; 3 ; 4.
Au niveau du DSNAME LEVEL, entrer votre filtre TEST.RDZ.LXXXXXX.* (touche ENTER)
S btso0001 (pour créer le nouveau programme)
Le système donne un nouveau programme :
Dans la pratique, au lieu de retaper tout le programme , on copier le squelette à partir d’un ancien programme existant dans le PDS :
Enter
Enter pour choisir un programme à copier, on va choisir par exemple le programme BCOBFI60. (S devant pour le choisir)
Après ENTER
Le programme est copié, on l’ adapte.
De même pour créer un nouveau JCL.
Page suivante pour voir le détail du programme :
Structure à faire entrer via ACCEPT
01 WS-SYSIN. 02 REFOG PIC 9(6). 02 NOM PIC X(20). 02 SALAIRE-ANNUEL PIC 9(7)V99. 02 DATE-EMB PIC X(10).
Structure du fichier en sortie :
01 ENREG-SORTIE. 02 S-REFOG PIC 9(6) BINARY. 02 S-NOM PIC X(20). 02 S-SALAIRE-ANNUEL PIC 9(7)V99 COMP-3. 02 S-DATE-EMB PIC X(10).
Algo du programme (pas de boucle)
ACCEPT WS-SYSIN
Alimentation des