HP3000-L Archives

November 2022, 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:
Re: KSAMXL file expansion.
From:
Doug Werth <[log in to unmask]>
Reply To:
Doug Werth <[log in to unmask]>
Date:
Thu, 3 Nov 2022 08:47:19 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (105 lines) 
While I am no fan of typos either, the most egregious error on the HPE 
web page is that it doesn't provide the correct FCOPY syntax to 
accomplish the task.

FCOPY creates KSAM files when the output file name(s) are placed inside 
parenthesis. This is true for both NM and CM KSAM files, and the 
technique also converts CM KSAM files to NM.

Examples:

    :listf ksfile,2
    ACCOUNT=  WERTH       GROUP=  DATA

    FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                       SIZE  TYP        EOF LIMIT R/B  SECTORS #X MX

    KSFILE             86B  FAK 22       2875  44      576  2  *


    :COMMENT Increase the size of the file
    :file ksfile2;disc=5000
    :fcopy from=ksfile;to=(*ksfile2)
    HP31900A.05.04 FILE COPIER (C) HEWLETT-PACKARD CO. 1999

    EOF FOUND IN FROMFILE AFTER RECORD 10

    11 RECORDS PROCESSED *** 0 ERRORS


    END OF SUBSYSTEM
    :listf ksfile2,2
    ACCOUNT=  WERTH       GROUP=  DATA

    FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                       SIZE  TYP        EOF LIMIT R/B  SECTORS #X MX

    KSFILE2            86B  FAK 12       5750  44      576  3  *


    :COMMENT  Convert to CM KSAM file AND add capacity
    :file cmks;disc=10000
    :fcopy from=ksfile;to=(*cmks,cmkskey)
    HP31900A.05.04 FILE COPIER (C) HEWLETT-PACKARD CO. 1999

    EOF FOUND IN FROMFILE AFTER RECORD 10

    11 RECORDS PROCESSED *** 0 ERRORS


    END OF SUBSYSTEM
    :listf cmks@,2
    ACCOUNT=  WERTH       GROUP=  DATA

    FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                       SIZE  TYP        EOF LIMIT R/B  SECTORS #X MX

    CMKS      KSAM     86B  FA          11 10000  44      256  1  8
    CMKSKEY   KSAMK   128W  FB 1762       1762   1     1776  1  8


    :COMMENT  Convert from CM to NM KSAM
    :fcopy from=cmks;to=(nmks)
    HP31900A.05.04 FILE COPIER (C) HEWLETT-PACKARD CO. 1999

    EOF FOUND IN FROMFILE AFTER RECORD 10

    11 RECORDS PROCESSED *** 0 ERRORS


    END OF SUBSYSTEM
    :listf nmks,2
    ACCOUNT=  WERTH       GROUP=  DATA

    FILENAME  CODE  ------------LOGICAL RECORD----------- ----SPACE----
                       SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

    NMKS               86B  FAK         12      11500  44      576 3  *




On 11/2/2022 2:05 PM, Stan Sieler wrote:
> Thanks to Michael for posting that link!
>
> Now, how do I submit a bug report on the typos in it? :)
> ("maxiumn" several times)
>
> Stan
>
> On Wed, Nov 2, 2022 at 10:35 AM Michael Berkowitz <
> [log in to unmask]> wrote:
>
>> Here you go
>>
>>
>> https://support.hpe.com/hpesc/public/docDisplay?docId=c02202526&docLocale=en_US
>>
>>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visithttp://raven.utc.edu/archives/hp3000-l.html  *


* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2