**************************************** * INCLUDE DICT AND OPEN FILE * **************************************** OPEN: $INCLUDE BP MENUSTRUCTURE.DICT OPEN '','MENULIST' TO MENULIST ELSE PRINT 'DATABASE FILE NOT FOUND' END OPENSEQ '','SAVEX.CSV' TO SAVEX ELSE PRINT 'OPENSEQ FAILED' END RETURN **************************************** * LIST FILE * **************************************** LIST: CMD = 'SELECT MENULIST' EXECUTE CMD CAPTURING JUNK 66 N=0 LOOP READNEXT ID ELSE EXIT MATREAD D.MENULIST FROM MENULIST,ID THEN N=N+1 END REPEAT PRINT N FOR ID=0 TO N MATREAD D.MENULIST FROM MENULIST,ID THEN I=0 GOSUB PRINT.DATA: END NEXT ID RETURN **************************************** * PRINT DATA * **************************************** PRINT.DATA: IF MENULIST.MENU_LINK_NO=I THEN MLN= MENULIST.MENU_NO PRINT MENULIST.MENU_NAME WRITESEQ MENULIST.MENU_NAME TO SAVEX THEN *This part I am hitting an Error. END ELSE PRINT "WIRTE FAILED" END PRINT STR('-',30) FOR SID=0 TO N MATREAD D.MENULIST FROM MENULIST,SID THEN GOSUB PRINT.SUBMENU END NEXT SID END ELSE END RETURN
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)