Re: [C400-L] Program ends, no messages, logs, etc

[Walt Fles <wfles@xxxxxxxxxxx>]

CPF1241 just indicates that the job ended abnormally. Were there any other messages in the joblog ?


No it does not
Here is a description of the problem:

I have a small test program,that does this:

system("call pgm(mylib/mypgm)");

That works, I get the output I expect, etc.

Now in order to reproduce the problem, the scenario is as follows:
This is the source code for mylib/mytstpgm, that calls to execute 
mylib/mypgm:

#define STR "call pgm(mylib/mypgm)"
thread_function( void *parm) {
   system( ( char * ) parm );
   pthread_exit(*parm);
}

main() {
       pthread_t id;
      pthread_create(  &id, NULL, thread_function, ( void * ) STR );
       pthread_join( id, NULL );
       printf( "Launch Complete" );
}

I complile the program using CRTBNDC, and launch the program as follows:
sbmjob cmd(call pgm(myllib/mytestpgm)) ALWMLTTHD(*YES)
Because that is the only means I can find to invoke this job multi-threaded.

When the program executes, I get the output I expect from "mylib/mypgm"
but then "my/lib/mytstpgm" dies before I get the printf after the 
pthread_join.

If  I change the #define to an OS400 command, ie, a "dspusrprf 
usrprf(walt)",
I get the output as Id expect, and the program executes completely.

It appears that I have nested "calls", ie, one in the sbmjob command 
line and then
another in the system() function call invoked by the thread.  Im 
thinking that when the
inner most "call" terminates it kills the parent function as well.  I 
cannot do this using
spawnp() I don't think for intrinsic functions and user programs that 
are invoked by
call pgm(lib/pgm ).

Any help would be appreciated, thank you!

Walt Fles


Hall, Philip wrote:

> > -----Original Message-----
> > From: c400-l-bounces@xxxxxxxxxxxx [mailto:c400-l-bounces@xxxxxxxxxxxx] On
> > Behalf Of Walt Fles
> > Sent: Wednesday, May 26, 2004 10:21 AM
> > To: C programming iSeries / AS400
> > Subject: Re: [C400-L] Program ends, no messages, logs, etc
> >
> > Is it possible for a submitted batch job to run out of stack space, and
> > cause this problem?
> > Is there a compiler option to increase the stack space for a job?
> >
> > Thanks!
> >
> > Walt Fles wrote:
> >
> >    
> >
> > > I take that back,
> > > the program that invokes the thread that does the system() call
> > > ends,with a message CPF1241.
> > > Would be nice if I could see where or how it was stopping, like an
> > > object dump or stack
> > > trace or something.
> > >
> > >      
> > >
> > > > > When a program dies abnormally on the iSeries (for ILE/C) you don't
> > > > > get a core dump as such, what you get is either a nice CPF/MCH error
> > > > > message in the job log or on the status line.
> > > > >          
> > > >        
> > > _______________________________________________
> > > This is the C programming iSeries / AS400 (C400-L) mailing list
> > > To post a message email: C400-L@xxxxxxxxxxxx
> > > To subscribe, unsubscribe, or change list options,
> > > visit: http://lists.midrange.com/mailman/listinfo/c400-l
> > > or email: C400-L-request@xxxxxxxxxxxx
> > > Before posting, please take a moment to review the archives
> > > at http://archive.midrange.com/c400-l.
> > >
> > >      
> > _______________________________________________
> > This is the C programming iSeries / AS400 (C400-L) mailing list
> > To post a message email: C400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/c400-l
> > or email: C400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/c400-l.
> >    
>
>
>
> _______________________________________________
> This is the C programming iSeries / AS400 (C400-L) mailing list
> To post a message email: C400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/c400-l
> or email: C400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/c400-l.
>
>