HDTenEightyP/NetNews huggingface dataset:
Newsgroups: bit.listserv.notis-l
Date:         Wed, 11 Nov 1992 08:10:51 CST
From:         HSAMUELS@UA1VM.BITNET
Subject:      Re: updating vsam file during read

Lydia,

My suggestion would be to read the entire volume holdings record first locating
the position of each semicolon and storing the pointers in an array.  Once
the read routine is finished, execute a write routine using the _INFILE_
keyword.  For example:

PUT @1  _INFILE_ @;  /* this will write the entire record from the input   */
                     /*  buffer and the "@" will keep the output record in */
                     /* the output buffer                                  */
DO I = 1 TO 100 WHILE (SEMIPNTR{I} ^= .);
   OFFSET = SEMIPNTR{I};  /* loop thru pointer array while they have */
   PUT @OFFSET  '' @;    /* values in them, load them into a non-array */
END;  /* DO I... */       /* variable (SAS doesn't like array variables used */
                          /* as pointers), and load the "" sign             */
PUT;   /* release output record */

The FILE statement can be put right after the INFILE statement. It should read
as follows:

FILE "same name used in INFILE statement"  VSAM;

If you have any questions or comments, feel free to call.

Good luck,
Harry Samuels
Programmer/Analyst (TECH 1)
University of Alabama
Bitnet: HSAMUELS@UA1VM
Internet: HSAMUELS@UA1VM.UA.EDU
Voice: (205) 348-2877
Fax: (205) 348-9170
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-mailer: XGATE 2.0U MHS/SMTP Gateway
Newsgroups: bit.listserv.notis-l
Date:         Fri, 6 Nov 1992 09:51:00 CST
From:         Aaa1750 <aaa1750.dsc1@PCMAIL.DCCCD.EDU>
Subject:      Bill/Fine Notice
Comments: To: notis-l%tcsvm.bitnet@ricevm1.rice.edu

Hi everyone,

 We are an MVS site,CICS 1.7,LMS gto30, and have multiple service
units.  We noticed , the other day, when printing Bill/Fine
notices that some of the charges were printed to the worng B/F
notice.

For instance the list of B/F notices would look lik this:

 John Smith
 Address

The following amount  are due.

Call number 1
Title  1
Item Id 1
12.50  replacement fee  /* exists in the B/F record */
10.00  service fee  /* exists in the B/F record */


Call number 2
Title  2
Item ID 2
3.50  replacement fee  /* exists in the bill fine record */
10.00 service fee   /* exists in the B/F record */
12.50 replacement fee /* does not exist in the B/F record */
10.00 service fee   /* does not exist in the B/F record */


Notice in the second B/F notice, the second charges were copied
from the first B/F notice. This is not occurring everyday and we
only noticed it for one service unit so far.  Has any one seen
this kind of problem?. If so, please let me know of any fix and
call notice to add your name to the list.  The PTS number is
PPQ9063.  Thank you, Adnan Aldabaja
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.notis-l
Date:         Tue, 10 Nov 1992 15:09:19 CST
Comments:     Converted from PROFS to RFC822 format by PUMP V2.2X
From:         HWSCHWIN@TWSUVM.BITNET
Subject:      Spine Label Printing

     We are in the process of implementing spine label printing. I thought that
I had done everything correctly but nothing prints when we do the transaction
even though the terminal says that the spine label is printing.
     We are using an IBM Quietwriter III Printer 5202 connected via a Patton
Model 2023 Serial to Parallel Converter to a 7171. The converter is set to 7-
bit, even, parity disabled, 9600 baud, and the DCE/DTE switch is on DTE. The
7171 port is set up 7 bit, even, and 9600 baud. The CICS TCT entry is:

PLC1   DFHTCT TYPE=TERMINAL,ACCMETH=VTAM,CONNECT=AUTO,FEATURE=(COPY,PRINT),
             NETNAME=D327,PGESIZE=(66,132),PGESTAT=AUTOPAGE,RUSIZE=256,
             TCTUAL=255,TIOAL=80,TRMIDNT=PLC1,TRMMODL=2,TRMSTAT=TRANSCEIVE,
             TRMTYPE=3270P

     We are a VSE shop running under VM. The printer's address (327) has been
