Re: if someone might take a look at this

["Joe Teff" <jteff19@xxxxxxx>]

> Hi, i've been struggling w/a pgm & hope
> someone can give me a pointer as to why
> my chain does not yield the proper
> record. the program below has worse
> problems than that, but the chain is
> what i'm most concerned about.
>
> the program is below..
>
> *=comments, trust me :)
>
> Mohammad
>
>
>
> ITMAS     IF   E             DISK

                                 ___   need to have a K to indicate keyed
access

>
> OA0010D   CF   E             WORKSTN
>
>                    EVAL      *IN93=*OFF
>
>                    READ      ITMASR                                 93
>
>      *IN03         DOWEQ     *OFF
>
>                    EXFMT     OA0010D01
>
>                    EXSR      SCRN2
>
>                    ENDDO
>
>      *IN03         IFEQ      *ON
>
>                    EVAL      *INLR=*ON
>
>                    RETURN
>
>                    ENDIF
>
> *                  EXSR      SCRN2
>
> *                  ENDDO
>
>                    EVAL      *INLR=*ON
>
>                    RETURN
>      SCRN2         BEGSR
>                    IF        (FIELD1=*ZEROS) OR (FIELD2=*ZEROS)
>                    EXFMT     OA0010D01
>                    ENDIF
>      FIELD1        CHAIN     ITMASR                             90

             because the file is arrival vs keyed, it is using FIELD1 as the
relative record number

>      *IN90         IFEQ      *OFF
>                    EXFMT     OA0010D02
>                    EVAL      FIELD9=FIELD4+FIELD5+FIELD6+
>                              +FIELD7-FIELD8
>                    EVAL      FIELD4=FIELD2*FIELD3
>                    EVAL      FIELD5=FIELD4*0.03
>                    EVAL      FIELD6=FIELD4*0.08
>                    EVAL      FIELD7=FIELD4*0.07
>                    EVAL      FIELD8=FIELD4*0.02
>                    ENDIF
>                    EXFMT     OA0010D01
>                    ENDSR


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *