> Tech > 12. Pratiquer un retrait homogène.

12. Pratiquer un retrait homogène.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010

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

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 cette ressource

Microsoft 365 Tenant Resilience

Face aux principales failles de résilience des tenants M365 (configurations, privilèges, sauvegarde). Découvrez une approche en 5 piliers pour durcir, segmenter et surveiller vos environnements afin de limiter l’impact des attaques. Comment prioriser vos chantiers cyber et améliorer durablement la résilience de vos tenants Microsoft 365 ?

Les articles les plus consultés

A travers cette chaîne

A travers ITPro

Les plus consultés sur iTPro.fr

Articles les + lus

Coder vite, mais coder juste : trouver l’équilibre à l’ère de l’IA

Mixité dans la Tech : en 2026, un choix de souveraineté stratégique

Analyse Patch Tuesday Mars 2026

Confiance et curiosité : les clés pour entrer (et grandir) en tant que femme dans la tech

Portails développeurs internes : accélérer l’innovation sans alourdir les budgets

A lire aussi sur le site

Forum INCYBER : les 4 lauréats du Prix de la Start-up 2026

Les lauréats de la 13ème édition du Prix de la Start-up cyber sont dévoilés ! En partenariat avec le Groupe Crédit Agricole, le Forum INCYBER distingue les start-ups les plus innovantes dans le domaine de la cybersécurité et de la confiance numérique en Europe.

À la une de la chaîne Tech

Devenir ingénieur en intelligence artificielle

Cette transformation numérique massive redessine les métiers, les compétences et les parcours de formation. Au cœur de cette révolution se trouve l’ingénieur en intelligence artificielle, un expert capable de concevoir des systèmes informatiques qui imitent certaines capacités humaines comme l’apprentissage ou la prise de décision.