200-byte PARM field with EXECPGM

Freeware Page
//CBTTAPEJ JOB (ACCT#),EXECPGMJ, // NOTIFY=&SYSUID, // CLASS=A,MSGCLASS=X,COND=(0,NE) //* //JOBLIB DD DSN=CBTTAPE.FILE183.LOAD(EXECPGM),DISP=SHR //* //BIGPARM EXEC PGM=IKJEFT01 //SYSLIB DD DSN=CBTTAPE.FILE183.PDS(STRING),DISP=SHR // DD DSN=SYS1.MACLIB(YREGS),DISP=SHR //SYSTSPRT DD SYSOUT=* //ASMPRINT DD SYSOUT=* SYSPRINT Assembler //CBLPRINT DD SYSOUT=* SYSPRINT COBOL //LDRPRINT DD SYSOUT=* SYSPRINT LOADER //SYSOUT DD SYSOUT=* DISPLAY COBOL/Assembler //SYSTSIN DD * /***********************************************/ /* HLASM with 200-byte PARM */ /***********************************************/ EXECPGM ASMA90 + SYSIN(ASMIN) + SYSPRINT(ASMPRINT) + PARM(OBJECT,NODECK,+ SYSPARM(111111111111111111111111111111111111111111111,+ 222222222222222222222222222222222222222222222222222,+ 333333333333333333333333333333333333333333333333333,+ '444444444444444444444444444444444444444444444444444)') EXECPGM LOADER SYSPRINT(LDRPRINT) + PARM(PRINT/111111111111111111111111111111111111111111111,+ 222222222222222222222222222222222222222222222222222,+ 333333333333333333333333333333333333333333333333333,+ 444444444444444444444444444444444444444444444444444) /***********************************************/ /* COBOL with 200-byte PARM */ /***********************************************/ EXECPGM IGYCRCTL + SYSIN(CBLIN) + SYSPRINT(CBLPRINT) + PARM(OBJECT,NODECK,NOLIB,NOTERM,NOSEQ,NODYN,NONAME,NUMPROC(MIG),+ NOOPT,RENT,DATA(24),ADV,APOST,AWO,ZWB,TRUNC(STD),+ TRUNC(OPT),'FLAG(I,E)',NOLIST,NOMAP,NOOFFSET,NOXREF,+ SIZE(MAX),BUF(32760)) EXECPGM LOADER SYSPRINT(LDRPRINT) SYSLIB(SCEELKED) + PARM(PRINT/111111111111111111111111111111111111111111111,+ 222222222222222222222222222222222222222222222222222,+ 333333333333333333333333333333333333333333333333333,+ 444444444444444444444444444444444444444444444444444) /* //ASMIN DD * SYSIN Assembler &LEN SETA K'&SYSPARM MNOTE 'LEN=&LEN &SYSPARM' BEGIN BAKR R14,0 BALR R12,0 USING *,R12 L R2,0(,1) A(PARM) LH R3,0(,2) L'PARM OPEN (SYSOUT,OUTPUT) STRING 'SYSPARM LEN=',((R3),,L),1X,'&SYSPARM',INTO=BIGPARM PUT SYSOUT,BIGPARM STRING 'ASMPGM LEN=',((R3),,L),1X,(2(R2),(R3)),INTO=BIGPARM PUT SYSOUT,BIGPARM SLR R15,R15 RC=0 PR SYSOUT DCB DSORG=PS,DDNAME=SYSOUT,MACRF=PM,LRECL=255 BIGPARM DS CL2000 STRING GENERATE YREGS R0-R15 END BEGIN /* //CBLIN DD * SYSIN COBOL id division. program-id. bigparm. data division. linkage section. 01 parm. 05 parm-len pic s9999 binary. 05 parm-text pic X(9999). procedure division using parm. display 'COBOL parm length is ' parm-len. display 'COBOL PARM text is ' parm-text(1:parm-len). goback. /* //SYSUT1 DD UNIT=VIO,SPACE=(CYL,1) //SYSUT2 DD UNIT=VIO,SPACE=(CYL,1) //SYSUT3 DD UNIT=VIO,SPACE=(CYL,1) //SYSUT4 DD UNIT=VIO,SPACE=(CYL,1) //SYSUT5 DD UNIT=VIO,SPACE=(CYL,1) //SYSUT6 DD UNIT=VIO,SPACE=(CYL,1) //SYSUT7 DD UNIT=VIO,SPACE=(CYL,1) //SYSLIN DD UNIT=VIO,SPACE=(CYL,1),BLKSIZE=3200 //SCEELKED DD DSN=CEE.SCEELKED,DISP=SHR LE