home *** CD-ROM | disk | FTP | other *** search
Clarion Help | 1991-02-14 | 7.2 KB | 224 lines |
- The CLARION Professional Developer
- Manage Directories
- Editor
- Compiler
- Filer
- Helper
- Processor
- Sorter
- Designer
- Translator
- Scanner
- Reporter
- Crossrefer
- Converter
- Director
- Language
- Tailor
- Environment
- This is the Professional Developer tutorial selection screen.
- There are tutorials for each Clarion utility program, as well
- as the Clarion language structure and development environment.
- The Environment tutorial should be viewed first. It begins
- a series of tutorials that should be viewed sequentially.
- Each tutorial within this series recommends its successor.
- The remaining tutorials can be viewed in any order.
- Use the cursor arrow keys to select a tutorial. Then press
- the Enter key to view it. When the tutorial completes, it
- will return to this menu. Press the Esc key to return to
- this menu from any page of a tutorial.
- This is a tutorial for the Clarion Professional Developer.
- You may turn pages manually, or you may have them turned
- automatically for you.
- To continue, please press M for
- manual, A for automatic, or Esc to return to DOS.
- You can change the viewing mode at any time by pressing M for
- manual or A for automatic.
- In either viewing mode, the right arrow key turns to the next
- page, and the left arrow key turns back to the last page. In
- manual viewing mode, the tutorial waits for you to press an
- arrow key. In automatic viewing mode, the tutorial gives you
- time to read a page then turns to the next page automatically.
- You can speed up the tutorial by pressing the gray + key, or
- slow it down by pressing the gray - key. You can terminate a
- tutorial by pressing the Esc key.
- PORDER
- PROGRAM
- IINCLUDE('STD_KEYS.CLA')
- INCLUDE('CTL_KEYS.CLA')
- This is Source Code generated by
- INCLUDE('ALT_KEYS.CLA')
- DESIGNER. This is the beginning
- INCLUDE('SHF_KEYS.CLA')
- of the program, DESIGNER will
- produce CODE by using a template
- REJECT_KEY
- EQUATE(CTRL_ESC)
- contained in a Model file. Note
- ACCEPT_KEY
- EQUATE(CTRL_ENTER)
- the MAP of Modules and Procedures.
- EQUATE(1)
- FALSE
- EQUATE(0)
- OPROC(G_OPENFILES)
- ?MODULE('ORDER01')
- APROC(ORDER_MENU)
- !Order Processing System
- OMODULE('ORDER02')
- APROC(PROCESS)
- !Order Processing
- OMODULE('ORDER03')
- APROC(ORDER_UPDATE)
- !Order Item Entry
- OMODULE('ORDER04')
- 0ORDER.CLA 0:1
- (LIN OVR
- IND CAP NUM
- EJECT('FILE LAYOUTS')
- .CUSTOMER
- FILE,PRE(CUS),CREATE,RECLAIM
- 'CUST_KEY
- KEY(CUS:NUMBER),NOCASE
- NAME_KEY
- KEY(CUS:NAME),DUP,NOCASE
- This section of code contains the
- COMMENT
- MEMO(90)
- File Definitions. CLARION allows
- RECORD
- RECORD
- selection of field types such as;
- NUMBER
- DECIMAL(4,0)
- BYTE, SHORT, LONG, DECIMAL, REAL,
- CUST_DATE
- STRING AND MEMO. All source code
- STRING(20)
- generated by DESIGNER is fully
- ADDRESS
- STRING(20)
- commented.
- CITY_STATE
- STRING(20)
- DECIMAL(5,0)
- 3CONTACT
- STRING(30)
- !Customer Contact
- PHONE
- DECIMAL(10,0)
- !Customer Telephone Number
- MGROUP,OVER(CUS:COMMENT)
- ,CUS_MEMO_ROW
- STRING(45),DIM(2)
- ORDERS
- FILE,PRE(ORD),CREATE,RECLAIM
- 'ORDER_KEY
- KEY(ORD:CUSTOMER,ORD:ORDER),DUP,NOCASE
- RECORD
- RECORD
- ;CUSTOMER
- DECIMAL(4,0)
- !Customer Number
- ORDER
- DECIMAL(4,0)
- !Order Number
- ORDER.CLA 54:1
- 'LIN OVR
- IND CAP NUM
- prLAN4
- EJECT('CODE SECTION')
- 0CODE
- LSETHUE(7,0)
- !SET WHITE ON BLACK
- BLANK
- The Code Section begins with
- ! AND BLANK
- G_OPENFILES
- the keyword CODE. The code
- !OPEN OR CREATE FILES
- SETHUE()
- is always generated with
- THE SCREEN
- ORDER_MENU
- complete error checking and
- !Order Processing System
- RETURN
- recovery routines.
- !EXIT TO DOS
- G_OPENFILES PROCEDURE
- !OPEN FILES & CHECK FOR ERROR
- LSHOW(25,1,CENTER('OPENING FILE: ' & 'CUSTOMER',80)) !DISPLAY FILE NAME
- OPEN(CUSTOMER)
- !!OPEN THE FILE
- IF ERROR()
- %!OPEN RETURNED AN ERROR
- CASE ERRORCODE()
- ! CHECK FOR SPECIFIC ERROR
- OF 46
- (! KEYS NEED TO BE REBUILT
- SETHUE(0,7)
- ! BLACK ON WHITE
- SHOW(25,1,CENTER('REBUILDING KEY FILES FOR CUSTOMER',80)) !INDICATE MSG
- BUILD(CUSTOMER)
- ! CALL THE BUILD PROCEDURE
- SETHUE(7,0)
- ! WHITE ON BLACK
- BLANK(25,1,1,80)
- ! BLANK THE MESSAGE
- )!IF NOT FOUND,
- CREATE(CUSTOMER)
- ! CREATE
- )! ANY OTHER ERROR
- ORDER.CLA 105:1
- &LIN OVR
- IND CAP NUM
- This is a quick look at the CODE generated by DESIGNER, for
- a more in-depth look at the CLARION LANGUAGE refer to the
- Language Reference manual.
- ETEDT
- CTCMP
- FTFIL
- HTHLP
- PTPRO
- STSRT
- DTDES
- TTTRN
- STSCN
- RTRPT1
- CTXRF
- CTCVT
- DTDIR
- LLAN1
- TTTLR
- ETENV
- QRETURN
- Editor
- Compiler
- Filer
- Helper
- Processor
- Sorter
- Designer
- Translator
- Scanner
- Reporter
- Crossrefer
- Converter
- kDirector
- Language
- Tailor
- Environment
- !BASE
- BASE_W1
- BASE_W2 v
- BASE_W3
- BEGIN
- BLUE
- INSTR
- LAN1 Z
- LAN2
- LAN3
- LAN4
- MENU
-