Hello John. Very creative. I need learn much more. Thanks very much Regards, Sergio
Date: Mon, 3 Jan 2011 13:36:27 -0600 From: [email protected] Subject: Re: Assembler Question To: [email protected] 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® 9151 Boulevard 26 • N. Richland Hills • TX 76010 (817) 255-3225 phone • [email protected] • 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® is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. –The Chesapeake Life Insurance Company®, 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:[email protected]] On Behalf Of Sergio Lima Sent: Monday, January 03, 2011 12:57 PM To: [email protected] 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
