bonjour à tous.
Je developpe un petit programme applicatif sous Z/OS - CICS en utilisant un écran formaté ( par BMS ).
Mes nom de map sont imposés par le cahier des charges: mapxxxx
J'ai donc, dans ma working-storage section, un:
Dans un soucis de clareté du code, j'aimerais redefinir mon nom de map.
Code : Sélectionner tout - Visualiser dans une fenêtre à part COPY MAPXXXX.
Commençons par un simple:
ainsi mes CICS SEND MAP et CICS REVEIVE MAP sont plus compréhensibles.
Code : Sélectionner tout - Visualiser dans une fenêtre à part 01 m-creation PIC X(7) VALUE 'MAPXXXX'.
Poursuivant ainsi, le drame .... comment redéfinir mes MAPXXXXI et MAPXXXXO alors que je ne connais pas la taille de ces structures ? ( j'utilise MOVE LOW-VALUE TO MAPXXXXO dans ma PROCEDURE DIVISION. )
Suis-je obligé de passer un coup de pré-compilateur pour connaitre et mettre 'en dur' la taille de mes structures données par BMS lors d'un REDEFINES ?
Pour l'instant je me contente d'un petit commentaire:
Code : Sélectionner tout - Visualiser dans une fenêtre à part * A faire: Modifier dans le code les 'mapxxxxI' et 'mapxxxxO'
Merci de l'aide que vous pourrez m'apporter
Partager