I guess this is to stop the no-so-smart. The first thing that comes to mind is
to make some slight changes to cause confusion:
You have:
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'
Simple change:
MVC MAQUINA+3(1),=XL1'D3'
MVC MAQUINA+4(1),=XL1'C1'
MVC MAQUINA+5(1),=XL1'C2'
MVC MAQUINA+0(1),=XL1'E5'
MVC MAQUINA+1(1),=XL1'E5'
MVC MAQUINA+2(1),=XL1'E2'
What shows up in the module would be: LABVSE. Looks reasonable, doesn't it?
Now, to really mess up their minds: create a guest machine with that name.
Monitor who actually sends something to it. Then beat them with an appropriate
stick for being an idiot.
If you want to simply disguise the name, then I'd likely do something simple,
such as:
MVC MAQUINA+0(1),=XL1'05'
MVC MAQUINA+1(1),=XL1'12'
MVC MAQUINA+2(1),=XL1'25'
MVC MAQUINA+3(1),=XL1'33'
MVC MAQUINA+4(1),=XL1'41'
MVC MAQUINA+5(1),=XL1'52'
L 0,MAQUINA
AL 0,=X'E0D0A0A0'
ICM 0,B'0101',MAQUINA+4
AL 0,=X'10802070'
STCM 0,B'0101',MAQUINA+4
This last is a bit nasty to the casual observer. Especially the use of the ICM
to make the bytes in the second part of the name not be next to each other. And
putting in the unused data in the AL instruction which don't matter and which
does nothing in particular, will really mess up someone's mind
But a smarty could still disassemble the module and do the instructions by hand
to try to figure out what is going on. Either kill them or hire them as a
forensic technician.
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original message.
HealthMarkets(r) is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The
MEGA Life and Health Insurance Company.SM
________________________________
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf
Of Sergio Lima
Sent: Monday, January 03, 2011 12:57 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Assembler Question
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
