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

[Jack Woehr <jwoehr@xxxxxxxxxxxxxxxxxxxxxxxx>]

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