Current Timestamp not assigned to File variable

Shobana Bhaskar · Posted: Tue Mar 13, 2007 1:45 pm

Hi

EXEC SQL

SET :FILE-VAR = CURRENT TIMESTAMP

END-EXEC

In above statement, current timestamp is not set to FILE-VAR(variable defined in file layout) for all the records. I can see value set only for 4 records among 10 total records. But the SQLCODE of this statement is zero for all records.

I changed FILE-VAR to WS-VAR and can see current timestamp getting populated for all the records. Why is it not populated properly for all records if file variable is used whereas working fine for working storage var.

Shobana

guptae · Posted: Tue Mar 13, 2007 2:22 pm

Hi Shobana,

Would You please provide the code ?

Shobana Bhaskar · Posted: Tue Mar 13, 2007 7:09 pm

Hi Ekta,

I have already mentioned my code.

EXEC SQL
SET :WS-LST-UPDT-TS = CURRENT TIMESTAMP
END-EXEC
IF SQLCODE NOT = ZERO
Call Abend Routine

The above code worked fine as i replaced FILE-LST-UPDT-TS (var defined in file layout) with WS-LST-UPDT-TS. But i don know why file variable is not working fine

guptae · Posted: Tue Mar 13, 2007 7:12 pm

Hi Sobhana,

I asked u to paste ur code because i want to see how u are initializing ur file record

Shobana Bhaskar · Posted: Thu Mar 15, 2007 1:17 pm

FILE-CONTROL.
SELECT IN-FTP ASSIGN TO INFTP
FILE STATUS IS INFTP-STATUS.
DATA DIVISION.
FILE SECTION.
FD IN-FTP
DATA RECORD IS INPUT-RECORD.
01 INPUT-RECORD.
file var declarations
WORKING-STORAGE SECTION.
01 WS-WORKING.
ws var declarations
PROCEDURE DIVISION.

PERFORM 1000-OPEN-FILES THRU
1000-OPEN-FILES-EXIT.

PERFORM 2000-PROCESS-PARA THRU
2000-PROCESS-PARA-EXIT
UNTIL WS-EOR = 'Y'.

PERFORM 9000-CLOSE-FILES THRU
9000-CLOSE-FILES-EXIT.

STOP RUN.

1000-OPEN-FILES.
OPEN INPUT IN-FTP.
IF NOT INPUT-GOOD
DISPLAY ' '
DISPLAY 'BAD OPEN OF INPUT FILE' INFTP-STATUS
MOVE '1001' TO WS-ABEND-CODE
GO TO 9999-ABEND
END-IF.
1000-OPEN-FILES-EXIT.
EXIT.

2000-PROCESS-PARA.
INITIALIZE INPUT-RECORD.
READ IN-FTP
AT END MOVE 'Y' TO WS-EOR
PERFORM 3000-READ-WRITE THRU 3000-READ-WRITE-EXIT
2000-PROCESS-PARA-EXIT.
EXIT.

3000-READ-WRITE.
EXEC SQL
SET :WS-LST-UPDT-TS = CURRENT TIMESTAMP
END-EXEC
IF SQLCODE NOT = ZERO
DISPLAY 'SET CURRENT TIMESTAMP - IN ERROR'
MOVE '3003' TO WS-ABEND-CODE
GO TO 9999-ABEND
ELSE
MOVE WS-LST-UPDT-TS TO IN-LST-UPDT-TS
END-IF.

Suryanarayana.tadala · New User Joined: 03 Nov 2005 Posts: 43 Location: St.Louis

How did u declare this variable WS-LST-UPDT-TS

Suryanarayana.tadala · New User Joined: 03 Nov 2005 Posts: 43 Location: St.Louis

Is the variable FILE-LST-UPDT-TS a part of a copybook/file layout ???
If so you cannot use them as Host variables in DB2.Probably you might have got the data for couple of records due to stack but it would not work fine thru out the execution.
Only a DCLGEN copybook varaibles can be used as Hostvariables.

Correct me if i am wrong..

William Thompson · Posted: Fri Mar 16, 2007 4:40 am

Shobana Bhaskar · Posted: Fri Mar 16, 2007 12:30 pm

Yes.. FILE-LST-UPDT-TS is a part of file layout defined in program and not copybook variable.

DATA RECORD IS INPUT-RECORD.
01 INPUT-RECORD.
05 FILE-LST-UPDT-TS PIC X(26).
WORKING-STORAGE SECTION.
01 WS-WORKING.
05 WS-LST-UPDT-TS PIC X(26).

Hi Suryanarayana,
Why ONLY DCLGEN var can be used as host variable?? But Working Storage variable is working fine!!!