Re: CPYF blanks to zeros?

display_journal_entry_info looks like an un-documented goldmine!
Display_Journal gives all the necessary inputs. I just have to work out
the details to pipe one into the other, and write the final result to a
QTEMP table.

AFAIK, a UDTF requires a predefined column list which I won't have because
this is a generic command.

Thanks


date: Thu, 1 Sep 2022 20:06:49 +0000

from: Rob Berendt <rob@xxxxxxxxx>
subject: RE: CPYF blanks to zeros?

Instead of DDL can you make your on-the-fly file with DDS?

Have you played with this?
call qsys2.display_journal_entry_info(2, --not sure what 2 means
'journal_library',
'journal name',
Sequence_number, -- SEQUENCE_NUMBER
'receiver library', -- RECEIVER_LIBRARY
'receiver name', -- RECEIVER_NAME
'journal code (aka PT, DL, etc)' -- JOURNAL_CODE
;
Basically is busts up that journal entry data as if it was passed into an
external data structure.

Also using RPG to move it into an external data structure is another
option. Even if you only wrap the rpg with a UDTF to return the busted out
columns. Scott has a sample RPG to UDTF.

Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1
Group Dekko
Dept 1600
Mail to: 7310 Innovation Blvd, Suite 104
Ft. Wayne, IN 46818
Ship to: 7310 Innovation Blvd, Dock 9C
Ft. Wayne, IN 46818
http://www.dekko.com