Help about the use of 3-D on MF Dialog 2.5.64 
Author Message
 Help about the use of 3-D on MF Dialog 2.5.64

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



Sat, 29 May 1999 03:00:00 GMT  
 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!



Sat, 29 May 1999 03:00:00 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. MF Dialog System 2.5.64

2. HELP: MF Dialog System useless with new cobol v3.2

3. Help with MF-Dialog OLE2 facility

4. ds ds

5. Help 'balloons' using MFocus Dialog

6. Problem using DS

7. MF Dialog Question - Growing old sucks

8. MF-dialog where to find LINK32

9. MF Dialog

10. MF Dialog

11. MF GUI Dialog Distributions

12. MF Dialog System

 

 
Powered by phpBB® Forum Software