I know I am new here but I would apprecate any help I could get with
this. Let me explain what I am tring to do first. I have a txt file
that I transfered to the HP and I only need a few fields from that
file. I have them fields match up with corisponding dataset (service)
fields. Then I link the two files together. All of the fields are
defined as charcters except the "count" field which is a numeric. All
of the fields will display just fine in the "testlk" file execpt the
"count" field it appears to be empty. But if I make the "testlk" file
a PRN file I can see all of the fields just fine including the "count"
field and all of its data. Unfortuntely I can't have the "testlk" in
the PRN format when I link the two files together. Below is my code
and how "count" is defined. Thanks
COUNT NUM 0 0 0 ^^^^^^^^^
!SUPRTOOL
IN TEST
DEF CLAIM# 78,12
DEF PROC,12,5
DEF DSF,58,8
DEF DST,66,8
DEF MOD,76,2
SORT CLAIM#
EXT CLAIM#,PROC,DSF,DST,MOD
OUTPUT TESTHLD,LINK
XEQ
USE HLTHMODE.REPORTS
GET SERVICE
DEF PROCNUM,PROC#,5
DEF CNT,COUNT:0,4,DOUBLE
TABLE ACCTBL,CLAIM#,FILE TESTHLD
TABLE ACCTBL2,PROC,FILE TESTHLD
TABLE ACCTBL3,DSF,FILE TESTHLD
TABLE ACCTBL4,DST,FILE TESTHLD
TABLE ACCTBL5,MOD,FILE TESTHLD
IF $LOOKUP(ACCTBL,CLAIM#) AND $LOOKUP(ACCTBL2,PROCNUM) &
AND $LOOKUP(ACCTBL3,YMDEFF) AND $LOOKUP(ACCTBL4,YMDEND) &
AND $LOOKUP(ACCTBL5,MODIFIER)
SORT CLAIM#
EXT FEESCHED,PAY-SERVICE,COUNT,CLAIM#
OUTPUT TESTLK,LINK
XEQ
LINK INPUT TESTHLD
LINK LINK TESTLK
LINK OUTPUT TESTOUT,ERASE
LINK XEQ
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|