//ISTINCLM JOB 1, // 'JAFFE', /*OPER*/ // MSGLEVEL=(1,1), // MSGCLASS=T, // NOTIFY=&SYSUID, // TIME=NOLIMIT //*MAIN CLASS=GENERATE //C EXEC PGM=ASMA90, // PARM=(NODECK,OBJECT) //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR // DD DSN=SYS1.MODGEN,DISP=SHR // DD DSN=SYS1.SISTMAC1,DISP=SHR // DD DSN=SYS1.SAMPLIB,DISP=SHR //SYSUT1 DD DSN=&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO, // DCB=BUFNO=1 //SYSPRINT DD SYSOUT=* //SYSIN DD * MACRO , .***************************************************************** .* DUMMY MACRO TO SUPPRESS MODETAB IN SAMPLIB(ISTINCLM) * .***************************************************************** &LABEL NOMTAB , MEND , ISTINCLM MODETAB , TITLE 'P4362132' ****************************************************************** * 43X80 AND 62X132 * ****************************************************************** P4362132 MODEENT LOGMODE=P4362132, + FMPROF=X'03',TSPROF=X'03', + PRIPROT=X'B1',SECPROT=X'90',COMPROT=X'3080', + RUSIZES=X'87F8',APPNCOS=#CONNECT, + PSERVIC=X'0280000000002B503E847F00' TITLE 'P4527132' ****************************************************************** * 45X80 AND 27X132 * ****************************************************************** P4527132 MODEENT LOGMODE=P4527132, + FMPROF=X'03', + TSPROF=X'03', + PRIPROT=X'B1', + SECPROT=X'90', + COMPROT=X'3080', + RUSIZES=X'87F8', + PSERVIC=X'0280000000002D501B847F00', + APPNCOS=#CONNECT TITLE 'P5162132' ****************************************************************** * 51X80 AND 62X132 * ****************************************************************** P5162132 MODEENT LOGMODE=P5162132, + FMPROF=X'03',TSPROF=X'03', + PRIPROT=X'B1',SECPROT=X'90',COMPROT=X'3080', + RUSIZES=X'87F8',APPNCOS=#CONNECT, + PSERVIC=X'02800000000033503E847F00' TITLE 'P5362132' ****************************************************************** * 53X80 AND 62X132 * ****************************************************************** P5362132 MODEENT LOGMODE=P5362132, + FMPROF=X'03', + TSPROF=X'03', + PRIPROT=X'B1', + SECPROT=X'90', + COMPROT=X'3080', + RUSIZES=X'87F8', + PSERVIC=X'02800000000035503E847F00', + APPNCOS=#CONNECT TITLE 'P6062132' ****************************************************************** * 60X80 AND 60X132 * ****************************************************************** P6060121 MODEENT LOGMODE=P6060121, + FMPROF=X'03', + TSPROF=X'03', + PRIPROT=X'B1', + SECPROT=X'90', + COMPROT=X'3080', + RUSIZES=X'87F8', + PSERVIC=X'0280000000003C503C797F00', + APPNCOS=#CONNECT TITLE 'P6262132' ****************************************************************** * 62X80 AND 62X132 * ****************************************************************** P6262132 MODEENT LOGMODE=P6262132, + FMPROF=X'03',TSPROF=X'03', + PRIPROT=X'B1',SECPROT=X'90',COMPROT=X'3080', + RUSIZES=X'87F8',APPNCOS=#CONNECT, + PSERVIC=X'0280000000003E503E847F00' TITLE 'P9090132' ****************************************************************** * 90X80 AND 90X132 * ****************************************************************** P9090132 MODEENT LOGMODE=P9090132, + FMPROF=X'03', + TSPROF=X'03', + PRIPROT=X'B1', + SECPROT=X'90', + COMPROT=X'3080', + RUSIZES=X'87F8', + PSERVIC=X'0280000000005A505A847F00', + APPNCOS=#CONNECT TITLE 'D4A32XX4' ********************************************************************** * * * 3270 EMULATOR (LOCAL SNA) * * PRIMARY SCREEN TO BE DETERMINED BY APPLICATION * * ALTERNATE SCREEN TO BE DETERMINED BY APPLICATION * * * ********************************************************************** D4A32XX4 MODEENT LOGMODE=D4A32XX4,FMPROF=X'03',TSPROF=X'03',PRIPROT=X'B* 1',SECPROT=X'90',COMPROT=X'3080',RUSIZES=X'87C7',PSERVIC* =X'028000000000000000000400',APPNCOS=#CONNECT TITLE 'D4B32XX4' ********************************************************************** * * * 3270 EMULATOR (NON-SNA) * * PRIMARY SCREEN TO BE DETERMINED BY APPLICATION * * ALTERNATE SCREEN TO BE DETERMINED BY APPLICATION * * * ********************************************************************** D4B32XX4 MODEENT LOGMODE=D4B32XX4,FMPROF=X'02',TSPROF=X'02',PRIPROT=X'7* 1',SECPROT=X'40',COMPROT=X'2000',RUSIZES=X'0000',PSERVIC* =X'008000000000000000000300',APPNCOS=#CONNECT TITLE 'D4C32XX4' ********************************************************************** * * * 3270 EMULATOR (REMOTE SNA) * * PRIMARY SCREEN TO BE DETERMINED BY APPLICATION * * ALTERNATE SCREEN TO BE DETERMINED BY APPLICATION * * * ********************************************************************** D4C32XX4 MODEENT LOGMODE=D4C32XX4,FMPROF=X'03',TSPROF=X'03',PRIPROT=X'B* 1',SECPROT=X'90',COMPROT=X'3080',RUSIZES=X'87F8',PSERVIC* =X'028000000000000000000300',APPNCOS=#CONNECT TITLE 'D4A32XX0' ********************************************************************** * * * 3270 EMULATOR (LOCAL SNA) * * PRIMARY SCREEN TO BE DETERMINED BY APPLICATION * * ALTERNATE SCREEN TO BE DETERMINED BY APPLICATION * * * ********************************************************************** D4A32XX0 MODEENT LOGMODE=D4A32XX0, + FMPROF=X'03',TSPROF=X'03', + PRIPROT=X'B1',SECPROT=X'90',COMPROT=X'3080', + RUSIZES=X'87C7',APPNCOS=#CONNECT, + PSERVIC=X'028000000000000000000000' TITLE 'D4B32XX0' ********************************************************************** * * * 3270 EMULATOR (NON-SNA) * * PRIMARY SCREEN TO BE DETERMINED BY APPLICATION * * ALTERNATE SCREEN TO BE DETERMINED BY APPLICATION * * * ********************************************************************** D4B32XX0 MODEENT LOGMODE=D4B32XX0, + FMPROF=X'02',TSPROF=X'02', + PRIPROT=X'71',SECPROT=X'40',COMPROT=X'2000', + RUSIZES=X'0000',APPNCOS=#CONNECT, + PSERVIC=X'008000000000000000000000' TITLE 'D4C32XX0' ********************************************************************** * * * 3270 EMULATOR (REMOTE SNA) * * PRIMARY SCREEN TO BE DETERMINED BY APPLICATION * * ALTERNATE SCREEN TO BE DETERMINED BY APPLICATION * * * ********************************************************************** D4C32XX0 MODEENT LOGMODE=D4C32XX0, + FMPROF=X'03',TSPROF=X'03', + PRIPROT=X'B1',SECPROT=X'90',COMPROT=X'3080', + RUSIZES=X'87F8',APPNCOS=#CONNECT, + PSERVIC=X'028000000000000000000000' PSIMTAB OPSYN MODETAB MODETAB OPSYN NOMTAB COPY ISTINCLM //SYSLIN DD DSN=&OBJ,SPACE=(3040,(40,40),,,ROUND),UNIT=VIO, // DISP=(MOD,PASS), // DCB=(BLKSIZE=3040,LRECL=80,RECFM=FBS,BUFNO=1) //L EXEC PGM=IEWL,COND=(5,LT,C), // PARM='LIST=SUMMARY,LET,XREF,MAP,RENT,REUS,REFR' //SYSLIB DD DSN=SYS1.VTAMLIB,DISP=SHR //SYSLIN DD DSN=&OBJ,DISP=(OLD,DELETE) //SYSLMOD DD DSN=SYS2.VTAMLIB(ISTINCLM),DISP=SHR //SYSUT1 DD DSN=&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=SYSDA, // DCB=BUFNO=1 //SYSPRINT DD SYSOUT=* //