*FOR READING AND WRITING THE DATA AREA IN AS400/RPG.
D* LOCAL DATA AREA DATA STRUCTURE
D LDADS DS
D LDB 4 5
D LFNAM 81 90
D LFTRN 102 102
D LETP 105 105
D LPRD 108 108
************************************************************************************
C *DTAARA DEFINE *LDA LDADS
C IN LDADS READ LDA
C*Change Lda variable using program variable
C OUT LDADS WRITE LDA
D* LOCAL DATA AREA DATA STRUCTURE
D LDADS DS
D LDB 4 5
D LFNAM 81 90
D LFTRN 102 102
D LETP 105 105
D LPRD 108 108
************************************************************************************
C *DTAARA DEFINE *LDA LDADS
C IN LDADS READ LDA
C*Change Lda variable using program variable
C OUT LDADS WRITE LDA
No comments:
Post a Comment