BPX4FRK (fork) example

The following code forks a new process. The next sequential instruction gets control from both the parent process (RETVAL=child process ID) and from the child process (RETVAL=0). If RETVAL=-1, the fork failed. For the callable service, see fork (BPX1FRK, BPX4FRK) — Create a new process. AMODE 31 callers use BPX1FRK (fork) example.
                                              
         CALL  BPX4FRK,              Create a new process (fork)       +
               (RETVAL,              Return value: -1, 0, child's PID  +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------