>>-+--------+--$#REP--,JOA=--+-addr-------+--------------------->
   '-symbol-'                '-(--R--n--)-'   

>--+---------------------+--,REMJOE=--+-addr-------+------------>
   |             .-NO--. |            '-(--R--n--)-'   
   '-,COPYJWEL=--+-YES-+-'                             

>--+-----------------+--+-------------------------+------------->
   |         .-YES-. |  '-,ERRET=--+-label------+-'   
   '-,WAIT=--+-NO--+-'             '-(--R--n--)-'     

>--+-------------------------+---------------------------------><
   '-,OKRET=--+-label------+-'   
              '-(--R--n--)-'     

JOA=

Specifies the address or a register (R2-R10) that contains the address of a prototype or real artificial JOE (JOA) whose content replaces the current real work JOE and characteristics JOE content.

Note:

1. A real JOA must be specified if REMJOE= is not specified.
2. If a read mode JOA is passed on JOA=, this service automatically refreshes the JOA before returning to its caller.

COPYJWEL=

Specifies that the JWELs associated with the JOE that is to be replaced are to be copied to the JOE being created (YES) or discarded (NO).

REMJOE=

Specifies the address or a register (R2-R10) that contains the address of the work JOE that is replaced by this service.

Note: REMJOE= must be specified if a prototype JOA is specified for the JOA= parameter.

WAIT=

Specifies whether (YES) or not (NO) JES2 is to issue a $WAIT macro if the JOT is full and cannot immediately add the new JOE. WAIT=YES is the default but if overridden with WAIT=NO and the JOT is also full, processing fails with return code 4.

ERRET=

Specifies a label or register that contains the address of a routine to receive control if processing is not successful (a non-zero return code is returned in R15).

OKRET=

Specifies a label or register that contains the address of a routine to receive control if processing is successful (a 0 return code is returned in R15).

• Main task.
• $WAIT can occur.