How about
MVC MAQUINA(8),=xl8'0502050301020000'
OC MAQUINA(8),=Xl8'e0e0c0d0c0c04040'
Tony Thigpen
-----Original Message -----
From: Sergio Lima
Sent: 01/03/2011 01:56 PM
> 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
