Sorry here is the actual code used...
TAB = CHAR(9)
TME = OCONV(TIME(),'MTS')
TME = SWAP(TME,':','-')
IF CLINIC[1,3]="308" THEN
Path =
"E:\BATCHES_PPP\":OCONV(DATE(),"D2-"):"_":BATCH:"_":"dailybatch":"_":CLINIC:".TXT"
END ELSE
Path =
"E:\BATCHES\":OCONV(DATE(),"D2-"):"_":BATCH:"_":"dailybatch":"_":CLINIC:".TXT"
END
OPENSEQ Path TO MyPath THEN
CRT "The file already exists and DATA MAYBE WRONG rerun"
END ELSE
CRT Path:" is being created..."
END
ATTRIBS =
'FORM#':TAB:'CLINIC#':TAB:'PATIENT#':TAB:'DOS':TAB:'NAME':TAB:'SURNAME':TAB:'DOB':TAB:'CODE':CHAR(13):CHAR(10)
WRITEBLK ATTRIBS TO MyPath ELSE
CRT "What happened to the file?"
STOP
END
Q = 'SELECT DATA.FORM WITH CLINIC = "': CLINIC: '" AND WITH BATCH#
= "': BATCH: '"'
EXECUTE Q
LOOP WHILE READNEXT ID DO
READ REC FROM FRM.F, ID THEN
ROA='';ROB='';ROC='';RO=''
R50MAX = DCOUNT(REC<50>,@VM)
FOR R50 = 1 TO R50MAX
ROA = REC<50,R50>
ROB = XLATE("ERR.MESSAGE",REC<50,R50>,1,"X")
ROC = XLATE("ERR.MESSAGE",REC<50,R50>,5,"X")
RO := ROA:"-":ROB:"(":ROC:");"
NEXT R50
Line =
ID:TAB:REC<8>:TAB:REC<60>:TAB:OCONV(REC<30>,"D4-"):TAB:REC<2>:TAB:REC<1>:TAB:OCONV(REC<12>,"D4-"):TAB:RO:CHAR(13):CHAR(10)
WRITEBLK Line TO MyPath ELSE
CRT "What happened to the file?"
STOP
END
END
REPEAT
WEOFSEQ MyPath
>
--
IMPORTANT: T24/Globus posts are no longer accepted on this forum.
To post, send email to [email protected]
To unsubscribe, send email to [email protected]
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
