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

This is a better Ublu example:

# Instance a session with the target system*as400* *-to* @oss
*-usessl* MYSYS MyProfile ********# Instance a DQ*dq* *-to* @q
*-as400* @oss /QSYS.LIB/UBLUTEST.LIB/TESTDQ.DTAQ# Create the DQ on the
system with a max entry len of 1111@q *-create* 1111# Reference a file
which happens to have record len of 1111*file* *-to* @f *-as400* @oss
*-keyed* /QSYS.LIB/UBLUTEST.LIB/TEST0008.FILE# Open file (R)ead@f
*-open* R# 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:18 AM, Jack Woehr <jwoehr@xxxxxxxxxxxxxxxxxxxxxxxx

wrote:

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

--
Absolute Performance, Inc.
12303 Airport Way, Suite 100
Broomfield, CO 80021

NON-DISCLOSURE NOTICE: This communication including any and all
attachments is for the intended recipient(s) only and may contain
confidential and privileged information. If you are not the intended
recipient of this communication, any disclosure, copying further
distribution or use of this communication is prohibited. If you received
this communication in error, please contact the sender and delete/destroy
all copies of this communication immediately.