; THIS IS THE PROGRAM TO CREATE A STANDARDIZED "SHELL" FOR ANY
; FLEX PROGRAM.
;
.ASK ANS DO YOU WANT TO CONTINUE
.IFF ANS .GOTO 999
;
.ASKS GROUP ENTER GROUP CODE OF UIC
.ASKS PROG ENTER PROGRAM NAME.
.ASKS DESC ENTER ONE LINE PROGRAM DESCRIPTION
.ASKS[0:6] VER ENTER THE VERSION NUMBER
.ASKS NAME ENTER PROGRAMMER NAME
.ENABLE SUBSTITUTION
.OPEN #0 DP2:['GROUP',3]'PROG'.FLX
.ENABLE DATA
C * * * * * * * * * * * * * *  'PROG'  * * * * * * * * * * * * * * *
C
C	'PROG' -- 'DESC'
C
C	VERSION	'VER'
C
C	ORIGINAL PROGRAMMER	'NAME'
C
C	LAST CHANGE -- BY
C
C ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
 
	PROGRAM 'PROG'
 
 
	DEFINE-CONSTANTS
 
	SET-UP-FILES
 
	CALL EXIT
 
 
	TO DEFINE-CONSTANTS
 
	FIN
 
 
	TO SET-UP-FILES
 
	FIN
 
 
	END
.DISABLE DATA
.CLOSE #0
;
.OPEN #0 DP2:['GROUP',3]'PROG'.CMD
.ENABLE DATA
['GROUP',1]'PROG'='PROG',[1,1]CSP2/LB,CSP/LB
/
UNITS=*
ACTFIL=*
LIBR=FORRES:RO
COMMON=CPPCOM:RO
UIC=['GROUP','GROUP']
ASG=
/
.DISABLE DATA
.CLOSE #0
;
.OPEN #0 DP2:['GROUP',3]'PROG'.CMM
.ENABLE DATA
FLE 'PROG',LP:=DP2:'PROG'
FOR 'PROG'='PROG'
TKB @DP2:'PROG'
PIP 'PROG'.*;*/DE
.DISABLE DATA
.CLOSE #0
;
.999:
;