Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;RPGLIB.CTL		%EDIT=1
;
;USED TO MAKE RPGLIB.SHR, FROM SOURCE FILES
;
;SUBMIT WITH THE COMMAND	.SUBMIT RPGLIB/TIME:10000
;
;
;REQUIRED FILES:
;
;	ON SYS:
;		MACRO.SHR
;		LINK.SHR+LNK???.SHR
;		MAKLIB.SHR OR FUDGE2.SHR
;		CREF.SHR
;		PIP.SHR
;		DIRECT.SHR
;
;	IN USER'S AREA:
;
@ERROR %
@TYPE LISTEM.MAC
@IF (NOERROR) GOTO LISTEM
@ERROR
LISTEM::
@ERROR
;ASSEMBLE SOURCES WITH LISTINGS
@MACRO
*RPGASM,RPGASM/C=RPGASM
*INTERM,INTERM/C=INTERM
*RPGPRM,RPGPRM/C=RPGPRM
*COMUNI,COMUNI/C=COMUNI
*CHREQV,CHREQV/C=CHREQV
*NUMEQV,NUMEQV/C=NUMEQV
*FLGDF,FLGDF/C=FLGDF
*RPGSWI,RPGSWI/C=RPGSWI
*FTDEFS,FTDEFS/C=FTDEFS
@MACRO	; RESTART TO AVOID MCRTMU
*CBLIO,CBLIO/C=TTY:,DSK:CBLIO
*%%RPG==1		; MAKE RPGII VERSION
*TOPS20==1		; MAKE DEC-SYSTEM-20 VERSION
=
@MACRO
*CDD,CDD/C=CDD
*COMP,COMP/C=COMP
*DEBUG,DEBUG/C=DEBUG
*DIV11,DIV11/C=DIV11
*DPADD,DPADD/C=DPADD
*DPDIV,DPDIV/C=DPDIV
*DPMUL,DPMUL/C=DPMUL
*DPSUB,DPSUB/C=DPSUB
*DSPLY,DSPLY/C=DSPLY
*EASTBL,EASTBL/C=EASTBL
*EDIT,EDIT/C=EDIT
*GC,GC/C=GC
*GD,GD/C=GD
*MAGNEG,MAGNEG/C=MAGNEG
*MOVE,MOVE/C=MOVE
*MOVSGN,MOVSGN/C=MOVSGN
*PC,PC/C=PC
*PD,PD/C=PD
@MACRO	; RESTART AGAIN TO AVOID BLOW-UP
*RPGIO,RPGIO/C=RPGIO
*RPGIMP,RPGIMP/C=RPGIMP
RPGM::
@MACRO
*RPGMAN,RPGMAN/C=RPGMAN
*RPGPUR,RPGPUR/C=RPGPUR
SETR::
@MACRO	; RESTART MACRO TO AVOID MCRTMU TOO MANY UNIVERSALS
*SETRET,SETRET/C=SETRET
*SPAC,SPAC/C=SPAC
*SQRT,SQRT/C=SQRT
*SUBSCR,SUBSCR/C=SUBSCR
*UUOHAN,UUOHAN/C=UUOHAN
@RU SYS:CREF
*CBLIO.LST=CBLIO
*CHREQV.LST=CHREQV
*CDD.LST=CDD
*COMP.LST=COMP
*COMUNI.LST=COMUNI
*DEBUG.LST=DEBUG
*DIV11.LST=DIV11
*DPADD.LST=DPADD
*DPDIV.LST=DPDIV
*DPMUL.LST=DPMUL
*DPSUB.LST=DPSUB
*DSPLY.LST=DSPLY
*EASTBL.LST=EASTBL
*EDIT.LST=EDIT
*FLGDF.LST=FLGDF
*FTDEFS.LST=FTDEFS
*GC.LST=GC
*GD.LST=GD
*INTERM.LST=INTERM
*MAGNEG.LST=MAGNEG
*MOVE.LST=MOVE
*MOVSGN.LST=MOVSGN
*NUMEQV.LST=NUMEQV
*PC.LST=PC
*PD.LST=PD
*RPGASM.LST=RPGASM
*RPGIO.LST=RPGIO
*RPGIMP.LST=RPGIMP
*RPGMAN.LST=RPGMAN
*RPGPUR.LST=RPGPUR
*RPGPRM.LST=RPGPRM
*RPGSWI.LST=RPGSWI
*SETRET.LST=SETRET
*SPAC.LST=SPAC
*SQRT.LST=SQRT
*SUBSCR.LST=SUBSCR
*UUOHAN.LST=UUOHAN
LOADM::
;LOAD RPGLIB
@RU SYS:LINK
*RPGLB.LOG/LOG/LOGLEVEL:1
*/HASHSIZE:1021
*RPGLIB/MAP=RPGIMP,RPGPUR,RPGIO,RPGMAN,EDIT,UUOHAN,MAGNEG,PD,GD,PC,GC,DIV11,DPADD,DPSUB,DPMUL,DPDIV,COMP,EASTBL,DSPLY,SETRET,SUBSCR,SPAC,SQRT,CDD,MOVE,MOVSGN,CBLIO,DEBUG
*/RUNAME:RPGLIB/GO
@SAVE RPGLIB
DONE::