My own personal favorite was to use six-bit encoding - 8 bytes will fit into 6, so it works well for this problem. Of course, it needs to be decoded before issuing the MVC, which could be done in a sub-program or within the program itself.
David Wakser From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of McKown, John Sent: Monday, January 03, 2011 2:36 PM To: IBMVM@LISTSERV.UARK.EDU Subject: Re: Assembler Question 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 Confidentiality Note: This e-mail, including any attachment to it, may contain material that is confidential, proprietary, privileged and/or "Protected Health Information," within the meaning of the regulations under the Health Insurance Portability & Accountability Act as amended. If it is not clear that you are the intended recipient, you are hereby notified that you have received this transmittal in error, and any review, dissemination, distribution or copying of this e-mail, including any attachment to it, is strictly prohibited. If you have received this e-mail in error, please immediately return it to the sender and delete it from your system. Thank you.
