On 11/26/2018 3:14 AM, Sean Gleann wrote:
... Bumping the parm value to 1G was enough to get the test through, but I'm still arguing for all such limits to be removed - "let the system sort itself out, don't try and 'second guess' things..."
Haha! Remove all memory constraints and take bets to see who gets fired first when some pimply-faced college kid with a sense of humor submits this tiny program just to see if the "fabled" mainframe is as resilient as people claim... LOL
//SEANFUN JOB 1,SEANFUN,CLASS=A,MSGCLASS=T,MEMLIMIT=NOLIMIT,TIME=NOLIMIT //STEPLIB DD DSN=SEAN.TEST.LOAD,DISP=SHR // EXEC PGM=SEANFUN // SEANFUN CSECT , SEANFUN AMODE 64 SEANFUN RMODE 31 LARL 12,SEANFUN USING SEANFUN,12 IARV64 REQUEST=GETSTOR, Request boatloads TYPE=PAGEABLE, .Pageable storage SEGMENTS=Segments, .Number of 1M pages PAGEFRAMESIZE=PAGEABLE1MEG, Prefer 1M frames ORIGIN=Origin .Return address location LG 0,Origin Point to storage LG 1,Segments Compute its length SLAG 1,1,20 (same) LA 14,Message Point to fun message LGHI 15,L'Message Get message length COPYFUN MVCLE 0,14,C' ' Copy fun message JO COPYFUN (same) DC H'0' <-- haha! it's doubtful this halfword will * be executed in any z/OS system in the * world. but, if it ever does, it will * die with an 0C1! LOL Origin DC AD(0) Segments DC AD(X'0FFFFFFF') Message DC C'What Now, Bruh? LOL' END SEANFUN -- Phoenix Software International Edward E. Jaffe 831 Parkview Drive North El Segundo, CA 90245 https://www.phoenixsoftware.com/ -------------------------------------------------------------------------------- This e-mail message, including any attachments, appended messages and the information contained therein, is for the sole use of the intended recipient(s). If you are not an intended recipient or have otherwise received this email message in error, any use, dissemination, distribution, review, storage or copying of this e-mail message and the information contained therein is strictly prohibited. If you are not an intended recipient, please contact the sender by reply e-mail and destroy all copies of this email message and do not otherwise utilize or retain this email message or any or all of the information contained therein. Although this email message and any attachments or appended messages are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by the sender for any loss or damage arising in any way from its opening or use. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