dedicated to the NOTIS VSE machine and the VM console shows that the address is
attached to that machine.
     The address (PLC1) has been placed in LC101TB4 and LC101BAL has been
compiled and DFLCT100 has been relinked without any errors.
     Obviously I've overlooked something. Any suggestions will be greatly
appreciated.

Harold Schwinn                              EEEEE    SSSSS     U   U
NOTIS 5.0.1 (VSE) TECH 1                    E        S         U   U
Emporia State University                    EEE      SSSSS     U   U
Campus Box 18                               E            S     U   U
EMPORIA, KS  66801   TEL (316) 341-5108     EEEEE    SSSSS     UUUUU
BITNET: hwschwin@twsuvm
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Organization: University of Texas at Arlington
X-Acknowledge-To: <C231GNG@UTARLVM1>
Newsgroups: bit.listserv.notis-l
Date:         Thu, 12 Nov 1992 08:35:07 CST
From:         Gina Gestautas <C231GNG@UTARLVM1.BITNET>
Subject:      Conversion of LCN070 Output to Cartridge

We recently got our LCN070 job working, finding out that it seems the
tape density is OVERRIDEN within the LCN070B program.  From my initial
test, it seems the density is written out as something other than 6250
(which makes it unusable for cartridge, therefore we decided to use
reel until we find a better solution.)  Can anyone summarize their
experience with this job and if or how you were able to get it to
write to cartridge??  At this time, we don't have alot of time to
modify the program, but we will in the near future if that is the only
way to do it.  Thanks for all your help in advance.

--
Gina Gestautas, Programmer/Analyst II  >> MVS/SP, LMS 5.0.2, MDAS 1.2.1,
University of Texas at Arlington       >> NOTISEARCH 1.0.1, GTO 3.0

 **** C231GNG@UTARLVM1 * c231gng@utarlvm1.uta.edu * (817) 794-5621  ****
From: SCHWARZ@A1.UWSTOUT.EDU (PHIL SCHWARZ)
Newsgroups: bit.listserv.notis-l
Subject: RE: Public/Staff Terminals
Date: 7 Nov 92 00:13:00 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Delivery-Notice:  SMTP MAIL FROM does not correspond to sender.
X-Envelope-to: NOTIS-L@TCSVM.BITNET
Content-type: TEXT
Posting-date: Fri, 6 Nov 1992 18:14 CST
Importance: normal
Priority: non-urgent
X-Hop-count: 1
A1-type: MAIL

I would also be interested in knowing what kinds of terminals are being used. We

are a new KeyNotis site and will be purchasing equipment in the near future.

Thanks


Philip Schwarz
Library Learning Center
University of Wisconsin-Stout
Menomonie, Wisconsin 54751-0790
Office 715-232-1272
Fax 715-232-1783
E-Mail SCHWARZ@UWSTOUT.EDU
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.notis-l
Date:         Mon, 9 Nov 1992 20:27:51 EST
From:         "Marc D. Truitt" <MDTRUITT@PUCC.BITNET>
Subject:      Re: CHAT: That dog won't run.
              9 Nov 1992 16:18:00 EST from <N93774@PITTVMS.BITNET>

Second the nomination!

Marc Truitt           mdtruitt@pucc.princeton.edu
Order Division
Princeton University Library
Princeton, NJ
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.notis-l
Date:         Mon, 9 Nov 1992 15:58:18 CST
From:         GAry <GSTRAWN@NUACVM.BITNET>
Subject:      Re: "R" in the call numbers

Consider putting some code at the top of the subroutine "LC" in LPC160
to sort out the reference call numbers from the "real" R call numbers
(if you can come up with a sure-fire way to tell them apart, that is!).
We did something similar for oversize indicators included as part of Dewey
call numbers. (After we got them out of the call number generation program.)

Remember to advance R3, and to decrement R5 as appropriate.

