Trapping an FCOPY error in MPE

[Hans-Ole Kaae]

Hello Ken,

Your "Warning 200" should set a HPFCOPYERR = 200   -  at least it does on the MPE/iX 7.5 machine here...


Mange hilsner / With kind regards

Hans-Ole Kaae
IT-Consultant

ScanConsult IT-Partners ApS
Jegstrupvej 96A
DK-8361  Hasselager
Denmark

Phone (switchboard): +45 7734 7474
Phone (direct): +45 7734 7471
Mobile: +45 4042 5507
Fax: +45 7734 7575
hok at scanconsult.aero<mailto:hok at scanconsult.aero>
www.scanconsult.aero<http://www.scanconsult.aero/>
ParaSuite: A Suite of Air Cargo Handling solutions
We partner with Microsoft, Hewlett-Packard, Fujitsu, Oracle, IBM and others


From: powerh-l-bounces+hok=scanconsult.aero at lists.sowder.com [mailto:powerh-l-bounces+hok=scanconsult.aero at lists.sowder.com] On Behalf Of Ken Langendock
Sent: Tuesday, November 27, 2012 2:32 PM
To: powerh-l at lists.sowder.com
Subject: Trapping an FCOPY error in MPE

Hello all,

Once again, our users uploaded a file incorrectly and once again a job let the process go right on thru until a major error occurred.

The process is this;
QTP - create empty subfiles
FCOPY the uploaded file overtop of the subfile
QTP - run the remainder of the job.

The problem is this error came up and it just didn't care:

:FCOPY FROM=*HDRFILE;TO=ECPF01AP.SUB

HEWLETT-PACKARD 31900A.05.04 FILE COPIER  TUE, NOV 27, 2012,  6:26 AM
(C) HEWLETT-PACKARD CO. 1999
*200*
WARNING: FROMFILE RECSIZE IS 1444 BYTES, TOFILE RECSIZE IS 1300 BYTES.
EOF FOUND IN FROMFILE AFTER RECORD 1053
1054 RECORDS PROCESSED *** 0 ERRORS

END OF SUBSYSTEM
:showvar CIERROR
CIERROR = 0


Anyone have any ideas how to make this bullet proof?


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.sowder.com/pipermail/powerh-l/attachments/20121127/e6ceeba9/attachment.htm>