RE: CPYF FROMKEY/TOKEY using packed key field

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