got past spot holding me back

[J McNamara]

PERFORM VARYING IDX FROM 1 BY 1 UNTIL IDX < 2
MOVE WS-KEY-ID(IDX) TO WS-ID
MOVE WS-SEQ(IDX) TO WS-SEQ-ID
MOVE WS-AMOUNT-REC(IDX) TO WS-AMOUNT
MOVE WS-TRANS-TYPE-REC(IDX) TO WS-TRANS-TYPE
MOVE WS-TRANS-DATE-REC(IDX) TO WS-TRANS-DATE
MOVE WS-ASSET-CLASS-REC(IDX) TO WS-ASSET-CLASS
MOVE WS-ACCT-CLASS-ID(IDX) TO WS-CLASS-VALUE
OCESQL CALL "OCESQLStartSQL"
OCESQL END-CALL
OCESQL CALL "OCESQLSetSQLParams" USING
OCESQL BY VALUE 1
OCESQL BY VALUE 11
OCESQL BY VALUE 0
OCESQL BY REFERENCE WS-ID
OCESQL END-CALL
OCESQL CALL "OCESQLSetSQLParams" USING
OCESQL BY VALUE 2
OCESQL BY VALUE 25
OCESQL BY VALUE 0
OCESQL BY REFERENCE WS-SEQ-ID
OCESQL END-CALL
OCESQL CALL "OCESQLSetSQLParams" USING
OCESQL BY VALUE 3
OCESQL BY VALUE 20
OCESQL BY VALUE 0
OCESQL BY REFERENCE WS-AMOUNT
OCESQL END-CALL
OCESQL CALL "OCESQLSetSQLParams" USING
OCESQL BY VALUE 4
OCESQL BY VALUE 11
OCESQL BY VALUE 0
OCESQL BY REFERENCE WS-TRANS-TYPE
OCESQL END-CALL
OCESQL CALL "OCESQLSetSQLParams" USING
OCESQL BY VALUE 5
OCESQL BY VALUE 50
OCESQL BY VALUE 0
OCESQL BY REFERENCE WS-TRANS-DATE
OCESQL END-CALL
OCESQL CALL "OCESQLSetSQLParams" USING
OCESQL BY VALUE 6
OCESQL BY VALUE 10
OCESQL BY VALUE 0
OCESQL BY REFERENCE WS-CLASS-VALUE
OCESQL END-CALL
OCESQL CALL "OCESQLSetSQLParams" USING
OCESQL BY VALUE 7
OCESQL BY VALUE 50
OCESQL BY VALUE 0
OCESQL BY REFERENCE WS-ASSET-CLASS
OCESQL END-CALL
OCESQL CALL "OCESQLExecParams" USING
OCESQL BY REFERENCE SQLCA
OCESQL BY REFERENCE SQ0005
OCESQL BY VALUE 3
OCESQL END-CALL
OCESQL CALL "OCESQLEndSQL"
OCESQL END-CALL
IF SQLSTATE NOT = ZERO
PERFORM ERROR-RTN
EXIT PERFORM
END-IF
END-PERFORM.

  *    DISCONNECT

OCESQL EXEC SQL
OCESQL DISCONNECT ALL
OCESQL* END-EXEC.
OCESQL CALL "OCESQLDisconnect" USING
OCESQL BY REFERENCE SQLCA
OCESQL END-CALL.
2024-11-29 14:40:25.952 EST [3365] LOG: checkpoint starting: time
2024-11-29 14:40:25.986 EST [3365] LOG: checkpoint complete: wrote 3 buffers (0.0%); 0 WAL file(s) added, 0 removed, 0 recycled; write=0.004 s, sync=0.005 s, total=0.034 s; sync files=2, longest=0.003 s, average=0.003 s; distance=0 kB, estimate=0 kB; lsn=0/1D55628, redo lsn=0/1D555F0
2024-11-29 14:59:31.948 EST [3436] ERROR: unrecognized configuration parameter "autocommit"
2024-11-29 14:59:31.948 EST [3436] STATEMENT: SET AUTOCOMMIT TO ON
2024-11-29 15:00:44.766 EST [3438] WARNING: there is no transaction in progress

thanks,
j. mcnamara

Sent with Proton Mail secure email.

[Simon Sobisch]

Hm... where is the question / context? Is this related to [83297563b1]? Then please move it there. In any case: "how" did you "got past spot holding you back" (and what was that spot?