Announcement

**Barbara Morris** · October 13, 2015, 03:17 PM

Re: Remote Call Program

I think you pasted the wrong program. That's a CL program, not an RPG program. It looks like you have two RPG programs getting an error: PRLGCHK and PAYEDT.

**john.sev99** · October 13, 2015, 04:19 PM

Re: Remote Call Program

Code:

   4400              CRTPF      FILE(QTEMP/TAPEIN1) RCDLEN(2000) SIZE(*NOMAX)                                           09/24/07
   4500                                                                                                                 02/16/01
   4600              CRTPF      FILE(QTEMP/TEMPCOMA) SRCFILE(QDDSSRCS) +                                                12/27/11
   4700                           SRCMBR(TEMPCOMA) OPTION(*NOSOURCE +                                                   12/27/11
   4800                           *NOLIST) SIZE(*NOMAX) LVLCHK(*NO)                                                     12/27/11
   4900                                                                                                                 02/16/01
   5000              CPYF       FROMFILE(&FILE1) TOFILE(TAPEIN1) +                                                      09/29/15
   5100                           MBROPT(*REPLACE) FMTOPT(*NOCHK)                                                       08/26/15
   5200                                                                                                                 02/07/00
   5300 /* COPY COMMA DELMITED FILES TO A PHYSICAL FILE                    */                                           09/21/11
 5400                                                                                                                 09/21/11
   5500              CPYFRMIMPF FROMFILE(QTEMP/TAPEIN1) +                                                               07/01/14
   5600                           TOFILE(QTEMP/TEMPCOMA) MBROPT(*REPLACE) +                                             07/01/14
   5700                           DTAFMT(*DLM) STRDLM('"') FLDDLM(']') +                                                02/05/15
   5800                           RPLNULLVAL(*FLDDFT)                                                                   07/01/14

This code makes no sense to me. Why are you copying &File1 into TAPEIN1 and then trying to copy it to TEMPCOMA?
Your comments indicate that TAPEIN1 will be a comma delimited file. Why do you think that? Have the quotes/delimiters magically appeared or are they in the original &File1? Without some clue as to how the data is formatted in the files, this is a guessing game.

It's also completely unknown what files the RPG programs are looking at as no mention is made of these apart from calls in the code. However, given the decimal data error, one could guess that these copies haven't worked as you've intended them to resulting in some character data being placed into a numeric field (you are using *NOCHK after all).

**Scott Klement** · October 15, 2015, 10:00 AM

Re: Remote Call Program

John, it looks like TAPEIN1 is a flat file that will contiain the data in CSV format. TEMPCOMA is an externally defined file with the appropriate fields in it, and CPYFRMIMPF is used to convert from the comma delimited file in TAPEIN1 to the fields in TEMPCOMA.

What part of that makes no sense to you? It seems simple enough to me.

The only weird thing is that he's using ] as a delimiter instead of a comma, but maybe that's how the fields are formatted?

**john.sev99** · October 15, 2015, 02:36 PM

Re: Remote Call Program

Originally posted by Scott Klement View Post

John, it looks like TAPEIN1 is a flat file that will contiain the data in CSV format. TEMPCOMA is an externally defined file with the appropriate fields in it, and CPYFRMIMPF is used to convert from the comma delimited file in TAPEIN1 to the fields in TEMPCOMA.

It may make sense if the original file is a tape file rather than a PF. And I guess going by the file name (TAPEIN1) then this may be the case. The help text on CPYFRMIMPF suggests it supports tape files so it seems to be additional unnecessary processing.
But as I said, without some details on the files, this is all guess work.

**Scott Klement** · October 16, 2015, 01:34 AM

Re: Remote Call Program

Originally posted by john.sev99 View Post

It may make sense if the original file is a tape file rather than a PF. And I guess going by the file name (TAPEIN1) then this may be the case.

No.. it can't be a tape file, it's created in the code provided using the CRTPF command. But, for example, someone could use FTP in ASCII mode to copy a stream file (either from the IFS or from another computer) into FILE1, which is used to populate TAPEIN1. FTP is just an example, it could be several other different file transfer approaches... At any rate, once you have data in the file in CSV format or another appropriate, delimited, format, CPYFRMIMPF makes sense to convert it to an externally defined PF.

I certainly agree with you that this is guess work. This is the sort of thing that someone on site really needs to troubleshoot. The idea would be to look at the programs where the error is occuring, and see what it's doing at that point. This should tell you which field it's using. Then, look at the record it's processing, and see what's in that field value. something is wrong with it (it's not a valid number, for example.. the error message tells you that part) so check out the file... find the problem and fix it.

This isn't really something we can do for you over the forums -- you need to learn how the programs are supposed to work, discover what is wrong, and fix them.

**john.sev99** · October 18, 2015, 02:38 PM

Re: Remote Call Program

Originally posted by Scott Klement View Post

No.. it can't be a tape file, it's created in the code provided using the CRTPF command.

When I referred to a tape file, I was referring to the original copy of &FILE1 into QTEMP. I was thinking &FILE1 could be a tape file.

Originally posted by Scott Klement View Post

But, for example, someone could use FTP in ASCII mode to copy a stream file (either from the IFS or from another computer) into FILE1, which is used to populate TAPEIN1. FTP is just an example, it could be several other different file transfer approaches... At any rate, once you have data in the file in CSV format or another appropriate, delimited, format, CPYFRMIMPF makes sense to convert it to an externally defined PF.

That's my point. Why copy it to QTEMP/TAPEIN1 if it's already a CSV formatted STMF? The original copy of &FILE1 to &TAPEIN1 doesn't convert it to a CSV format so I guess the original &FILE1 must be that why. Why not use the CPYTOIMPF to copy the file direct and bypass the intermediary copy to TAPEIN1? I don't really get these additional copies.

Announcement

Remote Call Program

Remote Call Program

Comment

Comment

Comment

Comment

Comment

Comment