RE: worst RPG ever seen?

Got another one.

      *  Turn on Nondisplay indicator for lcdopt and lcdcod 
      *  move "More..." into lcddec                         
     C                     SELEC                            
     C           LINE      WHEQ 1                           
     C                     MOVE *OFF      *IN75             
     C                     Z-ADDRRNLCD    CURSR             
     C           LINE      WHEQ 7                           
     C                     MOVE *ON       *IN75             
     C                     CLEARLCDDSC                      
     C           LCDCOD    SETGTLCD                  40     
     C           *IN40     IFEQ *OFF                        
     C                     MOVE 'More...' LCDDSC            
     C                     ELSE                             
     C                     MOVE 'Bottom ' LCDDSC            
     C                     ENDIF                            
     C                     ENDSL                            
     C                     WRITEDTALCD                      

SFLEND(*MORE) apparently was an alien concept. (*IN75 turns on DSPATRR(HI)
for LCDOPT and makes the option field a nondisplay field)

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 

 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Thursday, March 2, 2006 10:11 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: worst RPG ever seen?

Nope.  Keyed disk file.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Holden Tommy" <Tommy.Holden@xxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/02/2006 10:22 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
RE: worst RPG ever seen?






If myfile is a SFL then that could BE a valid structure if you wanted to
"crawl" through the SFL data...(minus the GOTO TAG garbage that is... 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Thursday, March 02, 2006 8:47 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: worst RPG ever seen?

I've worked with "experienced" RPG programmers who didn't know about
setll 
or read.  If the key was numeric they would do something like
(pseudo code because I've tried to forget fixed format)
x=1
loop tag
x   chain myfile  90
90  GOTO END
  do stuff
  goto loop
end tag

Rob Berendt