//MYASMJOB JOB (ACCT),NAME,CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) //********************************************************************* //ASMCG PROC //ASM EXEC PGM=ASMA90, // PARM='OBJ,NODECK,XREF(SHORT),TERM' //SYSLIB DD DISP=SHR,DSN=&SYSUID..ASM // DD DISP=SHR,DSN=SYS1.MACLIB //SYSUT1 DD UNIT=SYSALLDA,SPACE=(TRK,(10,10)) //SYSLIN DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(TRK,(1,1),RLSE), // DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80) //SYSPRINT DD SYSOUT=* //SYSTERM DD SYSOUT=* //GO EXEC PGM=LOADER,COND=(5,LT,ASM), // PARM='LIST,LET,MAP,XREF' //SYSLOUT DD SYSOUT=* //SYSLIN DD DSN=*.ASM.SYSLIN,DISP=(OLD,DELETE) //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* // PEND //********************************************************************* //MYASMPGM EXEC ASMCG,PARM.GO='/PARAMETER STRING' //ASM.SYSIN DD * @EDUCNTL BEGIN EXPAND CNTL CODE, NEVER CHANGE/MODIFY THIS STMT *********************************************************************** * AVAILABLE YOUR ASSEMBLER LANGUAGE CODE AT HERE. * * ===================================================== * * GR1 ---> AS ENTRY POINT(PLIST FOR EXEC PARAMETER) * * GR13 --> BASE REGISTER AND OUR REGISTER SAVEAREA * *********************************************************************** * ここに実行したい機械命令コードを書いて下さい。 *=====================================================================* EXITPROC DS 0H EXIT PROCEDURE AT HERE @EDUCNTL EXIT EXPAND CNTL CODE, NEVER CHANGE/MODIFY THIS STMT *=====================================================================* YOURDATA DS 0D USER DATA AREA START AT HERE DC C'BGN OF YOUR DATA' * ここに機械命令で参照するデータを書いて下さい。 DC C'END OF YOUR DATA' *********************************************************************** @EDUCNTL END EXPAND CNTL CODE, NEVER CHANGE/MODIFY THIS STMT *********************************************************************** *------- YREGS , EXPAND GPR EQUATIONS(z/OS ONLY) END // //