{number:56789} {number:01234} {number:11234} 

SET ASNAMES=ON
SET HOLDLIST=PRINTONLY
SET HOLDFORMAT=ALPHA

FILEDEF DATAMAST DISK NUMBER.MAS
-RUN

-WRITE DATAMAST
-WRITE DATAMAST FILE=NUMBER, SUFFIX=FIX, $
-WRITE DATAMAST SEGNAME=SEG1, SEGTYPE=S0, $
-WRITE DATAMAST   FIELD=ACCOUNT, ALIAS=E01, USAGE=A50, ACTUAL=A50, $

FILEDEF NUMBER DISK NUMBER.FTM
-RUN

-WRITE NUMBER {number:12345}
-WRITE NUMBER {number:23456}
-WRITE NUMBER {number:34567} {number:45678}
-WRITE NUMBER {number:56789} {number:01234} {number:11234}
-WRITE NUMBER {number:11345}
-WRITE NUMBER {number:11456}
-RUN

DEFINE FILE NUMBER
ACCOUNT1/A5 WITH ACCOUNT = SUBSTR(60, ACCOUNT,  9, 13, 5, 'A5');
ACCOUNT2/A5 WITH ACCOUNT = SUBSTR(60, ACCOUNT, 24, 28, 5, 'A5');
ACCOUNT3/A5 WITH ACCOUNT = SUBSTR(60, ACCOUNT, 39, 43, 5, 'A5');
END
-RUN

TABLE FILE NUMBER
PRINT
ACCOUNT1 AS ACCOUNT
ON TABLE HOLD AS HACCOUNT1
END
-RUN

TABLE FILE NUMBER
PRINT
ACCOUNT2 AS ACCOUNT
ON TABLE HOLD AS HACCOUNT2
WHERE ACCOUNT2 NE ''
END
-RUN

TABLE FILE NUMBER
PRINT
ACCOUNT3 AS ACCOUNT
ON TABLE HOLD AS HACCOUNT3
WHERE ACCOUNT3 NE ''
END
-RUN

TABLE FILE HACCOUNT1
PRINT ACCOUNT
BY ACCOUNT NOPRINT
ON TABLE HOLD AS HACCOUNT
MORE
FILE HACCOUNT2
MORE
FILE HACCOUNT3
END
-RUN

TABLE FILE HACCOUNT
PRINT *
END
-RUN

Francis

Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server

 FILEDEF DATAMAST DISK number.mas
-RUN

-WRITE DATAMAST
-WRITE DATAMAST FILE=NUMBER, SUFFIX=FIX, $
-WRITE DATAMAST SEGNAME=SEG1, SEGTYPE=S0, OCCURS=VARIABLE,$
-WRITE DATAMAST FIELD=NUMBER, ALIAS=E01, USAGE=A08, ACTUAL=A08, $
-WRITE DATAMAST FIELD=ACCOUNT, ALIAS=E02, USAGE=A5, ACTUAL=A5, $
-WRITE DATAMAST FIELD= , ALIAS=E03, USAGE=A2, ACTUAL=A2, $
-*-WRITE DATAMAST FIELD=ACCTCNT, ALIAS=ORDER, USAGE=I8, ACTUAL=I4, $

FILEDEF NUMBER DISK number.ftm
-RUN

-WRITE NUMBER {number:12345}
-WRITE NUMBER {number:23456}
-WRITE NUMBER {number:34567} {number:45678}
-WRITE NUMBER {number:56789} {number:01234} {number:11234}
-WRITE NUMBER {number:11345}
-WRITE NUMBER {number:11456}

TABLE FILE NUMBER
PRINT
ACCOUNT
BY NUMBER NOPRINT
END
 

  
-* File Ginny2.fex
FILEDEF DATAMAST DISK number.mas
-RUN

-WRITE DATAMAST FILE=NUMBER, SUFFIX=FIX
-WRITE DATAMAST SEGNAME=SEG1, SEGTYPE=S0
-WRITE DATAMAST FIELD=FILL, ALIAS=FF, USAGE=A1, ACTUAL=A1, $
-WRITE DATAMAST SEGNAME=NUMS, PARENT=SEG1, OCCURS=VARIABLE
-WRITE DATAMAST FIELD=NUMBER, ALIAS=NUM, USAGE=A5, ACTUAL=A5, $
-WRITE DATAMAST FIELD=ACCTCNT, ALIAS=ORDER, USAGE=I4, ACTUAL=I4, $
-RUN

FILEDEF NUMBER DISK number.ftm
-RUN

-WRITE NUMBER >12345
-WRITE NUMBER >23456
-WRITE NUMBER >3456745678
-WRITE NUMBER >567890123411234
-WRITE NUMBER >11345
-WRITE NUMBER >11456
-RUN

TABLE FILE NUMBER
PRINT
NUMBER ACCTCNT
END

  
PAGE     1
  
  
  NUMBER  ACCTCNT                      
  ------  -------          
  12345         1
  23456         1
  34567         1
  45678         2
  56789         1
  01234         2
  11234         3
  11345         1
  11456         1

quote:

I have data in a table ... that is stored in a field

Francis

Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server

quote:

I'm surprised that people who are at summit have time to respond on FocalPoint

	Frank
	prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7

quote:

I'm suprised that people who are at work find time to post on focalpoint.... Wink

Francis

Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server

quote:

Syntax: How to Define a File With Delimiters
Delimiters must be defined in the Master File. The FILE declaration must include the following attribute:

SUFFIX=DFIXDescribe the delimiter characters in a special field or group named DELIMITER. The delimiter characters are specified in the ALIAS attribute of this special field or group.

To use a delimiter that consists of a single non-printable character or of one or more printable characters, the delimiter is defined as a field with the following attributes:

FIELDNAME=DELIMITER, ALIAS=delimiter, USAGE=ufmt, ACTUAL=afmt ,$To use a delimiter that consists of multiple non-printable characters or a combination of printable and non-printable characters, the delimiter is defined as a group:

GROUP=DELIMITER, ALIAS= , USAGE=ufmtg, ACTUAL=afmtg ,$ FIELDNAME=DELIMITER, ALIAS=delimiter1, USAGE=ufmt1, ACTUAL=afmt1 ,$ . . . FIELDNAME=DELIMITER, ALIAS=delimitern, USAGE=ufmtn, ACTUAL=afmtn ,$where:

DELIMITER

Indicates that the field or group is used as the delimiter in the data source.


delimiter

Identifies a delimiter. For one or more printable characters, the value consists of the actual characters. The delimiter must be enclosed in single quotation marks if it includes characters used as delimiters in Master File syntax. For a non-printable character, the value is the decimal equivalent of the EBCDIC or ASCII representation of the character, depending on your operating environment.


ufmt, afmt

Are the USAGE and ACTUAL formats for the delimiter. Possible values are: