[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference ilbbak::ibi_focus

Title:FOCUS, from INFORMATION BUILDERS
Moderator:ZAYIUS::BROUILLETTE
Created:Thu Feb 19 1987
Last Modified:Mon May 05 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:615
Total number of notes:1779

350.0. " SET PROMPT=***headache***" by ELMAGO::AWILLETO (fo$cranium:migraine...) Wed Jun 20 1990 01:00

    Is setting/presetting the placement of a prompt in a CRTFORM so
    unreliable?
    
    It does seem so when my colleague tried it.  I haven't come up with
    a clue of how to solve his dilemma -- so I hope that perhaps some
    kind soul here with the talent can tackle this prompt placement
    predicament, please.
    
    Profoundly yours,
    
    Tony
    
                **The program follows in the next reply**
T.RTitleUserPersonal
Name		DateLines
350.1Here it is: BILL.FEX ELMAGO::AWILLETOfo$cranium:migraine...Wed Jun 20 1990 01:0144
FILEDEF SNLOCAL DISK QDS$DATA:SNLOCAL.IDX
-SET &MAC = VDOHNO;
-SET &:AAA ='.IT.';
-SET &:BBB ='.IT.';
-SET &BADGNUM = '      ';

-BEGIN
-SET &SERNUM = '          ';
-CRTFORM                                                                        
-* TEMPORARY FIELD DEFINITION &SERNUM     A10
-* TEMPORARY FIELD DEFINITION &BADGNUM    A6
-* TEMPORARY FIELD DEFINITION &MAC        A6
-"<.C. "
-" "
-" "
-"<27>THE B*I*L*L*Y PROGRAM"
-" "
-"<27><.HD.&DATE<.C.
-" "
-"<21>MACHINE I.D.:<.UD.&MAC<.C. "
-" "
-"<21>BADGE NUMBER: <&:AAA.&BADGNUM><.C. "
-" "
-"<20>SERIAL NUMBER: <&:BBB.&SERNUM><.C. "
-SET CURSOR = IF &BADGNUM NE '      ' OR &BADGNUM NE '000000' THEN ':BBB'
-ELSE ':AAA';
IF &BADGNUM CONTAINS 'OFF' THEN GOTO STOP;
IF &SERNUM CONTAINS 'OFF' THEN GOTO STOP;

DEFINE FILE SNLOCAL
EDATE/I6 = &YMD;
DDATE/A9 = EDIT (EDATE,'99-99-99');
BADGNUM/I6 = &BADGNUM;
END

TABLEF FILE SNLOCAL
PRINT EDATE DDATE BADGNUM PART
BY SERLNUM
IF SERLNUM IS &SERNUM
ON TABLE HOLD AS &MAC
END
-GOTO BEGIN
-STOP