DDS in ILE RPG

[Frank Hildebrandt]

Das Ganze kann man auch ohne CL-Befehle (OVRDBF) variabel gestalten. Hier ein Beispiel.

fQDDSSRC   O    F   92        Disk    UsrOpn                                                    
f                                     ExtFile(MyFile)                                           
f                                     ExtMbr(MyMbr)                                             
 *                                                                                              
dQDDSSRCRF        DS            92                                                              
d SRCSEQ                         6A                                                             
d SRCDAT                         6A                                                             
d SRCDTA                        80A                                                             
 *                                                                                              
dMyFile           S             21A                                                             
dMyMbr            S             10A                                                             
 *                                                                                              
c                   Eval      MyFile = 'LIB/FILE'                          oder MyFile = 'FILE' 
c                   Eval      MyMbr = 'MBR'                                                     
c                   Open      QDDSSRC                                                           
c                   Write     QDDSSRC       QDDSSRCRF                                           
c                   Close     QDDSSRC 

[Squall]

Das Ganze kann man auch ohne CL-Befehle (OVRDBF) variabel gestalten. Hier ein Beispiel.

fQDDSSRC   O    F   92        Disk    UsrOpn                                                    
f                                     ExtFile(MyFile)                                           
f                                     ExtMbr(MyMbr)                                             
 *                                                                                              
dQDDSSRCRF        DS            92                                                              
d SRCSEQ                         6A                                                             
d SRCDAT                         6A                                                             
d SRCDTA                        80A                                                             
 *                                                                                              
dMyFile           S             21A                                                             
dMyMbr            S             10A                                                             
 *                                                                                              
c                   Eval      MyFile = 'LIB/FILE'                          oder MyFile = 'FILE' 
c                   Eval      MyMbr = 'MBR'                                                     
c                   Open      QDDSSRC                                                           
c                   Write     QDDSSRC       QDDSSRCRF                                           
c                   Close     QDDSSRC 

Ah vielen Dank für das Beispiel.