en v6r1 il semble impossible d'affecter les valeurs des zones d'une DS sous cette forme
Code : Tout sélectionner
D WrkMECANDS DS
D WrkmnANOPECU 4S 0 OVERLAY(WrkMECANDS)
D WrkmnNROPECU 9S 0 OVERLAY(WrkMECANDS: *Next)
D WrkmnCDSUPCU 2A OVERLAY(WrkMECANDS: *Next)
D WrkmnNRSUPCU 9S 0 OVERLAY(WrkMECANDS: *Next)
D WrkmnLBSUPCU 50A OVERLAY(WrkMECANDS: *Next)
D WrkmnDTDEBVL 10A OVERLAY(WrkMECANDS: *Next)
D WrkmnDTFINVL 10A OVERLAY(WrkMECANDS: *Next)
(...)
C/EXEC SQL
C+ DECLARE MECAN_CURSOR CURSOR FOR
C+ SELECT ANOPECU, NROPECU, CDSUPCU, NRSUPCU, LBSUPCU,
C+ DTDEBVL, DTFINVL
C+ FROM CDSUPCUP0 SUP
C+ WHERE SUP.CDOPESI = :CD3450CDOPESI
C+ FOR READ ONLY
C/END-EXEC
(...)
C/EXEC SQL
C+ FETCH MECAN_CURSOR
C+ INTO :WrkMECANDS
C/END-EXEC
Nota : cela se passait bien en V5R4.
Avez vous déjà confronter à ce problème ?
S'agit il d'un bug de la commande CRTSQLRPI en V6R1 ?
merci pour votre participation.
cordialement.