Re: IMAGE files... going away?

Posted by Grant Foraker on March 09, 2010 at 13:24:23:

In Reply to: Re: IMAGE files... going away? posted by Bob A on March 09, 2010 at 05:20:58:

Bob:

Here's a quick program that converts IMAGE to "standard". Left over from the 90's.

-----------------------------------------------------------------------------------
!=============== FIX I1A FILE ========================================
!
LENGTH 5.0 & LOCAL COUNT
LENGTH 64 & LOCAL RECKEY$
!
USE '~^I1A'
INCLUDE '^I1A.INC'
!
2700 FORMAT (CS);_
@(12,10);'PROCESSING FILE "I1A"';_
@(12,12);'RECORD #'
2710 FORMAT_
@(21,12);RECKEY$;'@00@'
2720 FORMAT_
@(12,14);COUNT;'RECORDS PROCESSED. TAB';(TP);' ';(TP);@(42,14)
!
3000!
CLEAR
OPEN (2) '~I1A' ! OLD FILE
OPEN (11) 'I1A' ! NEW FILE
PRINT (0,2700)
3010!
LET RECKEY$ = KEY(2, EXCP = 9000)
READIMAGE (2,9999) KEY = RECKEY$
WRITE (11,0911) KEY = RECKEY$
IF FPT(COUNT / 10.00) EQ 0 PRINT (0,2710)
LET COUNT = COUNT + 1
GOTO 3010
!
9000!
IF EXCP NE 2 ERROR
PRINT (0,2720)
INPUT (0) ''
!
RUN 'QMONITOR'

----------------------------------------------------------------------------------------------
"~" indicates the old data file and USE file.

Hard part is getting the #FILES converted to the standard format. I wrote my own "deimage" utility. Ask it I'll post it up.

Follow Ups:

Post a Followup

Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.