Help about the use of 3-D on MF Dialog 2.5.64
Quote:
>I have the MFDSSW=/3D on my PC, but when I distribute the aplications to my
>users I would like to be able to do it from inside the program.
>I have tried this:
>SCREENSET-INITIALIZED
> CALLOUT-PARAMETER 1 CONFIG-FLAG(1) $NULL
> CALLOUT-PARAMETER 2 CONFIG-VALUE(1) $NULL
> MOVE 10 CONFIG-FLAG(1)
> MOVE 1 CONFIG-VALUE(1)
> CALLOUT "dsrtcfg" 3 $PARMLIST
> CALLOUT-PARAMETER 1 CONFIG-FLAG(1) $NULL
> CALLOUT-PARAMETER 2 CONFIG-VALUE(1) $NULL
> MOVE 7 CONFIG-FLAG(1)
> MOVE 2 CONFIG-VALUE(1)
> CALLOUT "dsrtcfg" 3 $PARMLIST
>but nothing happens. What do I wrong?
>I tried also to use DS-USE-3D-CONTROLS (value "3") that is in DS-CNTRL.MF
>copy file but I don't how and when to use it.
>How dos one set the MFP23D environment variable to On?
>SET MFP23D=ON is this correct?
>I would much apreciate som one will help me - thanks in advance
>Fernando Kvistgaard
Here is how I do it with the 32-bit version (2.5.64). It should work with
the 16-bit version as well. I have omitted everything up to the Procedure
Division but you should be able to figure out what I'm doing from the
code. If you're using multiple screensets, you only have to set 3-D in
the 1st one. If you still have problems or have another question, feel
PROCEDURE DIVISION.
0000-MAIN.
PERFORM 9000-INIT.
PERFORM UNTIL MENU-OPTN EQUAL "EXIT-SOS"
PERFORM 9050-DSGRUN
EVALUATE MENU-OPTN
WHEN "NEW-ACCOUNT"
INVOKE CLIENTDATASCRN "maincontrol"
USING MENU-OPTN
MOVE DS-CONTINUE TO DS-CONTROL
WHEN "NEW-EARNER"
INVOKE EARNERDATASCRN "maincontrol"
USING MENU-OPTN
MOVE DS-CONTINUE TO DS-CONTROL
WHEN OTHER
CONTINUE
END-EVALUATE
END-PERFORM.
MOVE DS-QUIT-SET TO DS-CONTROL.
PERFORM 9050-DSGRUN.
0000-EXIT.
STOP RUN.
******************************************************************
******************************************************************
** 9000-INIT - INITIALIZE DATA BLOCK, CONTROL BLOCK, DIALOG
** SET NAME, 3-D CONTROLS AND REST OF VARIABLES.
******************************************************************
******************************************************************
9000-INIT.
INITIALIZE DATA-BLOCK, DS-CONTROL-BLOCK.
MOVE DATA-BLOCK-VERSION-NO TO DS-DATA-BLOCK-VERSION-NO.
MOVE VERSION-NO TO DS-VERSION-NO.
MOVE "SOS" TO DS-SET-NAME.
MOVE DS-USE-3D-CONTROLS TO DS-CONTROL.
PERFORM 9050-DSGRUN.
MOVE DS-NEW-SET TO DS-CONTROL.
9050-DSGRUN.
CALL "DSGRUN"
USING DS-CONTROL-BLOCK,
DATA-BLOCK.
IF NOT DS-NO-ERROR
MOVE DS-ERROR-CODE TO DISP-EROR-NMBR
DISPLAY "Dialog Error: " DISP-EROR-NMBR
STOP RUN
END-IF.
--
Guy C. Fountain
I'm the person my parents warned me about!