Gary L. Strawn
Authorities Librarian, etc., Northwestern University Libraries
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Organization: Southern Methodist University
Newsgroups: bit.listserv.notis-l
Date:         Wed, 11 Nov 1992 13:40:31 CST
From:         "Michael J. Stephens" <VB7R0007@SMUVM1.BITNET>
Subject:      Re: Frequency of running LB710 job

At SMU we run the LB710 job nightly (5 nights a week).  Then at the beginning
of the month we run a whole gob of LB730 jobs to get the data.  We really
need to implement some of the SAS routines for that analysis part.

Michael J. Stephens, Tech1
Sr. Systems Analyst II           *  Phone:    (214) 692-3453
Computer & Information Services  *  FAX:      (214) 692-3449
Southern Methodist University    *  Bitnet:   vb7r0007@smuvm1
Dallas, Tx. 75275-0262           *  Internet: vb7r0007@vm.cis.smu.edu
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.notis-l
Date:         Thu, 5 Nov 1992 07:53:17 EST
Comments:     Converted from PROFS to RFC822 format by PUMP V2.2
From:         "Pat Barbour" <3TEC6HW@CMUVM.BITNET>
Subject:      Z39.50

     Does anyone have more information about the new standard Z39.50?
I beleive there was mention of it at one of the sessions at Chicago NUGMS.
How will it affect holdings statements & does anyone know the timing of its
release?

Pat Barbour
Serials Coordinator
Central Michigan University
Mt. Pleasant, MI  48859
3tec6hw@cmuvm
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.notis-l
Date:         Tue, 10 Nov 1992 09:31:55 EDT
From:         "Michele I. Dalehite" <FCLMID@NERVM.BITNET>
Subject:      New records

On Monday, November 9, 1992, the FCLA/SUS NOTIS system broke all previous
records on CICS transactions and keyword searches:


      CICS    1,038,826       (our first, but probably not last,
                               million-transaction day)

     Keyword     21,186       (these are searches, not transactions)


Our NOTIS system is running in two regions at this time: one for the
autoacquired terminals (about 50% of the dedicated terminals) and the
other for all other dedicated and dial-in users.

Approximately 70% of these CICS transactions were OPAC use.

Michele Dalehite, LIB1
Florida Center for Library Automation
fclmid@nervm      fclmid@nervm.nerdc.ufl.edu
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.notis-l
Date:         Thu, 5 Nov 1992 14:09:38 EST
From:         "Carmen Diaz, Systems Department" <HBLADM94@UCONNVM.BITNET>
Subject:      QuikMerge

Have any sites purchased QuikMerge?   If so, what is your experience
with it?  Is it compatible with Release 5.0.2 and 5.1?

Please send your responses directly to me.  Your help is appreciated.


*****************************
* Carmen L. Diaz, LIB2      *
* Systems Department        *
* Homer Babbidge Library    *
* University of Connecticut *
* Storrs, Connecticut       *
* Phone:  (203)486-6029     *
*****************************
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Envelope-to: notis-l@tcsvm.BITNET
Newsgroups: bit.listserv.notis-l
Date:         Tue, 10 Nov 1992 12:56:20 LCL
From:         Sally Grucan <SGRUCAN@WESLEYAN.BITNET>
Subject:      Tag table updates

