Re: Message Subfile

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

Michael,

SDS_PROC will have the procedure or programme name. Use another field in the 
DDS and move the value '*' into it at initialization.. 

Thus:

In DDS (in SFL and SFLCTL)
A            MYPGMQ                  SFLPGMQ

in RPG III
C               MOVE '*'                MYPGMQ

in RPG IV
C               Eval    MYPGMQ = '*'

Regards,
Carel Teijgeler


*********** REPLY SEPARATOR  ***********

On 15-2-05 at 14:21 Ala, Michael A wrote:

>D-spec from Program Supplying value to SDS_PROC
>
>D PDS            SDS
>
>D  SDS_PROC         *PROC
>Procedure Name 
>
>
> A          R MSGSFL                    SFL                          
> A                                      SFLMSGRCD(24)                
> A            MSGKEY                    SFLMSGKEY                    
> A            SDS_PROC                  SFLPGMQ                      
> A*%%                                                                
> A          R MSGCTL                    SFLCTL(MSGSFL)               
> A*%%TS  SD  20050210  080935  PGMRMI      REL-V5R1M0  5722-WDS      
> A                                      SFLDSP                       
> A                                      SFLDSPCTL                    
> A                                      SFLINZ                       
> A                                      SFLSIZ(0002)                 
> A                                      SFLPAG(0001)                 
> A N39                                  SFLEND                       
> A            SDS_PROC                  SFLPGMQ                      
>
>-- 
>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
>To post a message email: RPG400-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>or email: RPG400-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/rpg400-l.