Menu

little help errors stuck on project

J McNamara
2024-12-27
2024-12-27
  • J McNamara

    J McNamara - 2024-12-27

    Hi-

    I am trying to compile cobjapi like this with my gixsql but it isnt cooperating the last line of compile is

    cobc -x dialog.cbsql cobjapi.o japilib.o imageio.o fileselect.o -L"c:\msys64\mingw64\bin\gcc" -L"c:\msys64\opt\gixsql\lib" -L"c:\msys64\mingw64\bin" -lgixsql -lws2_32

    Any help is greatly appreciated. I have tried the free switch with
    the cobc and it doesnt work. It said in the docs to use free on
    a sample on brians faq site but i think gix wanted fixed.

    btw cobjapi once i figure out the formatting cranks out some nice demos.
    i just cant get it to play nice with gixsql. THANKS

    main.cobc:751: error: continuation character expected
    main.cobc:8: error: PROCEDURE DIVISION header missing
    main.cobc:8: error: syntax error, unexpected intrinsic function name
    main.cobc:242: error: syntax error, unexpected SPECIAL-NAMES
    main.cobc:243: error: syntax error, unexpected Mnemonic name
    main.cobc:244: error: syntax error, unexpected CRT
    main.cobc:250: error: syntax error, unexpected DATA
    main.cobc:251: error: syntax error, unexpected WORKING-STORAGE
    main.cobc:261: error: unknown statement '01'
    main.cobc:262: error: unknown statement '01'
    main.cobc:263: error: unknown statement '01'

    >> SOURCE FORMAT IS fixed 
           IDENTIFICATION DIVISION.
           PROGRAM-ID. dialog.
           ENVIRONMENT DIVISION.
           configuration section.
               REPOSITORY.
               FUNCTION ALL INTRINSIC.
               FUNCTION J-ADD
               FUNCTION J-ADDITEM
               FUNCTION J-ADDNODE
               FUNCTION J-ADDROW
               FUNCTION J-ADDTAB
               FUNCTION J-ADDTABWITHICON
               FUNCTION J-ALERTBOX
               FUNCTION J-APPENDTEXT
               FUNCTION J-BEEP
               FUNCTION J-BORDERPANEL
               FUNCTION J-BUTTON
               FUNCTION J-CANVAS
               FUNCTION J-CHECKBOX
               FUNCTION J-CHECKMENUITEM
               FUNCTION J-CHOICE
               FUNCTION J-CHOICEBOX2
               FUNCTION J-CHOICEBOX3
               FUNCTION J-CLEARTABLE
               FUNCTION J-CLIPRECT
               FUNCTION J-COMPONENTLISTENER
               FUNCTION J-CONNECT
               FUNCTION J-DELETE
               FUNCTION J-DESELECT
               FUNCTION J-DESKTOPPANE
               FUNCTION J-DIALOG
               FUNCTION J-DISABLE
               FUNCTION J-DISABLEDOUBLECLICK
               FUNCTION J-DISPOSE
               FUNCTION J-DRAWARC
               FUNCTION J-DRAWCIRCLE
               FUNCTION J-DRAWIMAGE
               FUNCTION J-DRAWIMAGESOURCE
               FUNCTION J-DRAWLINE
               FUNCTION J-DRAWOVAL
               FUNCTION J-DRAWPIXEL
               FUNCTION J-DRAWPOLYGON
               FUNCTION J-DRAWPOLYLINE
               FUNCTION J-DRAWRECT
               FUNCTION J-DRAWROUNDRECT
               FUNCTION J-DRAWSCALEDIMAGE
               FUNCTION J-DRAWSTRING
               FUNCTION J-ENABLE
               FUNCTION J-ENABLEDOUBLECLICK
               FUNCTION J-FILEDIALOG
               FUNCTION J-FILESELECT
               FUNCTION J-FILLARC
               FUNCTION J-FILLCIRCLE
               FUNCTION J-FILLOVAL
               FUNCTION J-FILLPOLYGON
               FUNCTION J-FILLRECT
               FUNCTION J-FILLROUNDRECT
               FUNCTION J-FOCUSLISTENER
               FUNCTION J-FORMATTEDTEXTFIELD
               FUNCTION J-FRAME
               FUNCTION J-GETACTION
               FUNCTION J-GETCOLUMNS
               FUNCTION J-GETCURPOS
               FUNCTION J-GETDANGER
               FUNCTION J-GETFONTASCENT
               FUNCTION J-GETFONTHEIGHT
               FUNCTION J-GETHEIGHT
               FUNCTION J-GETIMAGE
               FUNCTION J-GETIMAGESOURCE
               FUNCTION J-GETINHEIGHT
               FUNCTION J-GETINSETS
               FUNCTION J-GETINWIDTH
               FUNCTION J-GETITEM
               FUNCTION J-GETITEMCOUNT
               FUNCTION J-GETKEYCHAR
               FUNCTION J-GETKEYCODE
               FUNCTION J-GETLAYOUTID
               FUNCTION J-GETLENGTH
               FUNCTION J-GETMOUSEBUTTON
               FUNCTION J-GETMOUSEPOS
               FUNCTION J-GETMOUSEX
               FUNCTION J-GETMOUSEY
               FUNCTION J-GETPARENTID
               FUNCTION J-GETPOS
               FUNCTION J-GETROWS
               FUNCTION J-GETSCALEDIMAGE
               FUNCTION J-GETSCREENHEIGHT
               FUNCTION J-GETSCREENWIDTH
               FUNCTION J-GETSELECT
               FUNCTION J-GETSELEND
               FUNCTION J-GETSELSTART
               FUNCTION J-GETSELTEXT
               FUNCTION J-GETSTATE
               FUNCTION J-GETSTRINGWIDTH
               FUNCTION J-GETTEXT
               FUNCTION J-GETVALUE
               FUNCTION J-GETVIEWPORTHEIGHT
               FUNCTION J-GETVIEWPORTWIDTH
               FUNCTION J-GETWIDTH
               FUNCTION J-GETXPOS
               FUNCTION J-GETYPOS
               FUNCTION J-GRAPHICBUTTON
               FUNCTION J-GRAPHICLABEL
               FUNCTION J-HASFOCUS
               FUNCTION J-HELPMENU
               FUNCTION J-HIDE
               FUNCTION J-HSCROLLBAR
               FUNCTION J-IMAGE
               FUNCTION J-INITIALIZE
               FUNCTION J-INSERT
               FUNCTION J-INSERTTEXT
               FUNCTION J-INTERNALFRAME
               FUNCTION J-ISPARENT
               FUNCTION J-ISRESIZABLE
               FUNCTION J-ISSELECT
               FUNCTION J-ISVISIBLE
               FUNCTION J-KEYLISTENER
               FUNCTION J-KILL
               FUNCTION J-LABEL
               FUNCTION J-LED
               FUNCTION J-LINE
               FUNCTION J-LIST
               FUNCTION J-LOADIMAGE
               FUNCTION J-MENU
               FUNCTION J-MENUBAR
               FUNCTION J-MENUITEM
               FUNCTION J-MESSAGEBOX
               FUNCTION J-METER
               FUNCTION J-MOUSELISTENER
               FUNCTION J-MULTIPLEMODE
               FUNCTION J-NEXTACTION
               FUNCTION J-NODE
               FUNCTION J-PACK
               FUNCTION J-PANEL
               FUNCTION J-PLAY
               FUNCTION J-PLAYSOUNDFILE
               FUNCTION J-POPUPMENU
               FUNCTION J-PRINT
               FUNCTION J-PRINTER
               FUNCTION J-PROGRESSBAR
               FUNCTION J-QUIT
               FUNCTION J-RADIOBUTTON
               FUNCTION J-RADIOGROUP
               FUNCTION J-RANDOM
               FUNCTION J-RELEASE
               FUNCTION J-RELEASEALL
               FUNCTION J-REMOVE
               FUNCTION J-REMOVEALL
               FUNCTION J-REMOVEITEM
               FUNCTION J-REPLACETEXT
               FUNCTION J-SAVEIMAGE
               FUNCTION J-SCROLLPANE
               FUNCTION J-SELECT
               FUNCTION J-SELECTALL
               FUNCTION J-SELECTTEXT
               FUNCTION J-SEPARATOR
               FUNCTION J-SETALIGN
               FUNCTION J-SETBLOCKINC
               FUNCTION J-SETBORDERLAYOUT
               FUNCTION J-SETBORDERPOS
               FUNCTION J-SETCOLOR
               FUNCTION J-SETCOLORBG
               FUNCTION J-SETCOLUMNS
               FUNCTION J-SETCOLUMNWIDTHS
               FUNCTION J-SETCURPOS
               FUNCTION J-SETCURSOR
               FUNCTION J-SETDANGER
               FUNCTION J-SETDEBUG
               FUNCTION J-SETECHOCHAR
               FUNCTION J-SETEDITABLE
               FUNCTION J-SETFIXLAYOUT
               FUNCTION J-SETFLOWFILL
               FUNCTION J-SETFLOWLAYOUT
               FUNCTION J-SETFOCUS
               FUNCTION J-SETFONT
               FUNCTION J-SETFONTNAME
               FUNCTION J-SETFONTSIZE
               FUNCTION J-SETFONTSTYLE
               FUNCTION J-SETGRIDCOLOR
               FUNCTION J-SETGRIDLAYOUT
               FUNCTION J-SETGRIDNAMEDCOLOR
               FUNCTION J-SETHEADERCOLOR
               FUNCTION J-SETHEADERCOLORBG
               FUNCTION J-SETHEADERNAMEDCOLOR
               FUNCTION J-SETHEADERNAMEDCOLORBG
               FUNCTION J-SETHGAP
               FUNCTION J-SETICON
               FUNCTION J-SETIMAGE
               FUNCTION J-SETINSETS
               FUNCTION J-SETMAX
               FUNCTION J-SETMIN
               FUNCTION J-SETNAMEDCOLOR
               FUNCTION J-SETNAMEDCOLORBG
               FUNCTION J-SETNOLAYOUT
               FUNCTION J-SETPORT
               FUNCTION J-SETPOS
               FUNCTION J-SETRADIOGROUP
               FUNCTION J-SETRESIZABLE
               FUNCTION J-SETROWS
               FUNCTION J-SETSHORTCUT
               FUNCTION J-SETSIZE
               FUNCTION J-SETSLIDESIZE
               FUNCTION J-SETSPLITPANELEFT
               FUNCTION J-SETSPLITPANERIGHT
               FUNCTION J-SETSTATE
               FUNCTION J-SETTEXT
               FUNCTION J-SETTREEBGNONSELCOLOR  
               FUNCTION J-SETTREEBGNONSELNAMEDCOLOR
               FUNCTION J-SETTREEBGSELCOLOR     
               FUNCTION J-SETTREEBGSELNAMEDCOLOR
               FUNCTION J-SETTREEBORDERSELCOLOR 
               FUNCTION J-SETTREEBORDERSELNAMEDCOLOR
               FUNCTION J-SETTREETEXTNONSELCOLOR
               FUNCTION J-SETTREETEXTNONSELNAMEDCOLOR
               FUNCTION J-SETTREETEXTSELCOLOR   
               FUNCTION J-SETTREETEXTSELNAMEDCOLOR
               FUNCTION J-SETUNITINC
               FUNCTION J-SETVALUE
               FUNCTION J-SETVGAP
               FUNCTION J-SETXOR
               FUNCTION J-SEVENSEGMENT
               FUNCTION J-SHOW
               FUNCTION J-SHOWPOPUP
               FUNCTION J-SLEEP
               FUNCTION J-SOUND
               FUNCTION J-SPLITPANE
               FUNCTION J-START
               FUNCTION J-SYNC
               FUNCTION J-TABBEDPANE
               FUNCTION J-TABLE
               FUNCTION J-TEXTAREA
               FUNCTION J-TEXTFIELD
               FUNCTION J-TITLEDCOLORPANEL
               FUNCTION J-TITLEDNAMEDCOLORPANEL
               FUNCTION J-TRANSLATE
               FUNCTION J-TREE
               FUNCTION J-TOFRONT
               FUNCTION J-VSCROLLBAR
               FUNCTION J-WINDOW
               FUNCTION J-WINDOWLISTENER.
           special-names.
            console is crt.
            crt status is screen-status.
    
    
    
    
    
           DATA DIVISION.
           WORKING-STORAGE SECTION.
    
    
    
    
    
    
    
    
    
           01 J-ERROR                            BINARY-LONG SIGNED VALUE 1.
           01 J-TRUE                             BINARY-LONG SIGNED VALUE 1.
           01 J-FALSE                            BINARY-LONG SIGNED VALUE 0.
    
    
           01 J-LEFT                             BINARY-LONG SIGNED VALUE 0.
           01 J-CENTER                           BINARY-LONG SIGNED VALUE 1.
           01 J-RIGHT                            BINARY-LONG SIGNED VALUE 2.
           01 J-TOP                              BINARY-LONG SIGNED VALUE 3.
           01 J-BOTTOM                           BINARY-LONG SIGNED VALUE 4.
           01 J-TOPLEFT                          BINARY-LONG SIGNED VALUE 5.
           01 J-TOPRIGHT                         BINARY-LONG SIGNED VALUE 6.
           01 J-BOTTOMLEFT                       BINARY-LONG SIGNED VALUE 7.
           01 J-BOTTOMRIGHT                      BINARY-LONG SIGNED VALUE 8.
    
    
           01 J-DEFAULT-CURSOR                   BINARY-LONG SIGNED VALUE 0.
           01 J-CROSSHAIR-CURSOR                 BINARY-LONG SIGNED VALUE 1.
           01 J-TEXT-CURSOR                      BINARY-LONG SIGNED VALUE 2.
           01 J-WAIT-CURSOR                      BINARY-LONG SIGNED VALUE 3.
           01 J-SW-RESIZE-CURSOR                 BINARY-LONG SIGNED VALUE 4.
           01 J-SE-RESIZE-CURSOR                 BINARY-LONG SIGNED VALUE 5.
           01 J-NW-RESIZE-CURSOR                 BINARY-LONG SIGNED VALUE 6.
           01 J-NE-RESIZE-CURSOR                 BINARY-LONG SIGNED VALUE 7.
           01 J-N-RESIZE-CURSOR                  BINARY-LONG SIGNED VALUE 8.
           01 J-S-RESIZE-CURSOR                  BINARY-LONG SIGNED VALUE 9.
           01 J-W-RESIZE-CURSOR                  BINARY-LONG SIGNED VALUE 10.
           01 J-E-RESIZE-CURSOR                  BINARY-LONG SIGNED VALUE 11.
           01 J-HAND-CURSOR                      BINARY-LONG SIGNED VALUE 12.
           01 J-MOVE-CURSOR                      BINARY-LONG SIGNED VALUE 13.
    
           01 J-HORIZONTAL                       BINARY-LONG SIGNED VALUE 0.
           01 J-VERTICAL                         BINARY-LONG SIGNED VALUE 1.
    
     

    Last edit: Simon Sobisch 2024-12-27
  • Simon Sobisch

    Simon Sobisch - 2024-12-27

    As noted by Arnold in the other thread: you overflow column 72, in this case with
    01 J-W-RESIZE-CURSOR BINARY-LONG SIGNED VALUE 10. - the period is outside of the coding area.

    Add -Wcolumn-overflow or even -Werror=column-overflow if your code does not use comments or markers in the area to the right of the code (for new code: if it is it is best if this starts with an inline comment marker *> in any case - as this allows easier change to other formats later).

     
    • J McNamara

      J McNamara - 2024-12-27

      thanks for the cool error checking routine. I will be looking at this tomorrow with great anticipation. but first... a small delay.

      later

       

Anonymous
Anonymous

Add attachments
Cancel