Re: Last Record in Sequential File

I don't think this will work properly, when deleted records are still in the 
PF. Only with rorganized PFs this will work.

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 24-3-05 at 21:33 Billy Rowe wrote:

>Another method is like below, although the *end method is self 
>documenting, anyway it's a method I used years ago to retrieve
>the last record from batches of data imported from a UNIX box:
>
>      FFileName  if   f 1024        disk    InfDS( OpnFBK )
>.............
>      D OpnFBK          DS
>       * This is the number of records in file.
>      D LstRecNum             156    159I 0
>.............
>       * Program initialization subroutine
>      C     *INZSR        BEGSR
>      ?* Retreive batch number from trailer record, It will be the
>      ?* 10 bytes following the 2nd 'TAB' character.
>      C     LstRecNum     chain     FileName
>
>      C                   Do        2
>      C                   Eval      WrkPos = %Scan( @Tab :@ImpRec: 
>
>      C                                                   WrkPos+1 )
>      C                   EndDo
>
>      C                   Eval      BatchNbr = %Subst( @ImpRec : WrkPos+1
>      C                                                        : 10 )
>
>      ?* Position file cursor to before 1st record.
>      C     1             SetLL     FileName
>
>      C                   EndSr