HP3000-L Archives

August 2001, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Dan G." <[log in to unmask]>
Reply To:
Dan G.
Date:
Thu, 2 Aug 2001 09:15:44 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (52 lines)
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 *

ATOM RSS1 RSS2