home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
mvssrc.zip
/
$$MAKE
< prev
next >
Wrap
Text File
|
1992-04-13
|
4KB
|
97 lines
PROC 2 GMBR GDSN
/*===================================================================*/
/* IBM C MAKE clist. This will compile and link edit a basic */
/* IBM C program. */
/* */
/* NOTE: if the member name ENDS with "PTSK", it is assumed that */
/* the module is intended to be an MTF subtask module and */
/* the appropriate parallel functions load module linkedited */
/* with it. */
/* */
/* The IBM/C TCP/IP include file is part of this compile */
/* deck. */
/*===================================================================*/
GLOBAL GCHAR
NGLOBAL MBR,DSN,JOB,NOTIFY,OBJDSN,CLASS,OPTI,CFLAGS,DEBUG,SN,A31,A24
NGLOBAL PGM,SYSLMOD,AUTOSAVE,LNKTAO,LNKUD,LNKSA,COMPDEV,MTFSUBT
SET MBR =&NRSTR(&GMBR) /* So we can 'NGLOBAL' the name */
SET DSN =&NRSTR(&GDSN) /* " " */
/*===================================================================*/
/* Define the various options we want. */
/*===================================================================*/
%NEXTCHAR
SET PGM =&MBR /* Program name */
SET SYSLMOD=SYS0008.USER.LOADLIB /* Linkedit target */
SET JOB =&NRSTR(&SYSUID)&GCHAR /* How to name the jobs */
SET NOTIFY =&SYSUID /* Notify target */
SET OBJDSN =SYS0008.USER.OBJ /* Where the objects go */
SET CLASS =1 /* Job class */
/*SET OPTI =OPTIM,TI,INLO /* Optimize options */
SET OPTI = /* Optimize options */
SET CFLAGS =REQ,BI(1),NOTRA /* General compiler flags */
SET DEBUG = /* Debug options */
SET SN =&NRSTR(&MBR) /* Section name (CSECT name stub)*/
SET A31 =DEF(_AMODE31) /* AMODE defs */
/* SET A24=DEF(_AMODE24)
SET A24=
SET AUTOSAVE=YES /* Do SAVE for specific compiles */
SET SASCVER=C500 /* Middle qualifier for sas/c */
SET LNKTAO=N
SET LNKUD=N
SET LNKSA=N
SET COMPDEV=Y
SET MTFSUBT = N
SET COMPDEV=Y
IF &MBR = TCPSUBR THEN +
DO
SET MBR = TCPIP
SET PGM = TCPIP
END
/*==================================================================*/
/* END OF CUSTOMIZATION VARIABLES */
/*==================================================================*/
SYSCALL ICOMPLNK
/*===================================================================*/
/* COMPILE Procedure. */
/*===================================================================*/
/*===================================================================*/
/* IBM C COMPILE/LINK PROCEDURE. */
/*===================================================================*/
ICOMPLNK: PROC 0
SET TSKST = &LENGTH(&NRSTR(&MBR))-3
IF &TSKST < 1 THEN SET TSKST = 1
IF &SUBSTR(&TSKST:&LENGTH(&MBR),&NRSTR(&MBR)) = PTSK THEN SET MTFSUBT=Y
IF &AUTOSAVE=YES THEN ISREDIT SAVE
IF &LENGTH(&NRSTR(&JOB)) > 8 THEN SET JOB=&SUBSTR(1:8,&NRSTR(&JOB))
XSUBMIT -C
X //&JOB JOB SYSTEMS,SYSTEMS,CLASS=&CLASS,MSGCLASS=X,
X // MSGLEVEL=(1,1),REGION=4096K,NOTIFY=&NOTIFY
X //STEP1 EXEC EDCCL,CREGSIZ=4000K,
X // PARM.COMPILE=('AGGREGATE,SOURCE,NOSEQ,MARGINS(1,72),UPCONV',
X // 'DEFINE(IBMC),DEFINE(MVS)'),
X // PARM.LKED='LIST,MAP,AMODE=31,RMODE=ANY,RENT,REUS'
X //COMPILE.SYSIN DD DSN=&DSN(&MBR),DISP=SHR
X //COMPILE.SYSLIB DD
X // DD DSN=TCPIP.V2R1.COMMMAC,DISP=SHR
X // DD DSN=TCPIP.V2R1.AEZAMAC2,DISP=SHR
X //COMPILE.USERLIB DD DSN=&DSN,DISP=SHR
X //LKED.SYSLIB DD
X // DD
X // DD DSN=TCPIP.V2R1.COMMTXT,DISP=SHR
IF &MTFSUBT=Y THEN +
DO
X //LKED.SYSLIN DD
X // DD *
X MODE AMODE(31) RMODE(31)
X INCLUDE SYSLIB(IUCVFORC)
X INCLUDE SYSLIB(EDCMTFS)
X ENTRY CEESTART
X NAME &PGM(R)
X /*
END
X //LKED.SYSLMOD DD DSN=&SYSLMOD(&PGM),DISP=(SHR,PASS),
X // UNIT=,SPACE=
XEND
END