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.