HP3000-L Archives

January 2010, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Cobol Program & COMMAND/HPCICOMMAND Intrinsic Problem
From:
Olav Kappert <[log in to unmask]>
Reply To:
[log in to unmask]
Date:
Sun, 24 Jan 2010 23:27:15 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (72 lines) 
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 *

ATOM RSS1 RSS2