Following up my request of a few weeks ago for information how one updates
the NOTIS tag table, it appears that the NOTIS releases carry updates as
a matter of course (?) but that we can always update our own table anytime.
My next question is, does anyone know if release 5.1 will, IN FACT, have
tag table updates for the last two USMARC bib updates (#3 and 4)?  Thanks!



Sally Grucan                      BITNET:  sgrucan@wesleyan
Systems Planning and              INTERNET:  sgrucan@eagle.wesleyan.edu
   Head Catalog Librarian         Phone:  (203) 347-9411 ext. 3007
Olin Library                      Fax:  (203) 344-7969
Wesleyan University
Middletown CT O6459-0108
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Newsgroups: bit.listserv.notis-l
Date:         Thu, 12 Nov 1992 13:15:20 +0500
From:         Leonore Klee <lklee@SAINTMARYS.EDU>
Subject:      Screens for 5.1

We are getting training materials ready to go on 5.1.  Would someone who
is already on 5.1 be good enough to fax us a printout of a real MHLD screen
and the OPAC screen which results?  Having no actual screens to work with
yet, we are creating what we hope are reasonable projections.  We would
particularly appreciate printouts of the Journal of the Acoustical Society
of America and Who's Who in American Politics as we have been using these
for examples.  Many thanks in advance.
Lee Klee, Cataloger
Saint Mary's College
Notre Dame, IN 46556
Fax:(219) 284-4716
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.notis-l
Date:         Mon, 9 Nov 1992 12:22:23 CST
From:         "Cathy Roeder" <C774LIB@SEMOVM.BITNET>
Subject:      Periodicals holdings list
Comments: To: NOTIS-L@VM.TCS.Tulane.EDU

     Has anyone produced a periodicals holdings list from NOTIS data
using the MHLD?  We were working with some SAS programs from other
NOTIS libraries which used the VHLD, but then made the conversion to
MHLD and dropped the project for a while.  Statewide developments
have increased the urgency for this listing and we would appreciate
any help.

Thanks,

Cathy Roeder
Systems and Bibliographic Control Librarian (LIB 1)
Southeast Missouri State University
C774LIB@SEMOVM.SEMO.EDU
From: SCHWARZ@A1.UWSTOUT.EDU (PHIL SCHWARZ)
Newsgroups: bit.listserv.notis-l
Subject: RE: "New and Improved"
Date: 6 Nov 92 23:59:00 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Delivery-Notice:  SMTP MAIL FROM does not correspond to sender.
X-Envelope-to: NOTIS-L@TCSVM.BITNET
Content-type: TEXT
Posting-date: Fri, 6 Nov 1992 18:03 CST
Importance: normal
Priority: non-urgent
X-Hop-count: 1
A1-type: MAIL

At Stout we have also experienced many of the same problems. In our case it is
quit obvious because we loose whole days worth of mail. We apparently cannot
recover the lost mail. This happes with other list mail as well as NOTIS. Our
computer center has not been able to identify  a single source for the problem.
One time it was our computer another time Madison was down. The other time who
knows?


Philip Schwarz
Library Learning Center
University of Wisconsin-Stout
Menomonie, Wisconsin 54751-0790
Office 715-232-1272
Fax 715-232-1783
E-Mail SCHWARZ@UWSTOUT.EDU
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.notis-l
Date:         Thu, 12 Nov 1992 10:30:33 EST
From:         Lydia Pettis <LRP@CORNELLC.BITNET>
Subject:      use of backslash as separator in vhld/mhld records

Before I call NOTIS, I thought I would inquire of the list about
the use of a '' as a separator in holdings records. Apparently the
draft NISO standards (Z39.71) are going to recommend one or two spaces,
or a backslash. Since the  is the only explicit one, Cornell is planning
on moving to that. We have, in the meantime, been using a semicolon as
a seperator.

Are any 5.x sites currently using a backslash in marc holdings records?
When we try to create a statement with a  we get an error message:
     'Error in next field, chr'

Have any sites already reported this problem? Experienced it? What are
you using as the seperator in mhld? If it has been previously reported
to NOTIS, please send out the tracking number, and we will add our name
to the list. If getting the  requires some cryptic key strokes, let us
know that too! Thanks.


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*  Lydia Pettis                    PHONE:  (607) 255-9477   *
*  Programmer/Analyst              BITNET: LRP @ CORNELLC   *
*  501 Olin Library                                         *
*  Cornell University              FAX:    (607) 255-9346   *
*  Ithaca, NY  14850                                        *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
From: TSANDERS@AUDUCVAX.BITNET
Newsgroups: bit.listserv.notis-l
Subject: MHLD training
Date: 10 Nov 92 23:15:00 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Envelope-to: notis-l@tcsvm.bitnet
X-VMS-To: IN%"notis-l@tcsvm.bitnet"
Comments: To: notis-l@tcsvm.bitnet

I've left this a bit late but perhaps someone could still help me.

We are about to bite the bullet and go over to MHLD in order to allow the
library to move to 5.1 and we have been trying to decide on training
methods and materials.  We have made most basic decisions but some of these
may beopen to revision.

If anyone could send me (FAX no.=205-844-1753) training materials they
have developed, or an overview of training workshops for different job
responsibilities, I would be very grateful.  I attended this year's
NUGM and the 1990 NUGM, including the MHLF workshop, and I have the books
from those sessions plus 1991 (when others from here attended).  I think
I need several types of material--overview, local decisions, local single
sheet guides (i.e. push this button first).  I have done some work on
documentation but it still needs improvement.  I can tell because very few
people have asked any questions.

We will be providing technical training to people in Serials, non-serial
Acquisitions, non-serial Cataloging, and government documents.  People in
all these departments will be inputting or editing MHLD records for
specific types of materials.

Thomas Sanders, Head, Serials Dept., Auburn University, Alabama 36849-5606
(tsanders@auducvax)
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Vmsmail-To: SMTP%"NOTIS-L@VM.TCS.Tulane.EDU"
Newsgroups: bit.listserv.notis-l
Date:         Tue, 10 Nov 1992 15:34:05 -0600
From:         "(LEIGH WILLIAMS)" <F_WILLIAMS@CCSVAX.SFASU.EDU>
Subject:      RE: CHAT: That dog won't run.
Comments: To: NOTIS-L@VM.TCS.Tulane.EDU

God, you can't imagine how good it was to laugh today -- things are pretty
bleak here.  Thanks, y'all.

Southern born, southern bred, and southern blue  (*not* ol' Blue!)
Leigh
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Organization: Slippery Rock University - Computer Center
Newsgroups: bit.listserv.notis-l
Date:         Fri, 6 Nov 1992 12:29:28 EST
From:         Fran Hensler <FJH@SRU.BITNET>
Subject:      Re: LISTCAT TIMESTAMP

I'm sure that there is software to decode the LISTCAT TIMESTAMP.  Maybe
MacKinney systems.  Sorry, I don't have better info.
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.notis-l
Date:         Wed, 4 Nov 1992 15:11:26 EST
From:         "Carmen Diaz, Systems Department" <HBLADM94@UCONNVM.BITNET>
Subject:      Public/Staff Terminals
Comments: To: mail@UCONNVM.BITNET, notis-l@tcsvm.BITNET

UCONN is in the process of acquiring new terminals for staff and public
use and would like to know what types of non-IBM, non-MAC terminals
other sites are using to access NOTIS, how successful they have been, what
your preference is, how long a life the terminal has had and the cost
involved.  In particular, we are interested in any diskless pc's you are
are familiar with or currently using.

Please respond directly to me.  Your help is appreciated.


*******************************
*  Carmen L. Diaz, LIB2       *
*  Systems Department         *
*  Homer Babbidge Library     *
*  University of Connecticut  *
*  Storrs, Connecticut        *
*  Phone: (203)486-6029       *
*******************************
From: daviss@CUNIXF.CC.COLUMBIA.EDU (Stephen Davis)
Newsgroups: bit.listserv.notis-l
Subject: Pseudopatron msgs with due dates?
Date: 6 Nov 92 21:46:43 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Comments:     Warning -- original Sender: tag was daviss@DAVIS.CUL.COLUMBIA.EDU
Comments: To: NOTIS Listserv <notis-l@tcsvm.bitnet>

We've received a request from one of our departmental libraries to allow for
the due date to display for items charged out to a specific pseudopatron.

Right now the Binding Pseudopatron says:

	At Bindery.  Ask for help.

They would like it to say:

	At Bindery.  Due: 11/20/92

(They have a rolling two-week binding and pickup schedule.)

We have not been able to determine a (simple) way to both customize a
pseudopatron message AND display the due date.  The alternative we're
considering is having the library staff manually change the pseudopatron
display text every two weeks. (!)

Anyone figured out a way to let the machine do this instead?
==============================================================================
Stephen Davis				email:  daviss@cunixf.cc.columbia.edu
Ass't Director for Library Systems 	voice:  (212) 854-4744
219M Butler Library 	   		fax:    (212) 222-0331
Columbia University
New York, NY 10027
==============================================================================
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.notis-l
Date:         Wed, 11 Nov 1992 19:04:22 EST
From:         Anaclare Evans <AEVANS@WAYNEST1.BITNET>
Subject:      Re: Description of Tags and Formats
              10 Nov 1992 14:37:30 CDT from <ZCVS@ADM.ANGELO.EDU>

008 is documented in the US MARC format and is the information for the fixed
fields.
Anaclare Evans
Head, Database Mgt.
Wayne State University Libraries
aevans@waynest1.bitnet
aevans@cms.cc.wayne.edu
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.notis-l
Date:         Fri, 6 Nov 1992 09:09:06 EST
Comments:     Converted from PROFS to RFC822 format by PUMP V2.2
From:         Dan Kirchner <344PWCF@CMUVM.BITNET>
Subject:      LISTCAT TIMESTAMP

My understanding of this timestamp is that you need an IBM SE to decode it.
I think part of it is in 1/300's of a second and from what I am told, you
are in for a real wrestling match when trying to decode this.  Also, you
might need a VSAM logic manual.  Good luck!
Dan Kirchner - CMU
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.notis-l
Date:         Tue, 10 Nov 1992 12:23:21 EST
From:         Lydia Pettis <LRP@CORNELLC.BITNET>
Subject:      updating vsam file during read

Sometime back there was a discussion of making updates to a vsam file
while you were reading the file. Can someone review that with me?
Here is what I need to do..:

  -- change all occurrences of ';' in the volume holdings statements to ''

I have the program in place to read and translate the vhld statements
as needed, and I know the position in which to place the updated field.

I'm having a problem knowing (1) where to put my FILE statement, (2) how
to deal with the fact that some records are having several vhld statements
changed, so in some cases I think I need to hold the record with a '@'
after the PUT statement, but it is unclear how to then 'release' the
record, and (3) what options I need to specify on the INFILE line.
Appended are some parts of my program. Are there any SAS update gurus
out there who have some tips? I DO know how to do this if I use 2 data
steps...I am trying to add to my 'repertoire' here!

NOTE: I have NOT included my bright ideas about where to put FILE or how
to use PUT because they didn't work.... Thanks for your help!

Lydia Pettis, Cornell University

OPTIONS VSAMREAD VSAMUPDATE;

DATA SEMICOLN;
     KEEP BIBKEY REC_TYPE VCN A60_PNTR NEWTEXT;

SUBFLDA = '1F81'X;

INFILE BIBFILE VSAM
       FIRSTOBS=2
       LENGTH=REC_LNG
       RECFM=V
       MISSOVER
       FEEDBACK=SASRC;

INPUT  BIBKEY   $CHAR7.    /* REC_TYPE = '40'X IS A BIB RECORD  */
       PROCUN   $CHAR2.    /*          = '00'X IS A CHLD RECORD */
       REC_TYPE  PIB1. @;  /* ANYTHING ELSE IS A VHLD RECORD    */
  /* input leader stuff goes here...*/

         SELECT (FLD_TAG);

   /* READ EVERY A60 FIELD AND TRANSLATE SEMICOLONS */

            WHEN('A60F'X)
               DO;
                  INPUT VCN  PIB1.   @;
                  K = FLD_LNG - 5;
                  INPUT FLD_A60  $VARYING100. K   @;

                  J = INDEX(FLD_A60,SUBFLDA);
                  IF (J > 0)
                     THEN
                        DO;
                           A60_PNTR = POINTER + 5 + (J + 1);
                           OLDTEXT = SUBSTR(FLD_A60,J + 2);
                           NEWTEXT = TRANSLATE(OLDTEXT,'',';');
                           IF OLDTEXT NE NEWTEXT
                             THEN OUTPUT;

           ********** want to update record right here! **********

                        END;     /* J > 0 */
               END;     /* WHEN (A60F) DO */
            OTHERWISE;  /* WHEN(TAG)      */
         END;           /* SELECT         */

      END;              /* DO WHILE (POINTER < REC_LNG) */
   END;                 /* IF REC_TYPE                  */

/*