home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
pssst.zip
/
PSCOMPLT.PRG
next >
Wrap
Text File
|
1986-07-16
|
3KB
|
127 lines
* PSCOMPLT.PRG
*
* A DBASE II 16BIT COMMAND FILE to allow completed suspenses to be moved
* to the completed datafile. Returns to PSTJOBTRK for further suspense
* options. Called by PSEDITS
*
* Version 1
* By LTC Denny Hugg
* ANGSC/DOS Andrews AFB MD 16 Jul 1985
*
* Version 2
* modified by Maj Jim McMurry
* ANGSC/DOSC Truax Field, WI 15 Jun 1986
*
SELECT SECONDARY
USE &gcomplfile
SELECT PRIMARY
ERASE
STORE 2 TO line
STORE 'M O V I N G T O C O M P L E T I O N F I L E' TO prompt
DO PSPROMPT
@ 7, 0 SAY 'Record Number: '
@ 7,14 SAY #
@ 8, 0 SAY 'Description: '+descrip
@ 9, 0 SAY 'Origin: '+origin
@ 10, 0 SAY 'Priority: '+priority
@ 11, 0 SAY 'Date Received: '+in:date
@ 12, 0 SAY 'Due: '+duedate
@ 13, 0 SAY 'OPR: '+opr
STORE ' ' TO recnum
? gcuron
@ 22,79 SAY ' ';
+ 'Confirm completion By Re-entering Record Number ';
GET recnum PICTURE '99999'
READ NOUPDATE
@ 0, 0 SAY gcuroff
IF VAL(recnum) <> recno
@ 22,79 SAY gclearline
@ 22,79 SAY ' ';
+ 'Record Number Does Not Agree With Control Number'
STORE 1 TO timer
DO WHILE timer < gdelay
STORE timer + 1 TO timer
ENDDO
SKIP - counter
RETURN
ENDIF
RELEASE recnum, gline
STORE priority TO mpriority
STORE in:date TO min:date
STORE duedate TO mduedate
STORE origin TO morigin
STORE descrip TO mdescrip
STORE opr TO mopr
STORE phone TO mphone
STORE rem1 TO mrem1
STORE rem2 TO mrem2
STORE rem3 TO mrem3
STORE rem4 TO mrem4
STORE rem5 TO mrem5
STORE rem6 TO mrem6
STORE rem7 TO mrem7
STORE rem8 TO mrem8
STORE rem9 TO mrem9
STORE rem10 TO mrem10
STORE rem11 TO mrem11
STORE rem12 TO mrem12
DELETE
STORE 'Y' TO needpack
SELECT SECONDARY
APPEND BLANK
REPLACE c:d:date WITH gdate
@ 22,79 SAY gclearline
@ 0, 0 SAY gcuron
@ 22,79 SAY ' ';
+ 'Enter Date Completed ';
GET c:d:date PICTURE '99/99/99'
READ
@ 0, 0 SAY gcuroff
REPLACE priority WITH mpriority
REPLACE in:date WITH min:date
REPLACE duedate WITH mduedate
REPLACE descrip WITH mdescrip
REPLACE opr WITH mopr
REPLACE phone WITH mphone
REPLACE rem1 WITH mrem1
REPLACE rem2 WITH mrem2
REPLACE rem3 WITH mrem3
REPLACE rem4 WITH mrem4
REPLACE rem5 WITH mrem5
REPLACE rem6 WITH mrem6
REPLACE rem7 WITH mrem7
REPLACE rem8 WITH mrem8
REPLACE rem9 WITH mrem9
REPLACE rem10 WITH mrem10
REPLACE rem11 WITH mrem11
REPLACE rem12 WITH mrem12
USE
SELECT PRIMARY
IF # <> firstshown
GO firstshown
ELSE
GO TOP
ENDIF
RELEASE ALL LIKE m*
RETURN
* --- EOF PSCOMPLT.PRG
O mrem7
STORE rem8 TO mrem8
STORE rem9 TO mrem9
STORE rem10 TO mrem10
STORE rem11 TO mrem11
STORE rem12 TO mrem12
DELETE
STORE 'Y' TO needpack
SELECT SECONDARY
APPEND BLANK
REPLACE c:d:date WITH gdate
@ 22,79 SAY gclearline
@ 0, 0 SAY gcuron
@ 22,79 SAY ' ';
+ 'Enter Date Completed ';
GET c:d:date PICTURE '99/99/99'
READ
@ 0, 0 SAY gcuroff
REPLACE priority WITH mpriority
REPLACE in:date WITH min:d