IBM Mainframe Forum

bobguo wrote:

Select all

MAIN     CSECT               
         STM   14,12,12(13)   
         BASR  12,0           
         USING *,12           
         ST    13,SAVE+4     
         LA    13,SAVE       
START    EQU   *                                       
         OPEN (FILEIN,(INPUT))                         
         OPEN (FILEOUT,(OUTPUT))                       
         USING RECIN,4                                 
         GET FILEIN                                     
         LR 4,1                                         
         PUT FILEOUT                                   
EOF      CLOSE FILEIN                                   
         CLOSE FILEOUT                                 
EXIT     EQU   *                                       
         L     13,SAVE+4                               
         LM    14,12,12(13)                             
         LA    15,0                                     
         BR    14                                       
FILEIN   DCB  DDNAME=INDD,DSORG=PS,MACRF=(GL),EODAD=EOF
FILEOUT  DCB  DDNAME=OUTDD,DSORG=PS,MACRF=(PL)
SAVE     DS    18F 
RECIN    DSECT     
CUSTNAME DS CL40   
CUSTADDR DS CL40   
RECOUT   DSECT     
NAME     DS CL40   
ADDRESS  DS CL40   
         END   MAIN   

I copied some code,just shows as above.
can somebody tell me why output file does NOT have the same record as input file?
thx.

Sincerely,
Bob

1. Use the SAVE and RETURN macros to save your registers and restore them when you return. What you did is perfectly valid, if incomplete.
2. When you establish a new save area you should connect your new save area to the caller's save area as well as connect the caller's save area to the new save area. When you do this the dump program can display the entire save area chain if your program ABENDs, What I do is something like this -
   
   LA 15,NEWSAVE
   ST 15,8(,13)
   ST 13,4(,15)
   LR 13,15
   
   Now let's look at your problem.
3. When you specify MACRF=PL, as you did, when your program issues a PUT macro, the PUT macro returns the address of space in an I/O buffer. Your program must copy any data that will subsequently be written to the output data set to this space before your program issues the next PUT macro or CLOSE macro. If you are writing variable length records or undefined length records, your program must store the length of the buffer space you need into the DCBLRECL area of the output DCB before you issue the PUT macro. You do not have to do this if you are writing fixed length records since DCBLRECL is already set.