Re: Is there a Dup key ?

[Booth Martin <booth@xxxxxxxxxxxx>]

Wow, a lot of good information  Thanks everyone.  It works, it is easy 
to implement, and the users love it.  We will be doing more dup keys on 
subfile input in the future, you betcha.

Here's what I did, if anyone ever follows this thread from the archives.

On the subfile fields that are input capable I added the keyword DUP(nn) 
where nn is a unique indicator for that field.
In the RPG program I defined work field(s) LIKE(the screen field(s))
Immediately following the exfmt opcode I exsr a subroutine for the dup key.

The subroutine
Clears the workfields (Just in case the user duplicates field(s) on SFL 
record 1)
Does a for loop
Chain for the next subfile record.
If the DUP(nn) indicator is on then
Eval the screen field with the value in the corresponding saved field.
Update the subfile
End the if
Eval the saved work field with the current value in the screen field
Endfor

Also, for the users I added the comment "(Shift-insert = Dup field)" on 
the footer record.  No need to map that key, its already mapped as the 
dup key.



Jeff Young wrote:
> The DUP keyword is a field level keywork valid at all levels.
> What this does is return an indicator to the program indication that the DUP key had been pressed for this key.  It was up to the programmer to determine what action to take.
> Usualy, if a field was going to be available for "DUP", the last value for that field would be saved and when the DUP indicator was received, the program would move the last value into the field.
>
> hth,
>  
> Jeff Young 
> Sr. Programmer Analyst
> IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2 
> IBM  Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
> IBM  Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3 
>   
>  
>
>
>
>
>
>
> ________________________________
> From: Alan Shore <AlanShore@xxxxxxxx>
> To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
> Sent: Wed, November 18, 2009 11:36:20 AM
> Subject: Re: Is there a Dup key ?
>
>
> Hi Booth
> I know you can use the DUP command within DDS, but I don't think this is
> available within a subfile
>
>
>
> Alan Shore
> Programmer/Analyst, Distribution
> E:AShore@xxxxxxxxxxx
> P:(631) 200-5019
> C:(631) 880-8640
> "If you're going through Hell, keep going" - Winston Churchill
>
>
>                                                                       
>             Booth Martin                                              
>             <booth@xxxxxxxxxx                                        
>             om>                                                        To
>             Sent by:                  Midrange Systems Technical      
>             midrange-l-bounce        Discussion                      
>             s@xxxxxxxxxxxx            <midrange-l@xxxxxxxxxxxx>      
>                                                                         cc
>                                                                       
>             11/18/2009 11:07                                      Subject
>             AM                        Is there a Dup key ?            
>                                                                       
>                                                                       
>             Please respond to                                        
>             Midrange Systems                                          
>                 Technical                                            
>                 Discussion                                            
>             <midrange-l@midra                                        
>                 nge.com>                                              
>                                                                       
>                                                                       
>
>
>
>
> I just had a request that stirs the dust balls in my brain.  Maybe
> there really is a solution and I am just not thinking clearly.
>
> He remembers his old terminal had a dup key where he could duplicate
> fields.  He now has a subfile of 5 input capable fields and quite often
> wants to duplicate the value from the field above.
>
> Is this reasonably possible?
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>