home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
iclvme2900
/
vmebld.scl
< prev
next >
Wrap
Text File
|
2020-01-01
|
3KB
|
96 lines
BEGIN
WHENEVER
RESULT GT 0 +_
THEN +_
SEND_RESULT_MESSAGE (RES = RESULT,
ACT = "QUIT()")
FI
INT KMT_SRC, KMT_OMF, KMT_REL
ASSIGN_LIBRARY (NAM = KERMIT.SOURCE,
LNA = KMT_SRC)
ASSIGN_LIBRARY (NAM = KERMIT.OMF,
LNA = KMT_OMF)
ASSIGN_LIBRARY (NAM = KERMIT.REL,
LNA = KMT_REL)
BEGIN
DELETE_FILE (NAM = *KMT_OMF.KMT_DATA_MODULE(101))
DELETE_FILE (NAM = *KMT_OMF.KMT_DH_MODULE(101))
DELETE_FILE (NAM = *KMT_OMF.KMT_EH_MODULE(101))
DELETE_FILE (NAM = *KMT_OMF.KMT_FH_MODULE(101))
DELETE_FILE (NAM = *KMT_OMF.KMT_HELP_MTM(101))
DELETE_FILE (NAM = *KMT_OMF.KMT_MAIN_MODULE(101))
DELETE_FILE (NAM = *KMT_OMF.KMT_PH_MODULE(101))
DELETE_FILE (NAM = *KMT_OMF.KMT_PP_MODULE(101))
DELETE_FILE (NAM = *KMT_OMF.KMT_SP_MODULE(101))
DELETE_FILE (NAM = *KMT_OMF.KMT_SP_MTM(101))
DELETE_FILE (NAM = *KMT_OMF.KMT_UI_MODULE(101))
DELETE_FILE (NAM = *KMT_REL.KERMIT(101))
DELETE_FILE (NAM = *KMT_REL.KERMIT_MODULE(101))
END
S3_COMPILE_DEFAULTS (LIS = OBJECT & XREF,
DIS = ERRORLINES)
S3_COMPILE (INP = *KMT_SRC.KMT_DATA_MODULE(101),
OMF = *KMT_OMF.KMT_DATA_MODULE(101))
S3_COMPILE (INP = *KMT_SRC.KMT_DH_MODULE(101),
OMF = *KMT_OMF.KMT_DH_MODULE(101))
S3_COMPILE (INP = *KMT_SRC.KMT_EH_MODULE(101),
OMF = *KMT_OMF.KMT_EH_MODULE(101))
S3_COMPILE (INP = *KMT_SRC.KMT_FH_MODULE(101),
OMF = *KMT_OMF.KMT_FH_MODULE(101))
NEW_MESSAGE_TEXT_MODULE (CON = *KMT_SRC.KMT_HELP_MTM(101),
OMF = *KMT_OMF.KMT_HELP_MTM(101))
S3_COMPILE (INP = *KMT_SRC.KMT_MAIN_MODULE(101),
OMF = *KMT_OMF.KMT_MAIN_MODULE(101))
S3_COMPILE (INP = *KMT_SRC.KMT_PH_MODULE(101),
OMF = *KMT_OMF.KMT_PH_MODULE(101))
S3_COMPILE (INP = *KMT_SRC.KMT_PP_MODULE(101),
OMF = *KMT_OMF.KMT_PP_MODULE(101))
S3_COMPILE (INP = *KMT_SRC.KMT_SP_MODULE(101),
OMF = *KMT_OMF.KMT_SP_MODULE(101))
NEW_MESSAGE_TEXT_MODULE (CON = *KMT_SRC.KMT_SP_MTM(101),
OMF = *KMT_OMF.KMT_SP_MTM(101))
S3_COMPILE (INP = *KMT_SRC.KMT_UI_MODULE(101),
OMF = *KMT_OMF.KMT_UI_MODULE(101))
COLLECT ()
----
INPUT(*KMT_OMF.KMT_DATA_MODULE(101) &
*KMT_OMF.KMT_DH_MODULE(101) &
*KMT_OMF.KMT_EH_MODULE(101) &
*KMT_OMF.KMT_FH_MODULE(101) &
*KMT_OMF.KMT_HELP_MTM(101) &
*KMT_OMF.KMT_MAIN_MODULE(101) &
*KMT_OMF.KMT_PH_MODULE(101) &
*KMT_OMF.KMT_PP_MODULE(101) &
*KMT_OMF.KMT_SP_MODULE(101) &
*KMT_OMF.KMT_SP_MTM(101) &
*KMT_OMF.KMT_UI_MODULE(101))
NEWMODULE(*KMT_REL.KERMIT_MODULE(101))
SUPPRESS
RETAIN(KERMIT_THE_FROG)
LISTMODULE
PERFORM
++++
COMPILE_SCL (INP = *KMT_SRC.KERMIT(101),
OUT = *KMT_REL.KERMIT(101),
COD = NOTIFWARNINGS,
OPT = FIL)
END