The carriage return ( <cr> ) is %15. You would set it up like this:
01 HP-COMMAND-VARIABLE-NAME.
05 COMMAND-TEXT PIC X(whatever) VALUE " {command text here} ".
05 FILLER PIC X VALUE %15.
That should work every time.
Also it is OK to have blank spaces at the end of the command text, as long as you have the carriage return at the very end of each command.
Edwin Clements
--- On Sun, 1/24/10, Olav Kappert <[log in to unmask]> wrote:
> From: Olav Kappert <[log in to unmask]>
> Subject: Re: [HP3000-L] Cobol Program & COMMAND/HPCICOMMAND Intrinsic Problem
> To: [log in to unmask]
> Date: Sunday, January 24, 2010, 11:27 PM
> Brian:
>
> When using the command intrinsic, the last character of
> each line of the
> command must be a <cr> (i forget the excape
> seq). I notice the "&" is
> embedded in the actual command. I assume this is what
> the problem is.
> Do each part as a unique command with the <cr>
> character at the end of
> the line. So for your code, that would mean at 8
> commands.
>
> Olav.
>
> Brian Donaldson wrote:
>
> >I hope someone out there in cyberland may have a
> solution to this problem.
> >
> >I am executing a command file via the COMMAND
> intrinsic. I have also tried
> >using the HPCICOMMAND intrinsic as well but the results
> are the same.
> >
> >The execution of the command file is failing but the
> intrinsics are returning
> >error code = 0 and param = 0.
> >
> >So how can I figure out what the error is if the
> intrinsics are telling me it
> >executed successfully (which I know they didn't) ?
> >
> >FILE XEQERR;SAVE
> >
> >
> >
> >>+0000>+0000>RUN KSAMUTIL.PUB.SYS < XEQFILE
> > *XEQERR
> >>
> >>
> >
> >
> >
>
>
>
>
> >
>
> <
> >
> >BUILD
> >KSAMCMF1/OLDKSAM1.PUB.DEV;REC=+8192,,F,BINARY;&TEMP;DISC=000050001;CODE=+8133;LABELS=206;FIRSTREC=1;&KEY=B,003,001,,RDUP;KEY=B,004,001,,DUP;KEY=B,005,00&
> >2,,RDUP;KEY=B,007,001,,DUP;KEYFILE=KSAMCMK1
> &
> >
>
>
>
> &
> >
>
>
>
> &
> >
>
>
>
> &
> >EXIT
> >
> >PRINT XEQERR
> >
> >HP32208A.07.04 SUN, JAN 24, 2010, 8:07
> PM KSAMUTIL VERSION:A.07.01
> >
> >
> >>
> >>
> >>
> >>
> >>
> >>
> >INVALID RESULTANT BLOCK SIZE (FSERR 11)
> >
> >
> >
> >Any help would be appreciated.
> >
> >TIA,
> >Brian Donaldson.
> >
> >* To join/leave the list, search archives, change list
> settings, *
> >* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
> >
> >
> >
>
> * To join/leave the list, search archives, change list
> settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|