SAME FILES IN DIFFERENET LIBRARY
2 posters
Page 1 of 1
SAME FILES IN DIFFERENET LIBRARY
I would like to declare same files which are in two libraries in my RPG III. one file in in read only mode and another in update mode.
How can this be done/
Thanks.
Raj
How can this be done/
Thanks.
Raj
rajkumar400- Posts : 59
Join date : 2010-12-25
Re: SAME FILES IN DIFFERENET LIBRARY
I have "EMPMST" file in Lib1 & Lib2.
FEMPMST UF E DISK EXTFILE(FILNAM) USROPN
FEMPMST1 IF E DISK EXTFILE(FILNAM1) RENAME(EMPREC:EMPRE1) USROPN
D FILNAM S 21A
D FILNAM1 S 21A
/FREE
FILNAM = %TRIMR('LIB1')+'/'+'EMPMST';
EXSR FILSR;
FILNAM1= %TRIMR('LIB2')+'/'+'EMPMST';
EXSR FILSR1;
*INLR=*ON;
/END-FREE
C FILSR BEGSR
C //DO YOUR UPDATE HERE//-it works for LIB1/EMPMST
C ENDSR
C FILSR1 BEGSR
C //DO YOUR INQUIRY HERE//-it works for LIB2/EMPMST
C ENDSR
FEMPMST UF E DISK EXTFILE(FILNAM) USROPN
FEMPMST1 IF E DISK EXTFILE(FILNAM1) RENAME(EMPREC:EMPRE1) USROPN
D FILNAM S 21A
D FILNAM1 S 21A
/FREE
FILNAM = %TRIMR('LIB1')+'/'+'EMPMST';
EXSR FILSR;
FILNAM1= %TRIMR('LIB2')+'/'+'EMPMST';
EXSR FILSR1;
*INLR=*ON;
/END-FREE
C FILSR BEGSR
C //DO YOUR UPDATE HERE//-it works for LIB1/EMPMST
C ENDSR
C FILSR1 BEGSR
C //DO YOUR INQUIRY HERE//-it works for LIB2/EMPMST
C ENDSR
soundhar- Posts : 67
Join date : 2010-07-14
Location : Vridhachalam/chennai
Similar topics
» Set the production library in the Library List
» Library in the Library List
» SAME FILE in differenet LIB used in RPG
» Library List
» can we journal the Library?
» Library in the Library List
» SAME FILE in differenet LIB used in RPG
» Library List
» can we journal the Library?
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum