Comments on: Error handling in as/400 subfile options

By: Featured Member: Splat - ITKE Community Blog

Featured Member: Splat - ITKE Community Blog — Thu, 05 May 2011 06:51:37 +0000

[...] Error handling in AS/400 subfile options [...]

By: tomliotta

tomliotta — Fri, 22 Apr 2011 21:08:43 +0000

The code shows *in40 as a result of the READC:

Unfortunately, it doesn’t make clear if it’s for ER or for EOF. But the %EOF() BIF is used in other statements; so we could think that it must be used as the error indicator, which, I suppose could somehow be used with SFLNXTCHG.

If it’s the EOF indicator, then it doesn’t seem to serve any purpose and can be removed.

Tom

By: pgmbob

pgmbob — Fri, 22 Apr 2011 16:36:11 +0000

@PGMBOB
Caution using 40 on READC AND SFLNXTCHG.

Could you elaborate?
Yes: The code shows *in40 as a result of the READC:
ReadC RMA02S1 40
Dow Not %Eof

*in40 is ALSO being used to condition SFLNXTCHG.

I prefer using a different indicator for the results of READC

By: tomliotta

tomliotta — Fri, 22 Apr 2011 02:20:52 +0000

…i m using sflnxtchg indicator 40 in readc…

And this confuses indicator 40 even more.

Tom

By: tomliotta

tomliotta — Fri, 22 Apr 2011 02:19:26 +0000

I used indicator for reverse image as 51-option

Please show us how it was used. The DDS is needed.

The OPT field is apparently an ‘I’nput field. Are you also using CHGINPDFT? Are you using ERRMSG() or ERRMSGID()? Are you conditioning DSPATR(RI)? Are you using a program-to-system field?

Without seeing the DDS for the subfile, we can’t know what the display file is doing.

As for indicator 40 on the READC, it seems to serve no purpose.

Tom

By: koohiisan

koohiisan — Fri, 22 Apr 2011 01:25:41 +0000

@PGMBOB
Caution using 40 on READC AND SFLNXTCHG.

Could you elaborate?

By: pgmbob

pgmbob — Thu, 21 Apr 2011 19:16:38 +0000

Caution using 40 on READC AND SFLNXTCHG.

By: tomliotta

tomliotta — Wed, 20 Apr 2011 21:13:17 +0000

What does your subfile DDS look like?

Tom

By: splat

splat — Wed, 20 Apr 2011 14:43:38 +0000

Try this instead:

ReadC RMA02S1 40
Dow Not %Eof
Eval *In51 = *Off

Select
When OPT = ‘2′
ExSr Change

When OPT = ‘4′
ExSr Delete

When OPT = ‘6′

ExSr PRINT

When OPT = ‘ ‘

Other
Eval erropt = ‘Enter Valid Options’
Eval *In51 = *On
EndSL

Update RMA02S1
ReadC RMA02S1 40

EndDo

By: teandy

teandy — Tue, 19 Apr 2011 19:59:50 +0000

Use the following as an example:

FADP0006FM CF   E             WORKSTN INFDS(WSINFDS)       
F                                     INDDS(INDICATORS)    
F                                     SFILE(ADP000601:RRN) 

 ********************************************************************** 
 *  INDICATOR DATA STRUCTURE BECAUSE OF THE INDARA COMMAND IN DSP FILE  
 ********************************************************************** 
D INDICATORS      DS                                                    
D  PLUS_CODE_ERROR...                                                   
D                        25     25N   INZ(*OFF)                         


READC ADP000601;                                        
                                                        
DOW NOT %EOF(ADP0006FM);                                
                                                        
  IF SFLSEL <> '2' AND SFLSEL <> '4' AND SFLSEL <> ' '; 
                                                        
    IDX = 1;                                            
    PLUS_CODE_ERROR = *ON;                              
    EXSR DSPERROR;                                      
    SUBFILE_NXT_CHG = *ON;                              
    SFPAGE = RRN;                                       
    UPDATE ADP000601;                                   
                                                        
    LEAVE;