Re: Copying records from a *FILE into a *DTAQ

Here's an example in Ublu <https://github.com/jwoehr/ublu>

# Instance a session with the target system*as400* *-to* @oss
*-usessl* MYSYS MyProfile ********# Open a file which happens to have
record len of 1111*file* *-to* @f *-as400* @oss *-keyed*
/QSYS.LIB/UBLUTEST.LIB/TEST0008.FILE# Create a DQ*dq* *-to* @q
*-as400* @oss *-create* 1111 /QSYS.LIB/UBLUTEST.LIB/TESTDQ.DTAQ# Get
the DQ handle*dq* *-to* @q *-as400* @oss
/QSYS.LIB/UBLUTEST.LIB/TESTDQ.DTAQ# Position the file to (B)efore
First Record@f *-pos* B# Get NEXT record@f *-to* @rec *-read* NEXT#
Get record's data as bytes@rec *-to* @data *-getcontents*# Write
record to dataqueue@q *-writeb* @data# Etc ...


On Fri, Aug 18, 2017 at 8:03 AM, Winchester Terry <
terry.winchester@xxxxxxxxxxxxxxx> wrote:

I would try segregating the records to be copied into a
separate physical file and use a DCLF in a CL program to
read the records, concatenate the fields into one long
"string" and use a SNDDTAQ command to populate the data
queue.

But that might be more trouble than its worth when
a high-level language could accomplish the same task ;-)


-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Kelly Beard
Sent: Friday, August 18, 2017 9:26 AM
To: midrange-l@xxxxxxxxxxxx
Subject: [EXTERNAL] Copying records from a *FILE into a *DTAQ

My boss had a weird request yesterday, and maybe it's possible but I've
never had the occasion to consider the possibility, but he wanted to copy
records from a file/table, probably in flat-fixed form into a dataqueue. I
said that although i5/OS is an object OS by some measures, I didn't think
there was a way to do that, but I wanted to cover my bases and ask here.

--
Kelly Beard
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

----------------------------------------------------------------------
Confidentiality Notice: The preceding e-mail message (including any
attachments) contains information that may be confidential, protected by
applicable legal privileges, or constitute non-public information. It is
intended to be conveyed only to the designated recipient(s). If you are not
an intended recipient of this message, please notify the sender by replying
to this message and then delete it from your system. Use, dissemination,
distribution or reproduction of this message by unintended recipients is
not authorized and may be unlawful.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD