<
https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_73/rzasd/prectdf.htm#prectdf>
https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_73/rzasd/prectdf.htm#prectdf
On Wed, 2020-08-12 at 18:25 +0000, Buzz Fenner wrote:
Noticed an interesting result while using the edit character BIF and wondered if anyone could explain it. BTW, V7R3M0.
Here's the relevant code; the field chkNbr is in a DB file defined as packed(7) & beginChk# = 117156 at the time the if statement gets evaluated:
dcl-s beginChK# like(chkNbr);
dcl-c IOD_VOIDED_COMMENT 'IOD VOIDED #';
if pIODGCR = IOD;
trnDsc = IOD_VOIDED_COMMENT + %editc(beginChk#:'X') + '-'
+ %editc(beginChk# + 4:'X');
trnCde = 3;
else;
trnCde = 6;
trnDsc = GCR_VOIDED_COMMENT + %editc(beginChk#:'X') + '-'
+ %editc(beginChk# + 4:'X');
endif;
The resulting value for trnDsc was this (plus a leading date):
120/07/07 IOD VOIDED #0117156-00117160
Notice that the first edited check number is 7 characters and the second edited check number is 8 characters. Why?
--
Buzz Fenner, Information Systems Administrator
+1 (870) 930.3374
<mailto:bfenner@xxxxxxxxxxxxxxxx>
bfenner@xxxxxxxxxxxxxxxx
<mailto:
<mailto:bfenner@xxxxxxxxxxxxxxxx>
bfenner@xxxxxxxxxxxxxxxx
City Water and Light of Jonesboro
Office: +1 (870) 935.5581 / Fax: +1 (870) 930.3301
Physical: 400 East Monroe Ave., Jonesboro, AR 72401
Mailing: PO Box 1289, Jonesboro, AR 72403-1289
This e-mail message may contain confidential or legally privileged information and is intended only for the use of the intended recipient(s). Any unauthorized disclosure, dissemination, distribution, copying or the taking of any action in reliance on the information herein is prohibited. E-mails are not secure and cannot be guaranteed to be error free as they can be intercepted, amended, or contain viruses. Anyone who communicates with us by e-mail is deemed to have accepted these risks. City Water and Light of Jonesboro is not responsible for errors or omissions in this message and denies any responsibility for any damage arising from the use of e-mail. Any opinion and other statement contained in this message and any attachment are solely those of the author and do not necessarily represent those of the company.
________________________________
This electronic mail transmission may contain confidential or privileged information. If you believe that you have received this message in error, please notify the sender by reply transmission and delete the message without copying or disclosing it.
[
https://www.medtronsoftware.com/img/MedtronMinilogo.bmp] Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550
Toll Free: 877-893-2550
https://www.medtronsoftware.com
CONFIDENTIALITY NOTICE
This document and any accompanying this email transmission contain confidential information, belonging to the sender that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, or the employee of agent responsible to deliver it to the intended recipient, you are hereby notified that any disclosure, copying, distribution or action taken in reliance on the contents of these documents is STRICTLY PROHIBITED. If you have received this email in error, please notify the sender immediately to arrange for return or destruction of these documents.
midrange.com
