Re: RUNSQL in CL ILE

"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx> wrote on 03/05/2018
03:29:49 PM:

We may also need a working and a failing example of &SQLSTMT, as shown

by

the debugger.

Don't need the debugger, I think, because I've written the CL to
write the SQL statement variable content to the joblog before executing
it. The following is what I see in the joblog when I run it interactively
(i.e., by itself). The one after that is what I see in the joblog when I
invoke the CL from within another CL running in batch on our separate test
LPAR. In this case, though, it is working in both. The problem situation
occurred last week when trying to run this in production.

IMLFBACKUP TYPE(IMLFBACKUP) TABLE(*ALL) COMPANY(00110)

CALL IM_LIFO_BACKUP ( 'IMLFBACKUP', '*ALL', '00110', NULL )
Object LF_COMPANY in IMLFBACKUP type *FILE deleted.
Object LF_COMPANY in IMLFBACKUP type *FILE created.
1 objects duplicated.
Object LFADJ00110 in QTEMP type *FILE created.
1 objects duplicated.
Object LFADJ00110 in IMLFBACKUP type *FILE deleted.
Object LFADJ00110 in QTEMP type *FILE moved to library IMLFBACKUP.
Object LFDTL00110 in QTEMP type *FILE created.
1 objects duplicated.
Object LFDTL00110 in IMLFBACKUP type *FILE deleted.
Object LFDTL00110 in QTEMP type *FILE moved to library IMLFBACKUP.
Object LFDVW00110 in QTEMP type *FILE created.
1 objects duplicated.
14931 records copied from member IMLFDTLV02.
Object LFDVW00110 in IMLFBACKUP type *FILE deleted.
Object LFDVW00110 in QTEMP type *FILE moved to library IMLFBACKUP.
Backup completed.


...snip...
Evaluating data library: DTA110
CALL IM_LIFO_BACKUP ( 'IMLFBEFORE', '*ALL', '00110', NULL )
Object LF_COMPANY in IMLFBEFORE type *FILE deleted.
Object LF_COMPANY in IMLFBEFORE type *FILE created.
1 objects duplicated.
Object LFADJ00110 in QTEMP type *FILE created.
1 objects duplicated.
Object LFADJ00110 in QTEMP type *FILE moved to library IMLFBEFORE.
Object LFDTL00110 in QTEMP type *FILE created.
1 objects duplicated.
Object LFDTL00110 in IMLFBEFORE type *FILE deleted.
Object LFDTL00110 in QTEMP type *FILE moved to library IMLFBEFORE.
Object LFDVW00110 in QTEMP type *FILE created.
1 objects duplicated.
14931 records copied from member IMLFDTLV02.
Object LFDVW00110 in QTEMP type *FILE moved to library IMLFBEFORE.
Backup completed.
...snip...


Sincerely,

Dave Clark