Assembler Question

[Sergio Lima]

Hello List,
 
We wrote a sample ASSEMBLER Program  here under CMS, that will submit a JOB to 
VSE Machine, using the CP SPOOL PUNCH command.
Sorry, if you understand that here is not the good place to put this question.
The people ask to me, if is possible the name of CMS MACHINE not appear on the 
MODULE.
 
The program is this :
 
PUNCHA   CSECT                          
         USING     PUNCHA,3             
         USING     FSCBD,4              
         PRINT     GEN                  
         LR        3,15                 
         ST        14,SAVE              
*                                       
         LA        4,FSCB1              
         MVC       FILENAME(8),8(1)     
         MVC       FILETYPE(8),16(1)    
         MVC       FILEMODE(8),24(1)    
*                                       
         MVC       FSCBFN,FILENAME      
         MVC       FSCBFT,FILETYPE      
         MVC       FSCBFM,FILEMODE      
*                                       
         MVC       MAQUINA+0(1),=XL1'E5'
         MVC       MAQUINA+1(1),=XL1'E2'
         MVC       MAQUINA+2(1),=XL1'C5'
         MVC       MAQUINA+3(1),=XL1'D3'
         MVC       MAQUINA+4(1),=XL1'C1'
         MVC       MAQUINA+5(1),=XL1'C2'
*                                       
         WRTERM    FILENAME,8           
         WRTERM    FILETYPE,8           
         WRTERM    FILEMODE,2           
         WRTERM    MAQUINA,8            
*                                       
         SR        1,1                  
         LA        1,DESTINA             
         SVC       202                   
         DC        AL4(1)                
*                                        
LECARD   FSREAD    FSCB=FSCB1,ERROR=EOF  
*                                        
         PUNCHC    IOAREA                
         WRTERM    IOAREA,80             
         B LECARD                        
*                                        
EOF      LA        1,CLOSEP              
         SVC       202                   
         DC        AL4(1)                
         DC        X'0700'               
*                                        
         LA        1,SPCLOSE             
         SVC       202                   
         DC        AL4(1)                
*                                        
         MVC       MAQUINA,=CL8'SYSTEM  '
         LA        1,DESTINA             
         SVC       202                   
         DC        AL4(1)                
*                                        
         L         14,SAVE               
         BR        14                    
*                                        
SAVE     DS        F                     
*                                        
FILENAME DS        CL8                   
FILETYPE DS        CL8                                             
FILEMODE DS        CL2                                             
*                                                                  
IOAREA   DS        CL80                                            
*                                                                  
DESTINA  DS        0D                                              
         DC        CL8'CP      '                                   
         DC        CL8'SPOOL   '                                   
         DC        CL8'PUN     '                                   
         DC        CL8'TO      '                                   
MAQUINA  DC        CL8'        '                                   
         DC        CL8'CONT    '                                   
         DC        8X'FF'                                          
*                                                                  
CLOSEP   DS        0D                                              
         DC        CL8'CP      '                                   
         DC        CL8'CLOSE   '                                   
         DC        CL8'PUN     '                                   
PURGE    DC        8X'FF'                                          
         DC        8X'FF'                                          
*                                                                  
SPCLOSE  DS        0D                                              
         DC        CL8'CP  '                                       
         DC        CL8'SPOOL '                                     
         DC        CL8'PUN   '                                     
         DC        CL8'CLOSE '                                     
         DC        CL8'NOCONT'                                     
         DC        8X'FF'                                          
*                                                                  
FSCB1    FSCB      'XXXXXXXX JCL  A',BUFFER=IOAREA,BSIZE=80,FORM=E 
*                             
         FSCBD                
*                             
         END       PUNCHA     
 
 
After compiled, the MODULE show this :
 
PUNCHA   MODULE   A1  V 688  Trunc=688 Size=3 Line=1 Col=
===>                                                     
     ....+...65....+...66....+...67....+...68....+..>69..
   1                                                     
   2 """"""""""""""""""""""""RDBUF   SYSTEM  VSELAB""   
 
The VSELAB is the name of the machine that can't appear into MODULE. 
 
So, We think use something like this :
 
TAB        DC   CL'ABCDEFGHIJKLMNOPQRSTUVXYWZ12345',
 
And then , move field by field indexind, to CMS MACHINE, but not sure if this 
is the good way, and also,
I have some difficulty for do this.
 
Any comments, or suggest please ?
Or someone have a similar routine that do this?
 
 
Thanks very much.
 
Sergio Lima Costa