Posted by Bob A on January 08, 2018 at 11:27:20:
000007A2 SET FILE.CREATE.TYPE.KEYED$ = "K"
00003C24 CASE FILE.TYPE.KEYED$
00003C37 CREATE FILENAME.FILEUTL$, _
00003C3C RECLEN.FILEUTL, _
00003C40 K, _
00003C41 KEYLEN.FILEUTL, _
00003C45 DIR=DIR.FILEUTL$, _
00003C49 EXCPSUB=EXCPSUB.CREATE
00003C4E CASE FILE.TYPE.EXTENDED.KEYED$
00003C61 CREATE FILENAME.FILEUTL$, _
00003C66 RECLEN.FILEUTL, _
00003C6A FILE.CREATE.TYPE.KEYED$, _
01 C6A ***************************** _
00003C6A KEYLEN.FILEUTL, _
07 C6A *****************************KEYLEN.FILEUTL, _
00003C6B KEYOFF.FILEUTL, _
20 C6B ******************************************** _
00003C6B DIR=DIR.FILEUTL$, _
07 C6B ****************************DIR=DIR.FILEUTL$, _
00003C6B EXCPSUB=EXCPSUB.CREATE
03 C6B ************************************
00003C6B ENDSELECT
Thanx
Bob "A"
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.