Décalez de deux espaces les commandes à exécuter dans un groupe DO, y compris aux groupes V5R3 associés à DOUNTIL, DOWHILE et DOFOR. Si la commande DO est exécutée comme résultat d’un test (comme IF, ELSE, WHEN, OTHERWISE), décalez le groupe par rapport au test original. Cette manière de grouper
12. Pratiquer un retrait homogène.

les instructions montre plus clairement lesquelles appartiennent au groupe DO :
If (&Action = ‘A’) Do
Call PgmA
Enddo
Dofor &Int From(0) To(9)
Chgvar &Offset ((&Int * 10) + 1)
Chgvar &Outq (%Substring(&Dta &Offset 10))
Enddo
Décaler les commandes MONMSG du niveau commande par rapport à leur commande associée. Pour les groupes DO exécutés par les commandes MONLSG du niveau commande, déclarer les groupes par rapport à la commande MONMSG :
Rcvmsg Msgtype(*Last) Msg(&Msg)
MonMsg CPF0000
Quand une instruction IF a une instruction ELSE associée, aligner ELSE sur IF. Aligner ENDDO avec l’instruction initiale qui a commencé le groupe.
Téléchargez gratuitement cette ressource

Guide de Services Cloud Managés
Accélérer votre transformation digitale, protéger et sécuriser vos environnements Cloud avec les offres de support, d'accompagnement et de services managés. Découvrez le TOP 3 des Services Managés pour accompagner la transformation de vos environnements Cloud, gagner en agilité et en sécurité dans un monde d'incertitudes.
Les articles les plus consultés
Les plus consultés sur iTPro.fr
- Cohésion d’équipe & Collaboration numérique : un duo gagnant ?
- Cyber espionnage – Les pirates russes APT29 utilisent les services de stockage en ligne, DropBox et Google Drive
- SEKOIA : de l’intelligence sur les menaces jusqu’à l’automatisation de la réponse !
- Les managers face à l’impact du télétravail
- A la découverte de Keda dans Kubernetes
