|
------------------------------------------------------------------------------
in subfile
A
$TCPY# 5Y 0B
6 16
A
$TCPYB 2Y 0B
6 22CHECK(RZ)
A
$QTYOR 8Y 0O 8 32EDTCDE(3)
in rpg
D @@desc
50 Overlay(nprm:61) Inz
.....
Eval
desc = 'Tranfer ' + %char($qtyor) +
' to ' + %char($tcpy#) + ' ' +
%char($tcpyb) + ' ' + $tcpyn
.........
*RNF0386 30 146400
The parameter for %CHAR is not valid.
*RNF0386 30 146500
The parameter for %CHAR is not valid.
*RNF0386 30 146600
The parameter for %CHAR is not valid.
------------------------------------------------------------------------------
Thanks for your help
--
William A.(Tony) Corbett
corbett@asresources.com
http://www.asresources.com
http://www.cbt400.com
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.