Re: Why not update in batch - part two

[Booth Martin <booth@xxxxxxxxxxxx>]

See if this helps:

FF78P00  if a E                    DISK

or

FF78P00  uf a E                    DISK



Tomasz Skorz.a wrote:
> Hi
>
> Here are sources:
>
> File F78P00
>
>      A          R I78P00
>
>      A                                      TEXT('Current date')
>
>      A            D0WEK          2A
>
>      A            D0MTH          2A
>
>      A            D0YER          4A          
>
> File is located not in QTEMP library                                   
>
> CL code:
>
> J78P00:      PGM           
>              MONMSG     MSGID(CPF0000 CPC0000 CPD0000)
>
>              CLRPFM     FILE(F78P00)
>
>              CALL       P78P00
>
>              ENDPGM                     
>
> RPG code:
>
> FF78P00  O   E                    DISK                
>
> C                     TIME           $WK120 120                   
> .....
> C                     MOVELD4WEK     D0WEK                     
> C                     MOVELD4MTH     D0MTH                     
> C                     MOVELD4YER     D0YER                     
> C                     WRITEI78P00                 41           
> .....
>
>
> In Log i have only info that job was submitted and then that file was
> cleared.
>
> Regards
>
> Tomasz Skorza