MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » November 2005

RE: CPYF FROMKEY/TOKEY using packed key field



fixed

Or drop all the leading & trailing zeros:

CALL QCMDEXC ('CLRPFM KILLME', 13);

And yes, I tried it and it works.  The reason it works is that QCMDEXC is
expecting the standard 15.5 packed decimal, which is what the command
processor converts any numeric parameters to before passing them to the
called program.

> -----Original Message-----
> From: midrange-l-bounces+maillist=dowsoftware.com@xxxxxxxxxxxx
> [mailto:midrange-l-bounces+maillist=dowsoftware.com@xxxxxxxxxxxx]O
> n Behalf Of rob@xxxxxxxxx
> Sent: Tuesday, November 01, 2005 8:55 AM
> To: Midrange Systems Technical Discussion
> Subject: RE: CPYF FROMKEY/TOKEY using packed key field
>
>
> Have you tried that from within RUNSQLSTM?
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
>
>
>
>
> "Elvis Budimlic" <ebudimlic@xxxxxxxxxxxxxxxxxxxxxxxxx>
> Sent by: midrange-l-bounces@xxxxxxxxxxxx
> 11/01/2005 11:42 AM
> Please respond to
> Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
>
>
> To
> "'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
> cc
>
> Fax to
>
> Subject
> RE: CPYF FROMKEY/TOKEY using packed key field
>
>
>
>
>
>
> Rob, just curious, why not use decimal length for the 2nd parm?
> For example:
>
> CALL QCMDEXC ('CLRPFM KILLME', 0000000013.00000);
>
> Elvis
>
> -----Original Message-----
> Subject: Re: CPYF FROMKEY/TOKEY using packed key field
>
> Add this to your RUNSQLSTM
> call qcmdexc ('clrpfm killme', x'000000001300000F');
>
> RUNSQLSTM SRCFILE(ROB/QSQLSESS) SRCMBR(KILLME) COMMIT(*NONE)
>
> Tested and works like a champ.
>
> Rob Berendt
> --
>
>
> --
> 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.
>
>
> --
> 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.
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.362 / Virus Database: 267.12.6/152 - Release Date: 10/31/2005
>
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.362 / Virus Database: 267.12.6/152 - Release Date: 10/31/2005







Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact