MRCM       JOB  MRCM DIAGNOSTIC
           ORG  500                        
START      CS   332                      
           CS   
           MLCWA@MRCM DIAGNOSTIC@,250
           W   
           CS   299
*
*      TEST MOVE TO RECORD MARK
*
           MLCWARM1,250
           MLCWAEXPECT
           W   
           CS   299
           MRCM REC0,250-(RM1-REC0)
           MLCWAGOT,250-(RM1-REC0)-1
           W   
           CS   299
*
* TEST MOVE WITH GMWM TERMINATOR
*
           MLCWARM2,250
           MLCWA                             CHAIN BECAUSE GM HAS WM
           MLCWAEXPECT
           W   
           CS   299
           MRCM REC0G,250-(RM2-REC0G)
           MLCWAGOT,250-(RM2-REC0G)-1
           W   
           CS   299
           H    START
*       
REC0       EQU  *
REC1       DCW  @THIS IS RECORD 1@
RM1        DC   @Ø@
*
REC0G      EQU  *+1
REC2       DCW  @THIS IS RECORD 2@,G
RM2        EQU  *
*
EXPECT     DCW  @EXPECT: @
GOT        DCW  @GOT:    @
           END  START