Why not update in batch - part two

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