Hopefully this all makes sense to you.
Display File Fields
Position to . . . . . .:
Physical File . . . . .: MCAH File Type . . . . . . .: PF
Library . . . . . . . .: MPMS9S Record Length . . . . .: 42
Record Format. . . . . .: RMCAH Number of fields. . . .: 8
Key Field Length Dec Type From To Text
CASTAT 1 A 1 1 COMBINE STATUS (*B,A-I)
K1 CAACFM 9 A 2 10 FROM ACCOUNT #
CAACTO 9 A 11 19 TO ACCOUNT #
CAUSER 10 A 20 29 USER COMBINING
CADATE 8 0 P 30 34 DATE OF COMBINE
CATIME 6 0 S 35 40 TIME OF COMBINE
CAPRT 1 A 41 41 PRINTED FLAG (Y/N)
UISOURCE 1 A 42 42 ENTRY SOURCE
Define Result Fields
Type definitions using field names or constants and operators, press Enter.
Operators: +, -, *, /, SUBSTR, ||, DATE...
Field Expression Column Heading Len Dec
TESTING1 substr(digits(catime),1,2)|| converted time.
':'||substr(digits(catime),3,2)||
':'||substr(digits(catime),5,2)
TESTING2 time(testing1)
Select and Sequence Fields
Type sequence number (0-9999) for the names of up to 500 fields to
appear in the report, press Enter.
Seq Field Text Len Dec
10 TESTING1 substr(digits(catime),1,2)|| ':'||subs 8
20 CATIME TIME OF COMBINE 6 0
30 TESTING2 time(testing1) 8 T
Display File Fields
Position to . . . . . .:
Physical File . . . . .: TESTTIME File Type . . . . . . .: PF
Library . . . . . . . .: KEVIN Record Length . . . . .: 22
Record Format. . . . . .: TESTTIME Number of fields. . . .: 3
Key Field Length Dec Type From To Text
TESTING1 8 A 1 8 substr(digits(catime),1,2)|| ':'||
CATIME 6 0 S 9 14 TIME OF COMBINE
TESTING2 8 T 15 22 time(testing1)
On Tue, 2021-11-16 at 11:48 -0500, Art Tostaine, Jr. wrote:
I'm trying to modify an old *QRYDFN to convert an 6,0 field to a time.
I've tried all sorts of combinations in the result field options but can't
get anything to work. If there is a way I can create a view that converts
to time and use that instead that would be fine.
I need to do this because the output file is converted to CSV using
CPYTOIMPF. I need the editing in the CSV so Excel recognizes the column as
a time.
Thanks, Art
[
https://www.medtronsoftware.com/img/MedtronMinilogo.bmp]
Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550<tel:985-893-2550>
Toll Free: 877-893-2550<tel:877-893-2550>
https://www.medtronsoftware.com
CONFIDENTIALITY NOTICE
This document and any accompanying this email transmission contain confidential information, belonging to the sender that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, or the employee of agent responsible to deliver it to the intended recipient, you are hereby notified that any disclosure, copying, distribution or action taken in reliance on the contents of these documents is STRICTLY PROHIBITED. If you have received this email in error, please notify the sender immediately to arrange for return or destruction of these documents.
midrange.com
