Whats wrong with this?

[SMAlvarez]

Whats wrong with this?

// JOB
// EXEC ASMGCG
//ASM.SYSIN DD *
         PRINT NOGEN
PRINTOUT START
         STM   14,12,12(13)
         BALR  12,0
         USING *,12
         ST    13,SAVEAREA+4
         LA    13,SAVEAREA
         OPEN  (READER,INPUT,PRINTER,OUTPUT)
CLEAR    MVC   OUTAREA,SPACES
         GET   READER,RECORD
         MVC   LNAME,LAST
         MVC   SALOUT,SALARY
         PUT   PRINTER,OUTAREA
         B     CLEAR
EOF      CLOSE (READER,,PRINTER)
         L     13,SAVEAREA+4
         LM    14,12,12(13)
         BR    14
SAVEAREA DS    18F
*
READER   DCB   BLKSIZE=80,RECFM=FB,LRECL=80,DSORG=PS,DDNAME-SEQIN,
               EODAD=EOF,MACRF=GM
PRINTER  DCB   BLKSIZE=1330,RECFM=FBA,LRECL=133,DSORG=PS,DDNAME=SEQOUT,*
               MACRF=PM
RECORD   DS    0CL80
LAST     DS    CL15
SALARY   DS    CL5
         DS    CL60
SPACES   DC    CL1' '
OUTAREA  DS    0CL132
         DS    CL5
LNAME    DS    CL15
         DS    CL20
SALOUT   DS    CL5
         DS    CL87
         END
/*
//GO.SEQOUT DD SYSOUT=A
//GO.SEQIN DD *
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
/*
//

 

[kevinf2349]

What happens? S0C4 by any chance?

 

[SMAlvarez]

the error are as follows:

20:08:59
IAT6108 JOB UACBX102 (JOB04310) ENDED,COMP CD=S0C4|U0000

20:08:59
IAT6108 JOB UACBX102 STEP=GO      ,PROC=NONE

 

[kevinf2349]

Thats what I thought.

Try increasing OUTAREA to be 133 not 132.