Media Share 9

home *** CD-ROM | disk | FTP | other *** search

/ Media Share 9 / MEDIASHARE_09.ISO / clarion / ext_key.zip / EXT_TBL.CLA < prev next >

Wrap

Text File | 1992-04-10 | 12KB | 313 lines

MEMBER('ext_key') ext_table PROCEDURE(keyname) SCREEN SCREEN PRE(SCR),WINDOW(21,71),AT(3,6),HUE(15,1) ROW(1,1) STRING('<201,205{69},187>') ROW(2,1) REPEAT(19);STRING('<186,0{69},186>') . ROW(21,1) STRING('<200,205{69},188>') ROW(3,3) STRING('Full Name {22}SSN {12}Age Phone Number') ENTRY,USE(?FIRST_FIELD) ENTRY,USE(?PRE_POINT) REPEAT(17),EVERY(1),INDEX(NDX) ROW(4,2) POINT(1,67),USE(?POINT),ESC(?-1) name COL(3) STRING(@s25) ssn COL(34) STRING(@P###-##-####P) age COL(49) STRING(@N3) area COL(55) STRING(@p(###)pB) phone COL(60) STRING(@P###-####P) . . keyname external,key NDX BYTE !REPEAT INDEX FOR POINT AREA ROW BYTE !ACTUAL ROW OF SCROLL AREA COL BYTE !ACTUAL COLUMN OF SCROLL AREA COUNT BYTE(17) !NUMBER OF ITEMS TO SCROLL ROWS BYTE(17) !NUMBER OF ROWS TO SCROLL COLS BYTE(67) !NUMBER OF COLUMNS TO SCROLL FOUND BYTE !RECORD FOUND FLAG NEWPTR LONG !POINTER TO NEW RECORD TABLE TABLE,PRE(TBL) !TABLE OF RECORD DATA PTR LONG ! POINTER TO FILE RECORD name STRING(@s25) ssn STRING(@P###-##-####P) age BYTE area STRING(@p(###)pB) phone STRING(@P###-####P) . EJECT CODE ACTION# = ACTION !SAVE ACTION OPEN(SCREEN) !OPEN THE SCREEN SETCURSOR !TURN OFF ANY CURSOR TBL:PTR = 1 !START AT TABLE ENTRY NDX = 1 !PUT SELECTOR BAR ON TOP ITEM ROW = ROW(?POINT) !REMEMBER TOP ROW AND COL = COL(?POINT) !LEFT COLUMN OF SCROLL AREA RECORDS# = TRUE !INITIALIZE RECORDS FLAG CACHE(keyname,.25) !CACHE KEY FILE IF ACTION = 4 ! TABLE LOOKUP REQUEST NEWPTR = POINTER(employee) ! SET POINTER TO RECORD IF NOT NEWPTR ! RECORD NOT PASSED TO TABLE SET(keyname,keyname) ! POSITION TO CLOSEST RECORD NEXT(employee) ! READ RECORD NEWPTR = POINTER(employee) ! SET POINTER . DO FIND_RECORD ! POSITION FILE ELSE NDX = 1 ! PUT SELECTOR BAR ON TOP ITEM DO FIRST_PAGE ! BUILD MEMORY TABLE OF KEYS . RECORDS# = TRUE ! ASSUME THERE ARE RECORDS LOOP !LOOP UNTIL USER EXITS ACTION = ACTION# !RESTORE ACTION ALERT !RESET ALERTED KEYS ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY ACCEPT !READ A FIELD IF KEYCODE() = REJECT_KEY THEN BREAK. !RETURN ON SCREEN REJECT KEY IF KEYCODE() = ACCEPT_KEY | !ON SCREEN ACCEPT KEY AND FIELD() <> ?POINT !BUT NOT ON THE POINT FIELD UPDATE ! MOVE ALL FIELDS FROM SCREEN SELECT(?) ! START WITH CURRENT FIELD SELECT ! EDIT ALL FIELDS CYCLE ! GO TO TOP OF LOOP . CASE FIELD() !JUMP TO FIELD EDIT ROUTINE OF ?FIRST_FIELD !FROM THE FIRST FIELD IF KEYCODE() = ESC_KEY | ! RETURN ON ESC KEY OR RECORDS# = FALSE ! OR NO RECORDS BREAK ! EXIT PROCEDURE . OF ?PRE_POINT !PRE POINT FIELD CONDITION IF KEYCODE() = ESC_KEY ! BACKING UP? SELECT(?-1) ! SELECT PREVIOUS FIELD ELSE ! GOING FORWARD SELECT(?POINT) ! SELECT MENU FIELD . OF ?POINT !PROCESS THE POINT FIELD IF RECORDS(TABLE) = 0 !IF THERE ARE NO RECORDS CLEAR(emp:RECORD) ! CLEAR RECORD AREA ACTION = 1 ! SET ACTION TO ADD GET(employee,0) ! CLEAR PENDING RECORD upd_emp ! CALL FORM FOR NEW RECORD NEWPTR = POINTER(employee) ! SET POINTER TO NEW RECORD DO FIRST_PAGE ! DISPLAY THE FIRST PAGE IF RECORDS(TABLE) = 0 ! IF THERE AREN'T ANY RECORDS RECORDS# = FALSE ! INDICATE NO RECORDS SELECT(?PRE_POINT-1) ! SELECT THE PRIOR FIELD . CYCLE ! AND LOOP AGAIN . CASE KEYCODE() !PROCESS THE KEYSTROKE OF INS_KEY !INS KEY CLEAR(emp:RECORD) ! CLEAR RECORD AREA ACTION = 1 ! SET ACTION TO ADD GET(employee,0) ! CLEAR PENDING RECORD upd_emp ! CALL FORM FOR NEW RECORD IF ~ACTION ! IF RECORD WAS ADDED NEWPTR = POINTER(employee) ! SET POINTER TO NEW RECORD DO FIND_RECORD ! POSITION IN FILE . OF ENTER_KEY !ENTER KEY OROF ACCEPT_KEY !CTRL-ENTER KEY DO GET_RECORD ! GET THE SELECTED RECORD IF ACTION = 4 AND KEYCODE() = ENTER_KEY! IF THIS IS A LOOKUP REQUEST ACTION = 0 ! SET ACTION TO COMPLETE BREAK ! AND RETURN TO CALLER . IF ~ERROR() ! IF RECORD IS STILL THERE ACTION = 2 ! SET ACTION TO CHANGE upd_emp ! CALL FORM TO CHANGE REC IF ACTION THEN CYCLE. ! IF SUCCESSFUL RE-DISPLAY . NEWPTR = POINTER(employee) ! SET POINTER TO NEW RECORD DO FIND_RECORD ! POSITION IN FILE OF DEL_KEY !DEL KEY DO GET_RECORD ! READ THE SELECTED RECORD IF ~ERROR() ! IF RECORD IS STILL THERE ACTION = 3 ! SET ACTION TO DELETE upd_emp ! CALL FORM TO DELETE IF ~ACTION ! IF SUCCESSFUL N# = NDX ! SAVE POINT INDEX DO SAME_PAGE ! RE-DISPLAY NDX = N# ! RESTORE POINT INDEX . . OF DOWN_KEY !DOWN ARROW KEY DO SET_NEXT ! POINT TO NEXT RECORD DO FILL_NEXT ! FILL A TABLE ENTRY IF FOUND ! FOUND A NEW RECORD SCROLL(ROW,COL,ROWS,COLS,ROWS(?POINT)) ! SCROLL THE SCREEN UP GET(TABLE,RECORDS(TABLE)) ! GET RECORD FROM TABLE DO FILL_SCREEN ! DISPLAY ON SCREEN . OF PGDN_KEY !PAGE DOWN KEY DO SET_NEXT ! POINT TO NEXT RECORD DO NEXT_PAGE ! DISPLAY THE NEXT PAGE OF CTRL_PGDN !CTRL-PAGE DOWN KEY DO LAST_PAGE ! DISPLAY THE LAST PAGE NDX = RECORDS(TABLE) ! POSITION POINT BAR OF UP_KEY !UP ARROW KEY DO SET_PREV ! POINT TO PREVIOUS RECORD DO FILL_PREV ! FILL A TABLE ENTRY IF FOUND ! FOUND A NEW RECORD SCROLL(ROW,COL,ROWS,COLS,-(ROWS(?POINT)))! SCROLL THE SCREEN DOWN GET(TABLE,1) ! GET RECORD FROM TABLE DO FILL_SCREEN ! DISPLAY ON SCREEN . OF PGUP_KEY !PAGE UP KEY DO SET_PREV ! POINT TO PREVIOUS RECORD DO PREV_PAGE ! DISPLAY THE PREVIOUS PAGE OF CTRL_PGUP !CTRL-PAGE UP DO FIRST_PAGE ! DISPLAY THE FIRST PAGE NDX = 1 ! POSITION POINT BAR . . . FREE(TABLE) !FREE MEMORY TABLE FREE(keyname) !FREE CACHE RETURN !AND RETURN TO CALLER SAME_PAGE ROUTINE !DISPLAY THE SAME PAGE GET(TABLE,1) ! GET THE FIRST TABLE ENTRY DO FILL_RECORD ! FILL IN THE RECORD SET(keyname,keyname,TBL:PTR) ! POSITION FILE FREE(TABLE) ! EMPTY THE TABLE DO NEXT_PAGE ! DISPLAY A FULL PAGE FIRST_PAGE ROUTINE !DISPLAY FIRST PAGE FREE(TABLE) ! EMPTY THE TABLE CLEAR(emp:RECORD,-1) ! CLEAR RECORD TO LOW VALUES CLEAR(TBL:PTR) ! ZERO RECORD POINTER SET(keyname) ! POINT TO FIRST RECORD LOOP NDX = 1 TO COUNT ! FILL UP THE TABLE DO FILL_NEXT ! FILL A TABLE ENTRY IF NOT FOUND THEN BREAK. ! GET OUT IF NO RECORD . NDX = 1 ! SET TO TOP OF TABLE DO SHOW_PAGE ! DISPLAY THE PAGE LAST_PAGE ROUTINE !DISPLAY LAST PAGE NDX# = NDX ! SAVE SELECTOR POSITION FREE(TABLE) ! EMPTY THE TABLE CLEAR(emp:RECORD,1) ! CLEAR RECORD TO HIGH VALUES CLEAR(TBL:PTR,1) ! CLEAR PTR TO HIGH VALUE SET(keyname) ! POINT TO FIRST RECORD LOOP NDX = COUNT TO 1 BY -1 ! FILL UP THE TABLE DO FILL_PREV ! FILL A TABLE ENTRY IF NOT FOUND THEN BREAK. ! GET OUT IF NO RECORD . ! END OF LOOP NDX = NDX# ! RESTORE SELECTOR POSITION DO SHOW_PAGE ! DISPLAY THE PAGE FIND_RECORD ROUTINE !POSITION TO SPECIFIC RECORD SET(keyname,keyname,NEWPTR) !POSITION FILE IF NEWPTR = 0 !NEWPTR NOT SET NEXT(employee) ! READ NEXT RECORD NEWPTR = POINTER(employee) ! SET NEWPTR SKIP(employee,-1) ! BACK UP TO DISPLAY RECORD . FREE(TABLE) ! CLEAR THE RECORD DO NEXT_PAGE ! DISPLAY A PAGE NEXT_PAGE ROUTINE !DISPLAY NEXT PAGE SAVECNT# = RECORDS(TABLE) ! SAVE RECORD COUNT LOOP COUNT TIMES ! FILL UP THE TABLE DO FILL_NEXT ! FILL A TABLE ENTRY IF NOT FOUND ! IF NONE ARE LEFT IF NOT SAVECNT# ! IF REBUILDING TABLE DO LAST_PAGE ! FILL IN RECORDS EXIT ! EXIT OUT OF ROUTINE . BREAK ! EXIT LOOP . . DO SHOW_PAGE ! DISPLAY THE PAGE SET_NEXT ROUTINE !POINT TO THE NEXT PAGE GET(TABLE,RECORDS(TABLE)) ! GET THE LAST TABLE ENTRY DO FILL_RECORD ! FILL IN THE RECORD SET(keyname,keyname,TBL:PTR) ! POSITION FILE NEXT(employee) ! READ THE CURRENT RECORD FILL_NEXT ROUTINE !FILL NEXT TABLE ENTRY FOUND = FALSE ! ASSUME RECORD NOT FOUND LOOP UNTIL EOF(employee) ! LOOP UNTIL END OF FILE NEXT(employee) ! READ THE NEXT RECORD FOUND = TRUE ! SET RECORD FOUND DO FILL_TABLE ! FILL IN THE TABLE ENTRY ADD(TABLE) ! ADD LAST TABLE ENTRY GET(TABLE,RECORDS(TABLE)-COUNT) ! GET ANY OVERFLOW RECORD DELETE(TABLE) ! AND DELETE IT EXIT ! RETURN TO CALLER . PREV_PAGE ROUTINE !DISPLAY PREVIOUS PAGE LOOP COUNT TIMES ! FILL UP THE TABLE DO FILL_PREV ! FILL A TABLE ENTRY IF NOT FOUND THEN BREAK. ! GET OUT IF NO RECORD . DO SHOW_PAGE ! DISPLAY THE PAGE SET_PREV ROUTINE !POINT TO PREVIOUS PAGE GET(TABLE,1) ! GET THE FIRST TABLE ENTRY DO FILL_RECORD ! FILL IN THE RECORD SET(keyname,keyname,TBL:PTR) ! POSITION FILE PREVIOUS(employee) ! READ THE CURRENT RECORD FILL_PREV ROUTINE !FILL PREVIOUS TABLE ENTRY FOUND = FALSE ! ASSUME RECORD NOT FOUND LOOP UNTIL BOF(employee) ! LOOP UNTIL BEGINNING OF FILE PREVIOUS(employee) ! READ THE PREVIOUS RECORD FOUND = TRUE ! SET RECORD FOUND DO FILL_TABLE ! FILL IN THE TABLE ENTRY ADD(TABLE,1) ! ADD FIRST TABLE ENTRY GET(TABLE,COUNT+1) ! GET ANY OVERFLOW RECORD DELETE(TABLE) ! AND DELETE IT EXIT ! RETURN TO CALLER . SHOW_PAGE ROUTINE !DISPLAY THE PAGE NDX# = NDX ! SAVE SCREEN INDEX LOOP NDX = 1 TO RECORDS(TABLE) ! LOOP THRU THE TABLE GET(TABLE,NDX) ! GET A TABLE ENTRY DO FILL_SCREEN ! AND DISPLAY IT IF TBL:PTR = NEWPTR ! SET INDEX FOR NEW RECORD NDX# = NDX ! POINT TO CORRECT RECORD . . LOOP WHILE NDX <= COUNT ! FINISH BLANKING THE SCREEN BLANK(ROW(?POINT),COL(?POINT),ROWS(?POINT),COLS(?POINT))!BLANK A LINE NDX += 1 ! INCREMENT NDX . NDX = NDX# ! RESTORE SCREEN INDEX NEWPTR = 0 ! CLEAR NEW RECORD POINTER CLEAR(emp:RECORD) ! CLEAR RECORD AREA FILL_TABLE ROUTINE !MOVE FILE TO TABLE tbl:ssn = emp:ssn tbl:age = emp:age tbl:area = emp:area tbl:phone = emp:phone TBL:PTR = POINTER(employee) ! SAVE RECORD POINTER tbl:name = upper(clip(emp:lname)&', '&emp:fname) FILL_RECORD ROUTINE !MOVE TABLE TO FILE emp:age = tbl:age FILL_SCREEN ROUTINE !MOVE TABLE TO SCREEN scr:name = tbl:name scr:ssn = tbl:ssn scr:age = tbl:age scr:area = tbl:area scr:phone = tbl:phone GET_RECORD ROUTINE !GET SELECTED RECORD GET(TABLE,NDX) ! GET TABLE ENTRY GET(employee,TBL:PTR) ! GET THE RECORD