Re: External File Format

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

Sure, here's the whole program (it was a simple one time update).

0001.00 FARFILE    UP   F  222        DISK
0002.00
0003.00 D File_DS       E DS                  ExtName(ARFileCR)
0004.00 D                                     Based(File_DS@)
0005.00 D File_DS@        S               *
0006.00
0007.00 IARFile    NS
0008.00 I                                  1  222  ARBuffer
0009.00
0010.00 C                   If        ARID = 'CR' And
0011.00 C                             ARBatN = '0506' And
0012.00 C                             ARWkEn = 510 And
0013.00 C                             ARAgDt = 506
0014.00 C                   Eval      ARBatN = '0306'
0015.00 C                   Eval      ARWkEn = 310
0016.00 C                   Eval      ARAgDt = 306
0017.00 C                   Update    ARFile        File_DS
0018.00 C                   EndIf
0019.00
0020.00 C     *InzSR        BegSR
0021.00 C
0022.00 C                   Eval      File_DS@ = %Addr(ARBuffer)
0023.00 C
0024.00 C                   EndSr

Regards,

Jim Langston

Tom Tufankjian wrote:

> Jim, can I (we) see your final code snipet for this?
>
> I have a similar situation with a flat file containing many record types
> coming from a POS cash register.

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---