Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : PROGEN32.ZIP
Filename : PROGPROC.PRG

************************************************************* ProgProc.PRG
* --------------------------------------- Procedures for program generator
**************************************************************************

PROCEDURE FlDisp
PARAMETERS DbName

USE &DbName
CLEAR
Lines = 1
DO WHILE (.NOT. EOF()) .AND. (Lines <= 6)
Counter = 1
DO WHILE Counter <= 6 .AND. .NOT. EOF()
?? Field_Name + SPACE(3)
SKIP
Counter = Counter + 1
ENDDO
?
Lines = Lines + 1
ENDDO
RETURN
**************************************************************************

PROCEDURE RepCreate
PARAMETERS DbName, RepFile

USE &DbName
Error = .T.
DO WHILE Error
Error = .F.
RepFile = UPPER(RepFile)
Spot = AT(".",RepFile)
Exten = SUBSTR(RepFile,Spot+1,3)
DO CASE
CASE Exten = "FRM"
MODIFY REPORT &RepFile
CASE Exten = "LBL"
MODIFY LABEL &RepFile
CASE Exten = "PRG"
MODIFY COMMAND &RepFile
OTHERWISE
? "Improper filename extension: &Exten"
? "Must be .FRM, .LBL, or .PRG"
?
Error = .T.
? "Re-enter report file name
ACCEPT "with extension" TO RepFile
ENDCASE
ENDDO
CLOSE DATABASES
RETURN
**************************************************************************

PROCEDURE Proper
PARAMETERS String

String = UPPER(SUBSTR(String,1,1))+LOWER(SUBSTR(String,2,LEN(String)-1))
IF "." $ String
Spot = AT(".",String)
String = SUBSTR(String,1,Spot-1) + ;
UPPER(SUBSTR(String,Spot,LEN(String)-Spot+1))
ENDIF
RETURN