Re: DLM Tape reading

[Gibney, Dave]

RESTORE from it with PARM=NORUN

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Jake Anderson
> Sent: Monday, March 20, 2023 9:37 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: DLM Tape reading
> 
> [EXTERNAL EMAIL]
> 
> Mike
> 
> We ran a monthly volume level of backup to a tape dataset
> 
> So I just wanted the list of dataset that was copied or backed up to the
> tape dataset.
> 
> 
> 
> On Tue, Mar 21, 2023, 7:54 AM Michael Watkins <
> 032966e74d0f-dmarc-requ...@listserv.ua.edu> wrote:
> 
> > 'Inspect' in what way? What information about the tape dataset do you
> > need? To determine with certainty that the dataset on the tape can be
> read?
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> Behalf
> > Of Jake Anderson
> > Sent: Monday, March 20, 2023 10:34 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: DLM Tape reading
> >
> > CAUTION: This email originated from outside of the Texas Comptroller's
> > email system.
> > DO NOT click links or open attachments unless you expect them from the
> > sender and know the content is safe.
> >
> > Hi Mike
> >
> > I would like to inspect the tape dataset
> >
> > On Mon, Mar 20, 2023, 7:42 PM Michael Watkins <
> > 032966e74d0f-dmarc-requ...@listserv.ua.edu> wrote:
> >
> > > Are you looking for the names of the datasets on the 3990 volumes that
> > > are being backed up? If you're taking 'volume level' backups with (for
> > > instance) ADRDSSU, the contents of the entire volume will be put into
> > > one output DUMP dataset and only the name of that full volume DUMP
> > > dataset will be in the tape label.
> > >
> > > If you are looking for the dataset names on each 3390 volume being
> > > backed up, consider running an IDCAMS 'DCOLLECT' on those 3390
> volumes
> > > immediately prior to the volume-level backups. Are you backing up the
> > entire shop?
> > > Depending on the size of your shop, a DSCOLLECT might take 20-30
> > > minutes to complete with a SYSIN control card along the lines of:
> > >
> > > DCOLLECT OUTFILE(DCOUT) VOLUMES(*) EXCLUDEVOLUMES(XX* FC*
> F2* Z1*)
> > >
> > > Perhaps keep the DCOLLECT output in a GDG with a LIMIT that matches
> > > the numer of backup tapes for each 3390 volume that you keep.
> > >
> > >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List 
> On
> > > Behalf Of Mark Zelden
> > > Sent: Monday, March 20, 2023 10:05 AM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Re: DLM Tape reading
> > >
> > > CAUTION: This email originated from outside of the Texas Comptroller's
> > > email system.
> > > DO NOT click links or open attachments unless you expect them from the
> > > sender and know the content is safe.
> > >
> > > On Mon, 20 Mar 2023 17:10:20 +0400, Jake Anderson <
> > > justmainfra...@gmail.com> wrote:
> > >
> > > >Hello
> > > >
> > > >I would like to understand how DLM users are able to read the
> > > >contents of the virtual tape and the print the dataset with in each
> > label of it ?
> > > >
> > > >We are taking volume level backup to the virtual tape and is it
> > > >possible to list a particular tape dataset to see it's content?
> > > >
> > > >Regards
> > > >Jake
> > >
> > > I'm not sure I understand the question.  Are you thinking there are
> > > stacked virtual volumes like Oracle/STK VSM?  The virtual tapes are
> > > just like physical tapes and you can print them any number of utilities.
> > >
> > > Or are you asking from a DLm perspective?  If so, research the "awsprint"
> > > command from DLm.
> > >
> > > It just asking about from z/OS, again... lots of utilities.  From ISV
> > > (FATS/FATAR) to IBM DITTO, to IEBGENER to "print" the contents.  If
> > > just interested in labels, I haven't used this PROC in probably 25
> > > years, but here is something to just print the labels.
> > >
> > >
> > > //MPROC  PROC  HP=1
> > > //PS10   EXEC  PGM=IEBPTPCH
> > > //SYSPRINT DD  SYSOUT=*
> > > //SYSUT1   DD  DSN=MZELDEN.TAPE,
> > > // DISP=(SHR,KEEP,KEEP),
> > > // UNIT=TAPE,
> > > // LABEL=(,BLP,EXPDT=98000),
> > > // VOL=SER=vv,
> > > // DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
> > > //SYSUT2   DD  SYSOUT=*
> > > //SYSINDD  DDNAME=SYSIN1
> > > //MPROC  PEND
> > > //*
> > > //* HP=1 FOR VOL1 HDR1 HDR2   *
> > > //* HP=3 FOR EOF1 EOF2*
> > > //*
> > > //JS10   EXEC  PROC=MPROC,HP=1
> > > //SYSPRINT DD  SYSOUT=*
> > > //SYSIN1   DD  *
> > >  PRINT MAXFLDS=1
> > >  TITLE ITEM=('TAPE LABEL INFO',30)
> > >  RECORDFIELD=(80,1)
> > >  LABELSDATA=YES
> > > /*
> > >
> > >
> > > Best Regards,
> > >
> > > Mark
> > > --
> > > Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL
> > > v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities:
> > >
> https://urldefense.com/v3/__https://gcc02.safelinks.protection.outlook.co
> 

Re: DLM Tape reading

[Jake Anderson]

Mike

We ran a monthly volume level of backup to a tape dataset

So I just wanted the list of dataset that was copied or backed up to the
tape dataset.



On Tue, Mar 21, 2023, 7:54 AM Michael Watkins <
032966e74d0f-dmarc-requ...@listserv.ua.edu> wrote:

> 'Inspect' in what way? What information about the tape dataset do you
> need? To determine with certainty that the dataset on the tape can be read?
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Jake Anderson
> Sent: Monday, March 20, 2023 10:34 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: DLM Tape reading
>
> CAUTION: This email originated from outside of the Texas Comptroller's
> email system.
> DO NOT click links or open attachments unless you expect them from the
> sender and know the content is safe.
>
> Hi Mike
>
> I would like to inspect the tape dataset
>
> On Mon, Mar 20, 2023, 7:42 PM Michael Watkins <
> 032966e74d0f-dmarc-requ...@listserv.ua.edu> wrote:
>
> > Are you looking for the names of the datasets on the 3990 volumes that
> > are being backed up? If you're taking 'volume level' backups with (for
> > instance) ADRDSSU, the contents of the entire volume will be put into
> > one output DUMP dataset and only the name of that full volume DUMP
> > dataset will be in the tape label.
> >
> > If you are looking for the dataset names on each 3390 volume being
> > backed up, consider running an IDCAMS 'DCOLLECT' on those 3390 volumes
> > immediately prior to the volume-level backups. Are you backing up the
> entire shop?
> > Depending on the size of your shop, a DSCOLLECT might take 20-30
> > minutes to complete with a SYSIN control card along the lines of:
> >
> > DCOLLECT OUTFILE(DCOUT) VOLUMES(*) EXCLUDEVOLUMES(XX* FC* F2* Z1*)
> >
> > Perhaps keep the DCOLLECT output in a GDG with a LIMIT that matches
> > the numer of backup tapes for each 3390 volume that you keep.
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> > Behalf Of Mark Zelden
> > Sent: Monday, March 20, 2023 10:05 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: DLM Tape reading
> >
> > CAUTION: This email originated from outside of the Texas Comptroller's
> > email system.
> > DO NOT click links or open attachments unless you expect them from the
> > sender and know the content is safe.
> >
> > On Mon, 20 Mar 2023 17:10:20 +0400, Jake Anderson <
> > justmainfra...@gmail.com> wrote:
> >
> > >Hello
> > >
> > >I would like to understand how DLM users are able to read the
> > >contents of the virtual tape and the print the dataset with in each
> label of it ?
> > >
> > >We are taking volume level backup to the virtual tape and is it
> > >possible to list a particular tape dataset to see it's content?
> > >
> > >Regards
> > >Jake
> >
> > I'm not sure I understand the question.  Are you thinking there are
> > stacked virtual volumes like Oracle/STK VSM?  The virtual tapes are
> > just like physical tapes and you can print them any number of utilities.
> >
> > Or are you asking from a DLm perspective?  If so, research the "awsprint"
> > command from DLm.
> >
> > It just asking about from z/OS, again... lots of utilities.  From ISV
> > (FATS/FATAR) to IBM DITTO, to IEBGENER to "print" the contents.  If
> > just interested in labels, I haven't used this PROC in probably 25
> > years, but here is something to just print the labels.
> >
> >
> > //MPROC  PROC  HP=1
> > //PS10   EXEC  PGM=IEBPTPCH
> > //SYSPRINT DD  SYSOUT=*
> > //SYSUT1   DD  DSN=MZELDEN.TAPE,
> > // DISP=(SHR,KEEP,KEEP),
> > // UNIT=TAPE,
> > // LABEL=(,BLP,EXPDT=98000),
> > // VOL=SER=vv,
> > // DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
> > //SYSUT2   DD  SYSOUT=*
> > //SYSINDD  DDNAME=SYSIN1
> > //MPROC  PEND
> > //*
> > //* HP=1 FOR VOL1 HDR1 HDR2   *
> > //* HP=3 FOR EOF1 EOF2*
> > //*
> > //JS10   EXEC  PROC=MPROC,HP=1
> > //SYSPRINT DD  SYSOUT=*
> > //SYSIN1   DD  *
> >  PRINT MAXFLDS=1
> >  TITLE ITEM=('TAPE LABEL INFO',30)
> >  RECORDFIELD=(80,1)
> >  LABELSDATA=YES
> > /*
> >
> >
> > Best Regards,
> >
> > Mark
> > --
> > Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL
> > v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities:
> > https://gcc02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.m
> > zelden.com%2Fmvsutil.html=05%7C01%7Cmichael.watkins%40CPA.TEXAS.G
> > OV%7C55829aad693745531ef408db29bd3132%7C2055feba299d4d0daa5a73b8b42fef
> > 08%7C0%7C0%7C638149664781144530%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLj
> > AwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C
> > data=DgfTwNjPBeinsIxgG2svm%2Bh9UKDdElWIHTBLDgTMygA%3D=0
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with 

Re: DLM Tape reading

[Michael Watkins]

'Inspect' in what way? What information about the tape dataset do you need? To 
determine with certainty that the dataset on the tape can be read?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jake Anderson
Sent: Monday, March 20, 2023 10:34 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DLM Tape reading

CAUTION: This email originated from outside of the Texas Comptroller's email 
system.
DO NOT click links or open attachments unless you expect them from the sender 
and know the content is safe.

Hi Mike

I would like to inspect the tape dataset

On Mon, Mar 20, 2023, 7:42 PM Michael Watkins < 
032966e74d0f-dmarc-requ...@listserv.ua.edu> wrote:

> Are you looking for the names of the datasets on the 3990 volumes that 
> are being backed up? If you're taking 'volume level' backups with (for
> instance) ADRDSSU, the contents of the entire volume will be put into 
> one output DUMP dataset and only the name of that full volume DUMP 
> dataset will be in the tape label.
>
> If you are looking for the dataset names on each 3390 volume being 
> backed up, consider running an IDCAMS 'DCOLLECT' on those 3390 volumes 
> immediately prior to the volume-level backups. Are you backing up the entire 
> shop?
> Depending on the size of your shop, a DSCOLLECT might take 20-30 
> minutes to complete with a SYSIN control card along the lines of:
>
> DCOLLECT OUTFILE(DCOUT) VOLUMES(*) EXCLUDEVOLUMES(XX* FC* F2* Z1*)
>
> Perhaps keep the DCOLLECT output in a GDG with a LIMIT that matches 
> the numer of backup tapes for each 3390 volume that you keep.
>
>
> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of Mark Zelden
> Sent: Monday, March 20, 2023 10:05 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: DLM Tape reading
>
> CAUTION: This email originated from outside of the Texas Comptroller's 
> email system.
> DO NOT click links or open attachments unless you expect them from the 
> sender and know the content is safe.
>
> On Mon, 20 Mar 2023 17:10:20 +0400, Jake Anderson < 
> justmainfra...@gmail.com> wrote:
>
> >Hello
> >
> >I would like to understand how DLM users are able to read the 
> >contents of the virtual tape and the print the dataset with in each label of 
> >it ?
> >
> >We are taking volume level backup to the virtual tape and is it 
> >possible to list a particular tape dataset to see it's content?
> >
> >Regards
> >Jake
>
> I'm not sure I understand the question.  Are you thinking there are 
> stacked virtual volumes like Oracle/STK VSM?  The virtual tapes are 
> just like physical tapes and you can print them any number of utilities.
>
> Or are you asking from a DLm perspective?  If so, research the "awsprint"
> command from DLm.
>
> It just asking about from z/OS, again... lots of utilities.  From ISV
> (FATS/FATAR) to IBM DITTO, to IEBGENER to "print" the contents.  If 
> just interested in labels, I haven't used this PROC in probably 25 
> years, but here is something to just print the labels.
>
>
> //MPROC  PROC  HP=1
> //PS10   EXEC  PGM=IEBPTPCH
> //SYSPRINT DD  SYSOUT=*
> //SYSUT1   DD  DSN=MZELDEN.TAPE,
> // DISP=(SHR,KEEP,KEEP),
> // UNIT=TAPE,
> // LABEL=(,BLP,EXPDT=98000),
> // VOL=SER=vv,
> // DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
> //SYSUT2   DD  SYSOUT=*
> //SYSINDD  DDNAME=SYSIN1
> //MPROC  PEND
> //*
> //* HP=1 FOR VOL1 HDR1 HDR2   *
> //* HP=3 FOR EOF1 EOF2*
> //*
> //JS10   EXEC  PROC=MPROC,HP=1
> //SYSPRINT DD  SYSOUT=*
> //SYSIN1   DD  *
>  PRINT MAXFLDS=1
>  TITLE ITEM=('TAPE LABEL INFO',30)
>  RECORDFIELD=(80,1)
>  LABELSDATA=YES
> /*
>
>
> Best Regards,
>
> Mark
> --
> Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL 
> v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities:
> https://gcc02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.m
> zelden.com%2Fmvsutil.html=05%7C01%7Cmichael.watkins%40CPA.TEXAS.G
> OV%7C55829aad693745531ef408db29bd3132%7C2055feba299d4d0daa5a73b8b42fef
> 08%7C0%7C0%7C638149664781144530%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLj
> AwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C
> data=DgfTwNjPBeinsIxgG2svm%2Bh9UKDdElWIHTBLDgTMygA%3D=0
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DLM Tape reading

[Jake Anderson]

Hi Mike

I would like to inspect the tape dataset

On Mon, Mar 20, 2023, 7:42 PM Michael Watkins <
032966e74d0f-dmarc-requ...@listserv.ua.edu> wrote:

> Are you looking for the names of the datasets on the 3990 volumes that are
> being backed up? If you're taking 'volume level' backups with (for
> instance) ADRDSSU, the contents of the entire volume will be put into one
> output DUMP dataset and only the name of that full volume DUMP dataset will
> be in the tape label.
>
> If you are looking for the dataset names on each 3390 volume being backed
> up, consider running an IDCAMS 'DCOLLECT' on those 3390 volumes immediately
> prior to the volume-level backups. Are you backing up the entire shop?
> Depending on the size of your shop, a DSCOLLECT might take 20-30 minutes to
> complete with a SYSIN control card along the lines of:
>
> DCOLLECT OUTFILE(DCOUT) VOLUMES(*) EXCLUDEVOLUMES(XX* FC* F2* Z1*)
>
> Perhaps keep the DCOLLECT output in a GDG with a LIMIT that matches the
> numer of backup tapes for each 3390 volume that you keep.
>
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Mark Zelden
> Sent: Monday, March 20, 2023 10:05 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: DLM Tape reading
>
> CAUTION: This email originated from outside of the Texas Comptroller's
> email system.
> DO NOT click links or open attachments unless you expect them from the
> sender and know the content is safe.
>
> On Mon, 20 Mar 2023 17:10:20 +0400, Jake Anderson <
> justmainfra...@gmail.com> wrote:
>
> >Hello
> >
> >I would like to understand how DLM users are able to read the contents
> >of the virtual tape and the print the dataset with in each label of it ?
> >
> >We are taking volume level backup to the virtual tape and is it
> >possible to list a particular tape dataset to see it's content?
> >
> >Regards
> >Jake
>
> I'm not sure I understand the question.  Are you thinking there are
> stacked virtual volumes like Oracle/STK VSM?  The virtual tapes are just
> like physical tapes and you can print them any number of utilities.
>
> Or are you asking from a DLm perspective?  If so, research the "awsprint"
> command from DLm.
>
> It just asking about from z/OS, again... lots of utilities.  From ISV
> (FATS/FATAR) to IBM DITTO, to IEBGENER to "print" the contents.  If just
> interested in labels, I haven't used this PROC in probably 25 years, but
> here is something to just print the labels.
>
>
> //MPROC  PROC  HP=1
> //PS10   EXEC  PGM=IEBPTPCH
> //SYSPRINT DD  SYSOUT=*
> //SYSUT1   DD  DSN=MZELDEN.TAPE,
> // DISP=(SHR,KEEP,KEEP),
> // UNIT=TAPE,
> // LABEL=(,BLP,EXPDT=98000),
> // VOL=SER=vv,
> // DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
> //SYSUT2   DD  SYSOUT=*
> //SYSINDD  DDNAME=SYSIN1
> //MPROC  PEND
> //*
> //* HP=1 FOR VOL1 HDR1 HDR2   *
> //* HP=3 FOR EOF1 EOF2*
> //*
> //JS10   EXEC  PROC=MPROC,HP=1
> //SYSPRINT DD  SYSOUT=*
> //SYSIN1   DD  *
>  PRINT MAXFLDS=1
>  TITLE ITEM=('TAPE LABEL INFO',30)
>  RECORDFIELD=(80,1)
>  LABELSDATA=YES
> /*
>
>
> Best Regards,
>
> Mark
> --
> Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3
> Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities:
> https://gcc02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.mzelden.com%2Fmvsutil.html=05%7C01%7Cmichael.watkins%40CPA.TEXAS.GOV%7Cc18942d930434b8fb26808db29548e55%7C2055feba299d4d0daa5a73b8b42fef08%7C0%7C0%7C638149215366690623%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C=oYfDMeAZjDdo9%2BRo8UVTwy0N2FhXhWVptjygw2YmXFw%3D=0
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: BSAM READ AMODE 31 RMODE 31

[Seymour J Metz]

IMHO it's clearer to just use

 READ  PDSDECB,SF,PDSDCB,address _of_READ_buffer,MF=E
 CHECK PDSDECB 


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Joseph Reichman [reichman...@gmail.com]
Sent: Monday, March 20, 2023 9:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: BSAM READ AMODE 31 RMODE 31

   Hi



I know Charles Mills answered my question nearly 4 weeks ago but I would
just like to corroborate the I/O areas for the read can be 31 bit addressing
only the dcb and decb need to be below the line

I am running AMODE 31 RMODE 31



The DCB is below the line as well as the DECB



My read returns ok



After I set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP



This the example that Charles sent to me does nt say anything about the
IOAREAS or pointers to the IOAREAS



LA Rn,PDSDCB

ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB

L Rn,address  of READ buffer

READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB









This is my read



 READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E



The  IOBUFF is a full word  pointer to the storage I obtain





  Here is my code



  LAR0,IODSECTLEN

  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0

  LRR9,R6

  USING IHADCB,R9

  USING IODSECT,R6

 *

 *

  LAR7,SYSADATA

  MVC   0(IODSECTLEN,R6),0(R7)

 *

  LAR7,SYSDCBE-SYSADATA(,R6)

  STR7,DCBDCBE

  LAR7,EX24LST-SYSADATA(,R6)

  STCM  R7,B'0111',DCBEXLSA

  LAR7,ABND24-SYSADATA(,R6)

  STCM  R7,B'0111',ABND24ADR-SYSADATA(R6)

  LAR7,ABENDRTN

  STR7,ABEND31-SYSADATA(,R6)

 *

T  L R0,=F'31996'

 *

  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=RES,SP=0

 *LAR7,IOAREA

 *STR7,IOPTR

 *

  STR7,IOBUFF

  MVC   OPEN_LST(OPEN_LEN),OPEN_CON

  OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31

 *

  TMDCBOFLGS,DCBOFOPN

  BZEXITDEBG

  USING ASMADATA,R7

  L R10,IOBUFF

 PROCADATA DS   0H

  READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E

 *

  CHECK ADATADECB

 *

OPEN_CON OPEN (*-*,INPUT),MF=L,MODE=31

SYSADATA DCB DDNAME=SYSADATA,RECFM=VB,MACRF=RP,DSORG=PS,DCBE=SYSDCBE,EXX

   LST=EX24LST



  IHADECB DSECT=NO

DECBLEN  EQU   *-DECB

SYSDCBE  DCBE EODAD=FIN,GETSIZE=YES,LOC=ANY,RMODE31=BUFF,SYNAD=SYNAD,VEX

   RSION=1

EX24LSTDS  0F

ADATAEXLST DC  AL1(EXLDCBAB+X'80')

ABND24ADR  DS  AL3

ABND24 DS  0H

   L   R15,ABEND31-SYSADATA(,R15)

   BSM 0,R15

ABEND31DS  XL4

STROGE24   EQU *-EX24LST

*

  IODSECT   DSECT

ADATADCB  DSCL(DCBLNGBS)

ADATADECB DSCL(DECBLEN)

ADATADCBE DSCL(DCBELENV1)

  DS0F

INST31DSCL(STROGE24)

IODSECTLEN EQU  *-IODSECT





















































--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: PL/I Opt. Compiler V2 manuals?

[Seymour J Metz]

I'd rather stick to the native OS/2 version for the time being, until I have 
the native Linux version set up. Thanks.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Martin Trübner [047eec287bd9-dmarc-requ...@listserv.ua.edu]
Sent: Monday, March 20, 2023 12:21 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PL/I Opt. Compiler V2 manuals?

I use WINE on top - works fine here

Am 20.03.23 um 16:10 schrieb Seymour J Metz:
> If someone responds off-list, please send me the link.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Dave Jones [d...@vsoft-software.com]
> Sent: Monday, March 20, 2023 10:24 AM
> To:IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: PL/I Opt. Compiler V2 manuals?
>
> Does anyone know where I can download the Softcopy Reader for Linux? The IBM 
> site seems to have only the Windows version.
> Thanks.
> DJ
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email tolists...@listserv.ua.edu  with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email tolists...@listserv.ua.edu  with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: location of JCL for started task

[Seymour J Metz]

Both JES2 and JES3 have alternative PROC sources. Worst case is a started job 
with a JCLLIB DD.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Michael Brennan [brennan4...@gmail.com]
Sent: Monday, March 20, 2023 2:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: location of JCL for started task

A job card for a started task is normally found in one of the data sets
pointed to by the IEFPDSI DD or the IEFJOBS DD of your Master JCL. Master
JCL is normally found in SYS1.PARMLIB or one of the data sets in your
PARMLIB concatenation in a member named MSTJCL00 or some other number other
than 00.

On Sun, Mar 19, 2023 at 4:46 AM Bill Giannelli 
wrote:

> I found a WLM entry for an application environment specifying the proc in
> question with the following:
> Starting of server address spaces for a subsystem instance:
>  Managed by WLM
> So is this started from within WLM?
> On Sun, 19 Mar 2023 03:45:09 +, Gibney, Dave  wrote:
>
> >The job cards from MSTJCL IEFJOBS Dd is newer that started tasks. Sounds
> to me like your STC is started by
> >S procname and any JOB card is system generated. If started before JESx,
> then it's from the proclib concatenation in MSTJCL
> >If after, and your JES proclib concatenation is different, then maybe
> from there.
> >
> >You state you can find the proc. That's probably where it is being
> started from
> >
> >> -Original Message-
> >> From: IBM MainframeiDiscussion List  On
> >> Behalf Of Bill Giannelli
> >> Sent: Saturday, March 18, 2023 10:26 AM
> >> To: IBM-MAIN@LISTSERV.UA.EDU
> >> Subject: location of JCL for started task
> >>
> >> [EXTERNAL EMAIL]
> >>
> >> we have a PDS for job cards for started tasks, which reference our
> system
> >> proclib.
> >> I have a started task that is executing, yet I can not find the actual
> JCL
> >> (Jobcard, etc). I can find the proc.
> >> How can I find where the JCL is being read from?
> >> thanks
> >> Bill
> >>
> >> --
> >> For IBM-MAIN subscribe / signoff / archive access instructions,
> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> >--
> >For IBM-MAIN subscribe / signoff / archive access instructions,
> >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


--
Michael Brennan

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: location of JCL for started task

[Michael Brennan]

A job card for a started task is normally found in one of the data sets
pointed to by the IEFPDSI DD or the IEFJOBS DD of your Master JCL. Master
JCL is normally found in SYS1.PARMLIB or one of the data sets in your
PARMLIB concatenation in a member named MSTJCL00 or some other number other
than 00.

On Sun, Mar 19, 2023 at 4:46 AM Bill Giannelli 
wrote:

> I found a WLM entry for an application environment specifying the proc in
> question with the following:
> Starting of server address spaces for a subsystem instance:
>  Managed by WLM
> So is this started from within WLM?
> On Sun, 19 Mar 2023 03:45:09 +, Gibney, Dave  wrote:
>
> >The job cards from MSTJCL IEFJOBS Dd is newer that started tasks. Sounds
> to me like your STC is started by
> >S procname and any JOB card is system generated. If started before JESx,
> then it's from the proclib concatenation in MSTJCL
> >If after, and your JES proclib concatenation is different, then maybe
> from there.
> >
> >You state you can find the proc. That's probably where it is being
> started from
> >
> >> -Original Message-
> >> From: IBM MainframeiDiscussion List  On
> >> Behalf Of Bill Giannelli
> >> Sent: Saturday, March 18, 2023 10:26 AM
> >> To: IBM-MAIN@LISTSERV.UA.EDU
> >> Subject: location of JCL for started task
> >>
> >> [EXTERNAL EMAIL]
> >>
> >> we have a PDS for job cards for started tasks, which reference our
> system
> >> proclib.
> >> I have a started task that is executing, yet I can not find the actual
> JCL
> >> (Jobcard, etc). I can find the proc.
> >> How can I find where the JCL is being read from?
> >> thanks
> >> Bill
> >>
> >> --
> >> For IBM-MAIN subscribe / signoff / archive access instructions,
> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> >--
> >For IBM-MAIN subscribe / signoff / archive access instructions,
> >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
Michael Brennan

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: OMVS File System Automove question

[Mark Jacobs]

I did that, it didn't change from what I could see. I might open a question to 
IBM support. See what they say.

Mark Jacobs 

Sent from ProtonMail, Swiss-based encrypted email.

GPG Public Key - 
https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com


--- Original Message ---
On Monday, March 20th, 2023 at 1:05 PM, Dave Jousma 
<01a0403c5dc1-dmarc-requ...@listserv.ua.edu> wrote:


> On Mon, 20 Mar 2023 14:42:41 +, Mark Jacobs markjac...@protonmail.com 
> wrote:
> 
> > Thanks, no I didn't think of the chmount command. I ran a test on my 
> > sandbox. the /u directory is showing that automove will exclude the system 
> > I specified, but the file systems mounted under it don't show that 
> > attribute, just Automove=Y. Do I need to change the mount attribute for all 
> > automounted file systems, or will automove attribute for the parent /u/ 
> > directory override each individual file system?
> > 
> > Mark Jacobs
> 
> 
> you might unmount one, and let it mount again, and see if it inherits the 
> settings from /u. if that works, you could try a chmount -D system /u/* to 
> change ownership manually this time.
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: BSAM READ AMODE 31 RMODE 31

[Joseph Reichman]

Thanks
 
 MVC   0(IODSECTLEN,R6),SYSADATA 
 
 LAR7,SYSDCBE
 STR7,DCBDCBE
 LAR7,EX24LST
 STCM  R7,B'0111',DCBEXLSA   
 LAR7,ABND24 
 STCM  R7,B'0111',ABND24ADR-SYSADATA(R6) 
 LAR7,ABENDRTN   
 STR7,ABEND31-SYSADATA(,R6)  
 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Seymour J Metz
Sent: Monday, March 20, 2023 11:07 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: BSAM READ AMODE 31 RMODE 31

That doesn't explain why you had LA R7 in places where you didn't need a
pointer, 

  LAR7,SYSADATA
  MVC   0(IODSECTLEN,R6),0(R7)

Instead of the clearer

  MVC   0(IODSECTLEN,R6),SYSADATA

Side issue are why you had separate moves for initialization instead of one
big move and why you didn't just use symbolic names in your E-form macros
instead of register form parameters with an otherwise extraneous LA.

You might want to read up on dependent and labelled USING pseudo-ops.

Only the WAIT service should be storing an RB address in an ECB; the ECB
that you provide in the DECB should initially have a high bit of 0. Also,
the completion code is 31 bits, and a lot of system services have codes with
the lower 24 bits zero or containig a context for the code in bits 0-7. In
particular, Many services use 7F in the high byte for normal completion.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Joseph Reichman [reichman...@gmail.com]
Sent: Monday, March 20, 2023 10:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: BSAM READ AMODE 31 RMODE 31

Ok

Thanks
The reason I had the LA R7

I first had to get 24 bit storage for 1) dcb 2) decb though I realize it can
live in 31 bit
3) decb it has to live in 31 bit 4) initial exit code has to be 24 bit

Once moved I had to get the proper pointers
24 bit pointers for exlst , decb

Let me corroborate I understand why I got the error

After the read the first full word should be for the ECB so the low order
should have an RB Or if it already posted should have the first byte x'40'
followed by completion code which could be zeros what a saw in the ECB
address was the first byte x'7F'

Anyway I have to fix the read thank you

> On Mar 20, 2023, at 9:52 AM, Binyamin Dissen 
wrote:
>
> First of all, the buffer address specified on READ MF=E is an RX 
> address, not an indirect address.
>
> So the read will overlay from IOBBUFF. That could cause strange 
> results,
>
> You would need
>
>  L  Rx,IOBUFF
>  READ  ADATADECB,SF,(R6),(Rx),'S',MF=E
>
>
> Also, I do not understand why you use IHADECB in your work area rather 
> than a
>
> READ label,SF,1-1,2-2,'S',MF=L
>
> which will reserve the storage of the appropriate size.
>
> I would recommend against altering the DECB directly, as the READ 
> macro takes care of it.
>
> Very strange to STORAGE OBTAIN,ADDR=(R7) followed by a LA R7
>
> Back to the drawing board.
>
> On Mon, 20 Mar 2023 09:20:39 -0400 Joseph Reichman 
> 
> wrote:
>
> :>   Hi
> :>
> :>
> :>
> :>I know Charles Mills answered my question nearly 4 weeks ago but I 
> would :>just like to corroborate the I/O areas for the read can be 31 
> bit addressing :>only the dcb and decb need to be below the line :> 
> :>I am running AMODE 31 RMODE 31 :> :> :> :>The DCB is below the line 
> as well as the DECB :> :> :> :>My read returns ok :> :> :> :>After I 
> set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP :> 
> :> :> :>This the example that Charles sent to me does nt say anything 
> about the :>IOAREAS or pointers to the IOAREAS :> :> :> :>LA Rn,PDSDCB 
> :> :>ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB :> :>L Rn,address  of 
> READ buffer :> :>READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB :> :> :> :> 
> :> :> :> :> :> :>This is my read :> :> :> :> READ  
> ADATADECB,SF,(R6),IOBUFF,'S',MF=E :> :> :> :>The  IOBUFF is a full 
> word  pointer to the storage I obtain :> :> :> :> :> :>  Here is my 
> code :> :> :>
> :>  LAR0,IODSECTLEN
> :>
> :>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0
> :>
> :>  LRR9,R6
> :>
> :>  USING IHADCB,R9
> :>
> :>  USING IODSECT,R6
> :>
> :> *
> :>
> :> *
> :>
> :>  LAR7,SYSADATA
> :>
> :>  MVC   0(IODSECTLEN,R6),0(R7)
> :>
> :> *
> :>
> :>  LAR7,SYSDCBE-SYSADATA(,R6)
> :>
> :>  STR7,DCBDCBE
> :>
> :>  LAR7,EX24LST-SYSADATA(,R6)
> :>
> :>  STCM  R7,B'0111',DCBEXLSA
> :>
> :>  LAR7,ABND24-SYSADATA(,R6)
> :>
> :>  STCM  R7,B'0111',ABND24ADR-SYSADATA(R6)
> :>
> :>  LAR7,ABENDRTN
> :>
> :>  ST

Re: Scheduling a job to run after a delay

[Charles Mills]

Thank you all.

// SCHEDULE HOLDUNTL='+01:00' works like a champ! Thanks all.

I have a slightly different member (other tweaks in addition to the HOLDUNTL) 
that I use for the re-run, which works out well.

Charles

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Book Manager

[Anthony L. Zak]

V V2/s/ Anthony L. Zak
 Original message ,From: Bernd Oppolzer 
 Date: 3/20/23  12:40  (GMT-05:00) To: 
IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [IBM-MAIN] BookManager I would like to 
thank all who responded and tellz you about the solution we found.Kz[>  g 
zd;&-÷3@^' First of all, with some support from somewhere, we managed to 
re-install the BookManager softwareon the z/OS 2.5 system - unsupported / 
as-is. This, at least, allows us to read the books temporarilyand to start the 
conversion from here.Then I copied the needed books (some hundred) to 
Bookmaster GML format, which can be donefrom inside READ/MVS. The MVS (or z/OS) 
version converts complete books to Bookmaster GML,not only single paragraphs. 
The Bookmaster files (which are textfiles in the end) then were movedto a PC 
(using text FTP).Then I used B2H (the Windows variant) to create HTML from the 
Bookmaster files. I changed theB2H REXX a little bit, so that all texts are 
enclosed in  tags; this way the line breaks etc.from the original 
documents are preserved.Task completed :-)Some additional remarks:the internal 
layout of the .BOO files is not usable and very difficult; 4096 byte segments, 
word fragmentsin EBCDIC, maybe some sort of linked list or tree structure. I 
spent some time trying to understand this,but no success.I also tried to find 
the Bookmaster sources - as suggested by some posters - at my customer's 
sitefor the books, which were present in the "production" bookshelves, but also 
no success;the sources were partially lost and the people responsible for the 
books have retired.So it was best to retrieve the Bookmaster sources from the 
books directly.Kind regardsBerndAm 28.02.2023 um 18:59 schrieb Bernd Oppolzer:> 
What is the preferred way to convert BookMgr books to PDF?>> My customer has 
some home-written BookMgr books, which they cannot access> after the z/OS 
migration (BookMgr support was dropped with z/OS 2.4).>> We managed to transfer 
the books to Windows (and OS/2, BTW), where we can> at least look at the books. 
Now I would like to convert the books to > PDFs.> But the free Softcopy Reader 
refuses to print more than one (selected) > topicc1+○xcb v> or ranges of 
topics; if you try to do this using the print menu > (selected or range),> the 
output is always empty.>> Is this a bug - or: is printing larger portions of 
text not allowed in > the free version?> What are the options?>> The eMail 
address book...@us.ibm.com, which is mentioned in the > Softcopy Reader> help 
texts, doesn't exist any more (BTW: the Softcopy Reader is a 2012 > edition;> 
this seems to be the last one available).>> Is there a documented API to read 
the books using a C or REXX program> and build the PDFs this way? Or build HTML 
from the books?>> Thanks for all suggestions,> kind regards>> 
Bernd>>>--For
 IBM-MAIN subscribe / signoff / archive access instructions,send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: BSAM READ AMODE 31 RMODE 31

[Joseph Reichman]

You are correct sir 

Will make Binyamin changes and try it tonite 

> On Mar 20, 2023, at 11:07 AM, Seymour J Metz  wrote:
> 
> That doesn't explain why you had LA R7 in places where you didn't need a 
> pointer, 
> 
>  LAR7,SYSADATA
>  MVC   0(IODSECTLEN,R6),0(R7)
> 
> Instead of the clearer
> 
>  MVC   0(IODSECTLEN,R6),SYSADATA
> 
> Side issue are why you had separate moves for initialization instead of one 
> big move and why you didn't just use symbolic names in your E-form macros 
> instead of register form parameters with an otherwise extraneous LA.
> 
> You might want to read up on dependent and labelled USING pseudo-ops.
> 
> Only the WAIT service should be storing an RB address in an ECB; the ECB that 
> you provide in the DECB should initially have a high bit of 0. Also, the 
> completion code is 31 bits, and a lot of system services have codes with the 
> lower 24 bits zero or containig a context for the code in bits 0-7. In 
> particular, Many services use 7F in the high byte for normal completion.
> 
> 
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Joseph Reichman [reichman...@gmail.com]
> Sent: Monday, March 20, 2023 10:10 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: BSAM READ AMODE 31 RMODE 31
> 
> Ok
> 
> Thanks
> The reason I had the LA R7
> 
> I first had to get 24 bit storage for 1) dcb 2) decb though I realize it can 
> live in 31 bit
> 3) decb it has to live in 31 bit 4) initial exit code has to be 24 bit
> 
> Once moved I had to get the proper pointers
> 24 bit pointers for exlst , decb
> 
> Let me corroborate I understand why I got the error
> 
> After the read the first full word should be for the ECB so the low order 
> should have an RB
> Or if it already posted should have the first byte x’40’ followed by 
> completion code which could be zeros what a saw in the ECB address was the 
> first byte x’7F’
> 
> Anyway I have to fix the read thank you
> 
>> On Mar 20, 2023, at 9:52 AM, Binyamin Dissen  
>> wrote:
>> 
>> First of all, the buffer address specified on READ MF=E is an RX address, not
>> an indirect address.
>> 
>> So the read will overlay from IOBBUFF. That could cause strange results,
>> 
>> You would need
>> 
>> L  Rx,IOBUFF
>> READ  ADATADECB,SF,(R6),(Rx),'S',MF=E
>> 
>> 
>> Also, I do not understand why you use IHADECB in your work area rather than a
>> 
>> READ label,SF,1-1,2-2,'S',MF=L
>> 
>> which will reserve the storage of the appropriate size.
>> 
>> I would recommend against altering the DECB directly, as the READ macro takes
>> care of it.
>> 
>> Very strange to STORAGE OBTAIN,ADDR=(R7) followed by a LA R7
>> 
>> Back to the drawing board.
>> 
>> On Mon, 20 Mar 2023 09:20:39 -0400 Joseph Reichman 
>> wrote:
>> 
>> :>   Hi
>> :>
>> :>
>> :>
>> :>I know Charles Mills answered my question nearly 4 weeks ago but I would
>> :>just like to corroborate the I/O areas for the read can be 31 bit 
>> addressing
>> :>only the dcb and decb need to be below the line
>> :>
>> :>I am running AMODE 31 RMODE 31
>> :>
>> :>
>> :>
>> :>The DCB is below the line as well as the DECB
>> :>
>> :>
>> :>
>> :>My read returns ok
>> :>
>> :>
>> :>
>> :>After I set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP
>> :>
>> :>
>> :>
>> :>This the example that Charles sent to me does nt say anything about the
>> :>IOAREAS or pointers to the IOAREAS
>> :>
>> :>
>> :>
>> :>LA Rn,PDSDCB
>> :>
>> :>ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB
>> :>
>> :>L Rn,address  of READ buffer
>> :>
>> :>READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB
>> :>
>> :>
>> :>
>> :>
>> :>
>> :>
>> :>
>> :>
>> :>
>> :>This is my read
>> :>
>> :>
>> :>
>> :> READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E
>> :>
>> :>
>> :>
>> :>The  IOBUFF is a full word  pointer to the storage I obtain
>> :>
>> :>
>> :>
>> :>
>> :>
>> :>  Here is my code
>> :>
>> :>
>> :>
>> :>  LAR0,IODSECTLEN
>> :>
>> :>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0
>> :>
>> :>  LRR9,R6
>> :>
>> :>  USING IHADCB,R9
>> :>
>> :>  USING IODSECT,R6
>> :>
>> :> *
>> :>
>> :> *
>> :>
>> :>  LAR7,SYSADATA
>> :>
>> :>  MVC   0(IODSECTLEN,R6),0(R7)
>> :>
>> :> *
>> :>
>> :>  LAR7,SYSDCBE-SYSADATA(,R6)
>> :>
>> :>  STR7,DCBDCBE
>> :>
>> :>  LAR7,EX24LST-SYSADATA(,R6)
>> :>
>> :>  STCM  R7,B'0111',DCBEXLSA
>> :>
>> :>  LAR7,ABND24-SYSADATA(,R6)
>> :>
>> :>  STCM  R7,B'0111',ABND24ADR-SYSADATA(R6)
>> :>
>> :>  LAR7,ABENDRTN
>> :>
>> :>  STR7,ABEND31-SYSADATA(,R6)
>> :>
>> :> *
>> :>
>> :>T  L R0,=F'31996'
>> :>
>> :> *
>> :>
>> :>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=RES,SP=0
>> :>
>> :> *LAR7,IOAREA
>> :>
>> :> *STR7,IOPTR
>> :>
>> :> *

Re: BookManager

[Anthony L. Zak]

,l/s/ Anthony L. Zak6iwjj 
 Original message From: Bernd Oppolzer 
 Date: 3/20/23  12:40  (GMT-05:00) To: 
IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [IBM-MAIN] BookManager I would like to 
thank all who responded and tell you about the solution we found.First of all, 
with some support from somewhere, we managed to re-install the BookManager 
softwareon the z/OS 2.5 system - unsupported / as-is. This, at least, allows us 
to read the books temporarilyand to start the conversion from here.Then I 
copied the needed books (some hundred) to Bookmaster GML format, which can be 
donefrom inside READ/MVS. The MVS (or z/OS) version converts complete books to 
Bookmaster GML,not only single paragraphs. The Bookmaster files (which are 
textfiles in the end) then were movedto a PC (using text FTP).Then I used B2H 
(the Windows variant) to create HTML from the Bookmaster files. I changed 
theB2H REXX a little bit, so that all texts are enclosed in  tags; this 
way the line breaks etc.from the original documents are preserved.Task 
completed :-)Some additional remarks:the internal layout of the .BOO files is 
not usable and very difficult; 4096 byte segments, word fragmentsin EBCDIC, 
maybe some sort of linked list or tree structure. I spent some time trying to 
understand this,but no success.I also tried to find the Bookmaster sources - as 
suggested by some posters - at my customer's sitefor the books, which were 
present in the "production" bookshelves, but also no success;the sources were 
partially lost and the people responsible for the books have retired.So it was 
best to retrieve the Bookmaster sources from the books directly.Kind 
regardsBerndAm 28.02.2023 um 18:59 schrieb Bernd Oppolzer:> What is the 
preferred way to convert BookMgr books to PDF?>> My customer has some 
home-written BookMgr books, which they cannot access> after the z/OS migration 
(BookMgr support was dropped with z/OS 2.4).>> We managed to transfer the books 
to Windows (and OS/2, BTW), where we can> at least look at the books. Now I 
would like to convert the books to > PDFs.> But the free Softcopy Reader 
refuses to print more than one (selected) > topic> or ranges of topics; if you 
try to do this using the print menu > (selected or range),> the output is 
always empty.>> Is this a bug - or: is printing larger portions of text not 
allowed in > the free version?> What are the options?>> The eMail address 
book...@us.ibm.com, which is mentioned in the > Softcopy Reader> help texts, 
doesn't exist any more (BTW: the Softcopy Reader is a 2012 > edition;> this 
seems to be the last one available).>> Is there a documented API to read the 
books using a C or REXX program> and build the PDFs this way? Or build HTML 
from the books?>> Thanks for all suggestions,> kind regards>> 
Bernd>>>--For
 IBM-MAIN subscribe / signoff / archive access instructions,send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: OMVS File System Automove question

[Dave Jousma]

On Mon, 20 Mar 2023 14:42:41 +, Mark Jacobs  
wrote:

>Thanks, no I didn't think of the chmount command. I ran a test on my sandbox. 
>the /u directory is showing that automove will exclude the system I specified, 
>but the file systems mounted under it don't show that attribute, just 
>Automove=Y. Do I need to change the mount attribute for all automounted file 
>systems, or will automove attribute for the parent /u/ directory override each 
>individual file system?
>
>Mark Jacobs 
>
>

you might unmount one, and let it mount again, and see if it inherits the 
settings from /u. if that works, you could try a chmount -D system /u/* to 
change ownership manually this time.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: BookManager

[Bernd Oppolzer]

I would like to thank all who responded and tell you about the solution 
we found.


First of all, with some support from somewhere, we managed to re-install 
the BookManager software
on the z/OS 2.5 system - unsupported / as-is. This, at least, allows us 
to read the books temporarily

and to start the conversion from here.

Then I copied the needed books (some hundred) to Bookmaster GML format, 
which can be done
from inside READ/MVS. The MVS (or z/OS) version converts complete books 
to Bookmaster GML,
not only single paragraphs. The Bookmaster files (which are textfiles in 
the end) then were moved

to a PC (using text FTP).

Then I used B2H (the Windows variant) to create HTML from the Bookmaster 
files. I changed the
B2H REXX a little bit, so that all texts are enclosed in  tags; 
this way the line breaks etc.

from the original documents are preserved.

Task completed :-)

Some additional remarks:

the internal layout of the .BOO files is not usable and very difficult; 
4096 byte segments, word fragments
in EBCDIC, maybe some sort of linked list or tree structure. I spent 
some time trying to understand this,

but no success.

I also tried to find the Bookmaster sources - as suggested by some 
posters - at my customer's site
for the books, which were present in the "production" bookshelves, but 
also no success;
the sources were partially lost and the people responsible for the books 
have retired.

So it was best to retrieve the Bookmaster sources from the books directly.

Kind regards

Bernd


Am 28.02.2023 um 18:59 schrieb Bernd Oppolzer:

What is the preferred way to convert BookMgr books to PDF?

My customer has some home-written BookMgr books, which they cannot access
after the z/OS migration (BookMgr support was dropped with z/OS 2.4).

We managed to transfer the books to Windows (and OS/2, BTW), where we can
at least look at the books. Now I would like to convert the books to 
PDFs.
But the free Softcopy Reader refuses to print more than one (selected) 
topic
or ranges of topics; if you try to do this using the print menu 
(selected or range),

the output is always empty.

Is this a bug - or: is printing larger portions of text not allowed in 
the free version?

What are the options?

The eMail address book...@us.ibm.com, which is mentioned in the 
Softcopy Reader
help texts, doesn't exist any more (BTW: the Softcopy Reader is a 2012 
edition;

this seems to be the last one available).

Is there a documented API to read the books using a C or REXX program
and build the PDFs this way? Or build HTML from the books?

Thanks for all suggestions,
kind regards

Bernd





--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: PL/I Opt. Compiler V2 manuals?

[Martin Trübner]

I use WINE on top - works fine here

Am 20.03.23 um 16:10 schrieb Seymour J Metz:

If someone responds off-list, please send me the link.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Dave Jones [d...@vsoft-software.com]
Sent: Monday, March 20, 2023 10:24 AM
To:IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PL/I Opt. Compiler V2 manuals?

Does anyone know where I can download the Softcopy Reader for Linux? The IBM 
site seems to have only the Windows version.
Thanks.
DJ

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email tolists...@listserv.ua.edu  with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email tolists...@listserv.ua.edu  with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: PL/I Opt. Compiler V2 manuals?

[Farley, Peter]

Thank you for that link Peter.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Peter Stockdill
Sent: Monday, March 20, 2023 2:28 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PL/I Opt. Compiler V2 manuals?

I found the four books in:
https://publib.boulder.ibm.com/epubs/df/s390app4.des 
--

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DLM Tape reading

[Michael Watkins]

Are you looking for the names of the datasets on the 3990 volumes that are 
being backed up? If you're taking 'volume level' backups with (for instance) 
ADRDSSU, the contents of the entire volume will be put into one output DUMP 
dataset and only the name of that full volume DUMP dataset will be in the tape 
label.

If you are looking for the dataset names on each 3390 volume being backed up, 
consider running an IDCAMS 'DCOLLECT' on those 3390 volumes immediately prior 
to the volume-level backups. Are you backing up the entire shop? Depending on 
the size of your shop, a DSCOLLECT might take 20-30 minutes to complete with a 
SYSIN control card along the lines of:

DCOLLECT OUTFILE(DCOUT) VOLUMES(*) EXCLUDEVOLUMES(XX* FC* F2* Z1*)

Perhaps keep the DCOLLECT output in a GDG with a LIMIT that matches the numer 
of backup tapes for each 3390 volume that you keep.


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Mark Zelden
Sent: Monday, March 20, 2023 10:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DLM Tape reading

CAUTION: This email originated from outside of the Texas Comptroller's email 
system.
DO NOT click links or open attachments unless you expect them from the sender 
and know the content is safe.

On Mon, 20 Mar 2023 17:10:20 +0400, Jake Anderson  
wrote:

>Hello
>
>I would like to understand how DLM users are able to read the contents 
>of the virtual tape and the print the dataset with in each label of it ?
>
>We are taking volume level backup to the virtual tape and is it 
>possible to list a particular tape dataset to see it's content?
>
>Regards
>Jake

I'm not sure I understand the question.  Are you thinking there are stacked 
virtual volumes like Oracle/STK VSM?  The virtual tapes are just like physical 
tapes and you can print them any number of utilities.

Or are you asking from a DLm perspective?  If so, research the "awsprint" 
command from DLm.

It just asking about from z/OS, again... lots of utilities.  From ISV 
(FATS/FATAR) to IBM DITTO, to IEBGENER to "print" the contents.  If just 
interested in labels, I haven't used this PROC in probably 25 years, but here 
is something to just print the labels.


//MPROC  PROC  HP=1
//PS10   EXEC  PGM=IEBPTPCH
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DSN=MZELDEN.TAPE,
// DISP=(SHR,KEEP,KEEP),
// UNIT=TAPE,
// LABEL=(,BLP,EXPDT=98000),
// VOL=SER=vv,
// DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
//SYSUT2   DD  SYSOUT=*
//SYSINDD  DDNAME=SYSIN1
//MPROC  PEND
//*
//* HP=1 FOR VOL1 HDR1 HDR2   *
//* HP=3 FOR EOF1 EOF2*
//*
//JS10   EXEC  PROC=MPROC,HP=1
//SYSPRINT DD  SYSOUT=*
//SYSIN1   DD  *
 PRINT MAXFLDS=1
 TITLE ITEM=('TAPE LABEL INFO',30)
 RECORDFIELD=(80,1)
 LABELSDATA=YES
/*


Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 
Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: 
https://gcc02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.mzelden.com%2Fmvsutil.html=05%7C01%7Cmichael.watkins%40CPA.TEXAS.GOV%7Cc18942d930434b8fb26808db29548e55%7C2055feba299d4d0daa5a73b8b42fef08%7C0%7C0%7C638149215366690623%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C=oYfDMeAZjDdo9%2BRo8UVTwy0N2FhXhWVptjygw2YmXFw%3D=0

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: PL/I Opt. Compiler V2 manuals?

[Seymour J Metz]

If someone responds off-list, please send me the link.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Dave Jones [d...@vsoft-software.com]
Sent: Monday, March 20, 2023 10:24 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PL/I Opt. Compiler V2 manuals?

Does anyone know where I can download the Softcopy Reader for Linux? The IBM 
site seems to have only the Windows version.
Thanks.
DJ

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: BSAM READ AMODE 31 RMODE 31

[Seymour J Metz]

That doesn't explain why you had LA R7 in places where you didn't need a 
pointer, 

  LAR7,SYSADATA
  MVC   0(IODSECTLEN,R6),0(R7)

Instead of the clearer

  MVC   0(IODSECTLEN,R6),SYSADATA

Side issue are why you had separate moves for initialization instead of one big 
move and why you didn't just use symbolic names in your E-form macros instead 
of register form parameters with an otherwise extraneous LA.

You might want to read up on dependent and labelled USING pseudo-ops.

Only the WAIT service should be storing an RB address in an ECB; the ECB that 
you provide in the DECB should initially have a high bit of 0. Also, the 
completion code is 31 bits, and a lot of system services have codes with the 
lower 24 bits zero or containig a context for the code in bits 0-7. In 
particular, Many services use 7F in the high byte for normal completion.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Joseph Reichman [reichman...@gmail.com]
Sent: Monday, March 20, 2023 10:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: BSAM READ AMODE 31 RMODE 31

Ok

Thanks
The reason I had the LA R7

I first had to get 24 bit storage for 1) dcb 2) decb though I realize it can 
live in 31 bit
3) decb it has to live in 31 bit 4) initial exit code has to be 24 bit

Once moved I had to get the proper pointers
24 bit pointers for exlst , decb

Let me corroborate I understand why I got the error

After the read the first full word should be for the ECB so the low order 
should have an RB
Or if it already posted should have the first byte x’40’ followed by completion 
code which could be zeros what a saw in the ECB address was the first byte x’7F’

Anyway I have to fix the read thank you

> On Mar 20, 2023, at 9:52 AM, Binyamin Dissen  
> wrote:
>
> First of all, the buffer address specified on READ MF=E is an RX address, not
> an indirect address.
>
> So the read will overlay from IOBBUFF. That could cause strange results,
>
> You would need
>
>  L  Rx,IOBUFF
>  READ  ADATADECB,SF,(R6),(Rx),'S',MF=E
>
>
> Also, I do not understand why you use IHADECB in your work area rather than a
>
> READ label,SF,1-1,2-2,'S',MF=L
>
> which will reserve the storage of the appropriate size.
>
> I would recommend against altering the DECB directly, as the READ macro takes
> care of it.
>
> Very strange to STORAGE OBTAIN,ADDR=(R7) followed by a LA R7
>
> Back to the drawing board.
>
> On Mon, 20 Mar 2023 09:20:39 -0400 Joseph Reichman 
> wrote:
>
> :>   Hi
> :>
> :>
> :>
> :>I know Charles Mills answered my question nearly 4 weeks ago but I would
> :>just like to corroborate the I/O areas for the read can be 31 bit addressing
> :>only the dcb and decb need to be below the line
> :>
> :>I am running AMODE 31 RMODE 31
> :>
> :>
> :>
> :>The DCB is below the line as well as the DECB
> :>
> :>
> :>
> :>My read returns ok
> :>
> :>
> :>
> :>After I set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP
> :>
> :>
> :>
> :>This the example that Charles sent to me does nt say anything about the
> :>IOAREAS or pointers to the IOAREAS
> :>
> :>
> :>
> :>LA Rn,PDSDCB
> :>
> :>ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB
> :>
> :>L Rn,address  of READ buffer
> :>
> :>READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB
> :>
> :>
> :>
> :>
> :>
> :>
> :>
> :>
> :>
> :>This is my read
> :>
> :>
> :>
> :> READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E
> :>
> :>
> :>
> :>The  IOBUFF is a full word  pointer to the storage I obtain
> :>
> :>
> :>
> :>
> :>
> :>  Here is my code
> :>
> :>
> :>
> :>  LAR0,IODSECTLEN
> :>
> :>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0
> :>
> :>  LRR9,R6
> :>
> :>  USING IHADCB,R9
> :>
> :>  USING IODSECT,R6
> :>
> :> *
> :>
> :> *
> :>
> :>  LAR7,SYSADATA
> :>
> :>  MVC   0(IODSECTLEN,R6),0(R7)
> :>
> :> *
> :>
> :>  LAR7,SYSDCBE-SYSADATA(,R6)
> :>
> :>  STR7,DCBDCBE
> :>
> :>  LAR7,EX24LST-SYSADATA(,R6)
> :>
> :>  STCM  R7,B'0111',DCBEXLSA
> :>
> :>  LAR7,ABND24-SYSADATA(,R6)
> :>
> :>  STCM  R7,B'0111',ABND24ADR-SYSADATA(R6)
> :>
> :>  LAR7,ABENDRTN
> :>
> :>  STR7,ABEND31-SYSADATA(,R6)
> :>
> :> *
> :>
> :>T  L R0,=F'31996'
> :>
> :> *
> :>
> :>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=RES,SP=0
> :>
> :> *LAR7,IOAREA
> :>
> :> *STR7,IOPTR
> :>
> :> *
> :>
> :>  STR7,IOBUFF
> :>
> :>  MVC   OPEN_LST(OPEN_LEN),OPEN_CON
> :>
> :>  OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31
> :>
> :> *
> :>
> :>  TMDCBOFLGS,DCBOFOPN
> :>
> :>  BZEXITDEBG
> :>
> :>  USING ASMADATA,R7
> :>
> :>  L R10,IOBUFF
> :>
> :> PROCADATA DS   0H
> :>
> :>  READ  

Re: DLM Tape reading

[Mark Zelden]

On Mon, 20 Mar 2023 17:10:20 +0400, Jake Anderson  
wrote:

>Hello
>
>I would like to understand how DLM users are able to read the contents of
>the virtual tape and the print the dataset with in each label of it ?
>
>We are taking volume level backup to the virtual tape and is it possible to
>list a particular tape dataset to see it's content?
>
>Regards
>Jake

I'm not sure I understand the question.  Are you thinking there are stacked 
virtual volumes
like Oracle/STK VSM?  The virtual tapes are just like physical tapes and you can
print them any number of utilities.

Or are you asking from a DLm perspective?  If so, research the "awsprint" 
command
from DLm. 

It just asking about from z/OS, again... lots of utilities.  From ISV 
(FATS/FATAR)
to IBM DITTO, to IEBGENER to "print" the contents.  If just interested in 
labels,
I haven't used this PROC in probably 25 years, but here is something to just 
print
the labels. 


//MPROC  PROC  HP=1   
//PS10   EXEC  PGM=IEBPTPCH   
//SYSPRINT DD  SYSOUT=*   
//SYSUT1   DD  DSN=MZELDEN.TAPE,  
// DISP=(SHR,KEEP,KEEP),  
// UNIT=TAPE, 
// LABEL=(,BLP,EXPDT=98000),   
// VOL=SER=vv,
// DCB=(RECFM=F,LRECL=80,BLKSIZE=80)  
//SYSUT2   DD  SYSOUT=*   
//SYSINDD  DDNAME=SYSIN1  
//MPROC  PEND 
//*   
//* HP=1 FOR VOL1 HDR1 HDR2   *   
//* HP=3 FOR EOF1 EOF2*   
//*   
//JS10   EXEC  PROC=MPROC,HP=1
//SYSPRINT DD  SYSOUT=*   
//SYSIN1   DD  *  
 PRINT MAXFLDS=1  
 TITLE ITEM=('TAPE LABEL INFO',30)
 RECORDFIELD=(80,1)   
 LABELSDATA=YES   
/*


Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: OMVS File System Automove question

[Mark Jacobs]

Thanks, no I didn't think of the chmount command. I ran a test on my sandbox. 
the /u directory is showing that automove will exclude the system I specified, 
but the file systems mounted under it don't show that attribute, just 
Automove=Y. Do I need to change the mount attribute for all automounted file 
systems, or will automove attribute for the parent /u/ directory override each 
individual file system?

Mark Jacobs 


Sent from ProtonMail, Swiss-based encrypted email.

GPG Public Key - 
https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com


--- Original Message ---
On Monday, March 20th, 2023 at 9:14 AM, Dave Jousma 
<01a0403c5dc1-dmarc-requ...@listserv.ua.edu> wrote:


> On Mon, 20 Mar 2023 13:04:44 +, Mark Jacobs markjac...@protonmail.com 
> wrote:
> 
> > Thanks, but that's not helpful in my situation. The problematic file system 
> > is under /u which is under the sysplex root, That has to be automove.
> > 
> > Mark Jacobs
> 
> 
> Correct. Then the only way to "avoid" a lpar is to avoid it with the sysplex 
> root too.
> 
> Have you tried the chmount commands?
> 
> TEC1:$ chmount -D TEC2 /home
> TEC1:$ df -vk /home
> Mounted on Filesystem Avail/Total Files Status
> /home (*AMD/home) 0/4 0 Available
> AUTOMNT, Read/Write, Device:66, ACLS=N
> File System Owner : TEC2 Automove=Y Client=N
> Filetag : T=off codeset=0
> TEC1:$ chmount -a exclude,TEC1 /home
> TEC1:$ df -vk /home
> Mounted on Filesystem Avail/Total Files Status
> /home (*AMD/home) 0/4 0 Available
> AUTOMNT, Read/Write, Device:66, ACLS=N
> File System Owner : TEC2 Automove=E Client=N
> System List (Exclude) : TEC1
> Filetag : T=off codeset=0
> TEC1:$
> 
> You would likely have to run a CRON job to do this, so that it is not 
> forgotten post-ipl?
> 
> Are you saying that the operating system doesnt honor these commands on 
> shutdown?
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: PL/I Opt. Compiler V2 manuals?

[Dave Jones]

Does anyone know where I can download the Softcopy Reader for Linux? The IBM 
site seems to have only the Windows version.
Thanks.
DJ

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: BSAM READ AMODE 31 RMODE 31

[Joseph Reichman]

Ok 

Thanks 
The reason I had the LA R7

I first had to get 24 bit storage for 1) dcb 2) decb though I realize it can 
live in 31 bit 
3) decb it has to live in 31 bit 4) initial exit code has to be 24 bit 

Once moved I had to get the proper pointers 
24 bit pointers for exlst , decb 

Let me corroborate I understand why I got the error 

After the read the first full word should be for the ECB so the low order 
should have an RB 
Or if it already posted should have the first byte x’40’ followed by completion 
code which could be zeros what a saw in the ECB address was the first byte x’7F’

Anyway I have to fix the read thank you  

> On Mar 20, 2023, at 9:52 AM, Binyamin Dissen  
> wrote:
> 
> First of all, the buffer address specified on READ MF=E is an RX address, not
> an indirect address.
> 
> So the read will overlay from IOBBUFF. That could cause strange results, 
> 
> You would need 
> 
>  L  Rx,IOBUFF
>  READ  ADATADECB,SF,(R6),(Rx),'S',MF=E 
> 
> 
> Also, I do not understand why you use IHADECB in your work area rather than a 
> 
> READ label,SF,1-1,2-2,'S',MF=L
> 
> which will reserve the storage of the appropriate size.
> 
> I would recommend against altering the DECB directly, as the READ macro takes
> care of it.
> 
> Very strange to STORAGE OBTAIN,ADDR=(R7) followed by a LA R7
> 
> Back to the drawing board.
> 
> On Mon, 20 Mar 2023 09:20:39 -0400 Joseph Reichman 
> wrote:
> 
> :>   Hi 
> :>
> :> 
> :>
> :>I know Charles Mills answered my question nearly 4 weeks ago but I would
> :>just like to corroborate the I/O areas for the read can be 31 bit addressing
> :>only the dcb and decb need to be below the line
> :>
> :>I am running AMODE 31 RMODE 31 
> :>
> :> 
> :>
> :>The DCB is below the line as well as the DECB
> :>
> :> 
> :>
> :>My read returns ok 
> :>
> :> 
> :>
> :>After I set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP  
> :>
> :> 
> :>
> :>This the example that Charles sent to me does nt say anything about the
> :>IOAREAS or pointers to the IOAREAS  
> :>
> :> 
> :>
> :>LA Rn,PDSDCB 
> :>
> :>ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB
> :>
> :>L Rn,address  of READ buffer
> :>
> :>READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB 
> :>
> :> 
> :>
> :> 
> :>
> :> 
> :>
> :> 
> :>
> :>This is my read
> :>
> :>  
> :>
> :> READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E 
> :>
> :> 
> :>
> :>The  IOBUFF is a full word  pointer to the storage I obtain
> :>
> :> 
> :>
> :> 
> :>
> :>  Here is my code 
> :>
> :> 
> :>
> :>  LAR0,IODSECTLEN   
> :>
> :>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0   
> :>
> :>  LRR9,R6   
> :>
> :>  USING IHADCB,R9   
> :>
> :>  USING IODSECT,R6  
> :>
> :> *  
> :>
> :> *  
> :>
> :>  LAR7,SYSADATA 
> :>
> :>  MVC   0(IODSECTLEN,R6),0(R7)  
> :>
> :> *  
> :>
> :>  LAR7,SYSDCBE-SYSADATA(,R6)
> :>
> :>  STR7,DCBDCBE  
> :>
> :>  LAR7,EX24LST-SYSADATA(,R6)
> :>
> :>  STCM  R7,B'0111',DCBEXLSA 
> :>
> :>  LAR7,ABND24-SYSADATA(,R6) 
> :>
> :>  STCM  R7,B'0111',ABND24ADR-SYSADATA(R6)   
> :>
> :>  LAR7,ABENDRTN 
> :>
> :>  STR7,ABEND31-SYSADATA(,R6)
> :>
> :> *  
> :>
> :>T  L R0,=F'31996'   
> :>
> :> * 
> :>
> :>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=RES,SP=0
> :>
> :> *LAR7,IOAREA  
> :>
> :> *STR7,IOPTR   
> :>
> :> * 
> :>
> :>  STR7,IOBUFF  
> :>
> :>  MVC   OPEN_LST(OPEN_LEN),OPEN_CON
> :>
> :>  OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31   
> :>
> :> * 
> :>
> :>  TMDCBOFLGS,DCBOFOPN  
> :>
> :>  BZEXITDEBG

Re: Build problems under Unix System Services

[Linda Chui]

Hi,

(Posting on behalf of a colleague)

The initial question about include files, that depends on what was used for the 
#include in the source. If it was something like #include “abc.h” then it 
should take the current directory first (see the LSEARCH option defaults). Only 
if they used the #include  form in the source would they get the issue 
they mentioned since that is a system include which uses the system paths 
(obvious security issue if it took the current working directory first for 
system headers).

For the second issue about the file type error, they can try setting the CCMODE 
environment variable. Ex. Do
export _C89_CCMODE=1
before the compilation command. Note that keeping the -L and -l is fine and 
should work as well.


Hope this helps!

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: BSAM READ AMODE 31 RMODE 31

[Binyamin Dissen]

First of all, the buffer address specified on READ MF=E is an RX address, not
an indirect address.

So the read will overlay from IOBBUFF. That could cause strange results, 

You would need 

  L  Rx,IOBUFF
  READ  ADATADECB,SF,(R6),(Rx),'S',MF=E 


Also, I do not understand why you use IHADECB in your work area rather than a 

READ label,SF,1-1,2-2,'S',MF=L

which will reserve the storage of the appropriate size.

I would recommend against altering the DECB directly, as the READ macro takes
care of it.

Very strange to STORAGE OBTAIN,ADDR=(R7) followed by a LA R7

Back to the drawing board.

On Mon, 20 Mar 2023 09:20:39 -0400 Joseph Reichman 
wrote:

:>   Hi 
:>
:> 
:>
:>I know Charles Mills answered my question nearly 4 weeks ago but I would
:>just like to corroborate the I/O areas for the read can be 31 bit addressing
:>only the dcb and decb need to be below the line
:>
:>I am running AMODE 31 RMODE 31 
:>
:> 
:>
:>The DCB is below the line as well as the DECB
:>
:> 
:>
:>My read returns ok 
:>
:> 
:>
:>After I set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP  
:>
:> 
:>
:>This the example that Charles sent to me does nt say anything about the
:>IOAREAS or pointers to the IOAREAS  
:>
:> 
:>
:>LA Rn,PDSDCB 
:>
:>ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB
:>
:>L Rn,address  of READ buffer
:>
:>READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB 
:>
:> 
:>
:> 
:>
:> 
:>
:> 
:>
:>This is my read
:>
:>  
:>
:> READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E 
:>
:> 
:>
:>The  IOBUFF is a full word  pointer to the storage I obtain
:>
:> 
:>
:> 
:>
:>  Here is my code 
:>
:> 
:>
:>  LAR0,IODSECTLEN   
:>
:>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0   
:>
:>  LRR9,R6   
:>
:>  USING IHADCB,R9   
:>
:>  USING IODSECT,R6  
:>
:> *  
:>
:> *  
:>
:>  LAR7,SYSADATA 
:>
:>  MVC   0(IODSECTLEN,R6),0(R7)  
:>
:> *  
:>
:>  LAR7,SYSDCBE-SYSADATA(,R6)
:>
:>  STR7,DCBDCBE  
:>
:>  LAR7,EX24LST-SYSADATA(,R6)
:>
:>  STCM  R7,B'0111',DCBEXLSA 
:>
:>  LAR7,ABND24-SYSADATA(,R6) 
:>
:>  STCM  R7,B'0111',ABND24ADR-SYSADATA(R6)   
:>
:>  LAR7,ABENDRTN 
:>
:>  STR7,ABEND31-SYSADATA(,R6)
:>
:> *  
:>
:>T  L R0,=F'31996'   
:>
:> * 
:>
:>  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=RES,SP=0
:>
:> *LAR7,IOAREA  
:>
:> *STR7,IOPTR   
:>
:> * 
:>
:>  STR7,IOBUFF  
:>
:>  MVC   OPEN_LST(OPEN_LEN),OPEN_CON
:>
:>  OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31   
:>
:> * 
:>
:>  TMDCBOFLGS,DCBOFOPN  
:>
:>  BZEXITDEBG   
:>
:>  USING ASMADATA,R7
:>
:>  L R10,IOBUFF 
:>
:> PROCADATA DS   0H 
:>
:>  READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E  
:>
:> * 
:>
:>  CHECK ADATADECB  
:>
:> * 
:>
:>OPEN_CON OPEN (*-*,INPUT),MF=L,MODE=31  
:>
:>SYSADATA DCB DDNAME=SYSADATA,RECFM=VB,MACRF=RP,DSORG=PS,DCBE=SYSDCBE,EXX
:>
:>   LST=EX24LST  
:>
:>
:>
:>  IHADECB DSECT=NO  
:>
:>DECBLEN  EQU   *-DECB   
:>
:>SYSDCBE  DCBE 

RES: DLM Tape reading

[Bodra - Pessoal]

You can use DITTO to do this... same as you do for real tape cartridge or tape 
drive.


Carlos Bodra
IBM zEnterprise Certified
São Paulo – SP – Brazil


-Mensagem original-
De: IBM Mainframe Discussion List  Em nome de Jake 
Anderson
Enviada em: segunda-feira, 20 de março de 2023 10:10
Para: IBM-MAIN@LISTSERV.UA.EDU
Assunto: DLM Tape reading

Hello

I would like to understand how DLM users are able to read the contents of
the virtual tape and the print the dataset with in each label of it ?

We are taking volume level backup to the virtual tape and is it possible to
list a particular tape dataset to see it's content?

Regards
Jake

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

BSAM READ AMODE 31 RMODE 31

[Joseph Reichman]

   Hi 

 

I know Charles Mills answered my question nearly 4 weeks ago but I would
just like to corroborate the I/O areas for the read can be 31 bit addressing
only the dcb and decb need to be below the line

I am running AMODE 31 RMODE 31 

 

The DCB is below the line as well as the DECB

 

My read returns ok 

 

After I set a beak point after the CHECK I get As S0D9 ABEND with a SDUMP  

 

This the example that Charles sent to me does nt say anything about the
IOAREAS or pointers to the IOAREAS  

 

LA Rn,PDSDCB 

ST Rn,PDSDECB+8 PLACE DCB ADDRESS IN DECB

L Rn,address  of READ buffer

READ PDSDECB,SF,,(Rn),MF=E CHECK PDSDECB 

 

 

 

 

This is my read

  

 READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E 

 

The  IOBUFF is a full word  pointer to the storage I obtain

 

 

  Here is my code 

 

  LAR0,IODSECTLEN   

  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),LOC=BELOW,SP=0   

  LRR9,R6   

  USING IHADCB,R9   

  USING IODSECT,R6  

 *  

 *  

  LAR7,SYSADATA 

  MVC   0(IODSECTLEN,R6),0(R7)  

 *  

  LAR7,SYSDCBE-SYSADATA(,R6)

  STR7,DCBDCBE  

  LAR7,EX24LST-SYSADATA(,R6)

  STCM  R7,B'0111',DCBEXLSA 

  LAR7,ABND24-SYSADATA(,R6) 

  STCM  R7,B'0111',ABND24ADR-SYSADATA(R6)   

  LAR7,ABENDRTN 

  STR7,ABEND31-SYSADATA(,R6)

 *  

T  L R0,=F'31996'   

 * 

  STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),LOC=RES,SP=0

 *LAR7,IOAREA  

 *STR7,IOPTR   

 * 

  STR7,IOBUFF  

  MVC   OPEN_LST(OPEN_LEN),OPEN_CON

  OPEN  ((R6),INPUT),MF=(E,OPEN_LST),MODE=31   

 * 

  TMDCBOFLGS,DCBOFOPN  

  BZEXITDEBG   

  USING ASMADATA,R7

  L R10,IOBUFF 

 PROCADATA DS   0H 

  READ  ADATADECB,SF,(R6),IOBUFF,'S',MF=E  

 * 

  CHECK ADATADECB  

 * 

OPEN_CON OPEN (*-*,INPUT),MF=L,MODE=31  

SYSADATA DCB DDNAME=SYSADATA,RECFM=VB,MACRF=RP,DSORG=PS,DCBE=SYSDCBE,EXX

   LST=EX24LST  



  IHADECB DSECT=NO  

DECBLEN  EQU   *-DECB   

SYSDCBE  DCBE EODAD=FIN,GETSIZE=YES,LOC=ANY,RMODE31=BUFF,SYNAD=SYNAD,VEX

   RSION=1  

EX24LSTDS  0F   

ADATAEXLST DC  AL1(EXLDCBAB+X'80')  

ABND24ADR  DS  AL3  

ABND24 DS  0H   

   L   R15,ABEND31-SYSADATA(,R15)   

   BSM 0,R15

ABEND31DS  XL4  

STROGE24   EQU *-EX24LST

*   

  IODSECT   DSECT 

ADATADCB  DSCL(DCBLNGBS)

ADATADECB DSCL(DECBLEN) 

Re: OMVS File System Automove question

[Dave Jousma]

On Mon, 20 Mar 2023 13:04:44 +, Mark Jacobs  
wrote:

>Thanks, but that's not helpful in my situation. The problematic file system is 
>under /u which is under the sysplex root, That has to be automove. 
>
>Mark Jacobs 
>

Correct.   Then the only way to "avoid" a lpar is to avoid it with the sysplex 
root too.   

Have you tried the chmount commands?

TEC1:$ chmount -D TEC2 /home
 
TEC1:$ df -vk /home 
 
Mounted on FilesystemAvail/TotalFiles  Status   
 
/home  (*AMD/home)   0/40  Available
 
AUTOMNT, Read/Write, Device:66, ACLS=N  
 
File System Owner : TEC2Automove=Y  Client=N
 
Filetag : T=off   codeset=0 
  
TEC1:$ chmount -a exclude,TEC1 /home

TEC1:$ df -vk /home 

Mounted on FilesystemAvail/TotalFiles  Status   

/home  (*AMD/home)   0/40  Available

AUTOMNT, Read/Write, Device:66, ACLS=N  

File System Owner : TEC2Automove=E  Client=N

System List (Exclude) : TEC1

Filetag : T=off   codeset=0 

TEC1:$  

 
You would likely have to run a CRON job to do this, so that it is not forgotten 
post-ipl?

Are you saying that the operating system doesnt honor these commands on 
shutdown?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

DLM Tape reading

[Jake Anderson]

Hello

I would like to understand how DLM users are able to read the contents of
the virtual tape and the print the dataset with in each label of it ?

We are taking volume level backup to the virtual tape and is it possible to
list a particular tape dataset to see it's content?

Regards
Jake

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: OMVS File System Automove question

[Mark Jacobs]

Thanks, but that's not helpful in my situation. The problematic file system is 
under /u which is under the sysplex root, That has to be automove. 

Mark Jacobs 

Sent from ProtonMail, Swiss-based encrypted email.

GPG Public Key - 
https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com


--- Original Message ---
On Monday, March 20th, 2023 at 8:30 AM, Dave Jousma 
<01a0403c5dc1-dmarc-requ...@listserv.ua.edu> wrote:


> On Mon, 20 Mar 2023 12:03:28 +, Mark Jacobs markjac...@protonmail.com 
> wrote:
> 
> > I've been looking at that and testing somethings in our sandbox 
> > environment. The problematic file system that's already impacted us twice 
> > is being managed by automount and I can't see anyway to instruct OMVS not 
> > to automove filesystems that are managed by the automount policy.
> > 
> > Mark Jacobs
> > 
> > Sent from ProtonMail, Swiss-based encrypted email.
> 
> 
> Mark, I cant tell from your description if you want automove, or not, or just 
> not to the one certain system. Looks like the next directory up controls what 
> happens and where, not the /AMD directory itself.
> 
> 
> Have you seen this info yet: 
> https://www.ibm.com/docs/en/zos/2.3.0?topic=descriptions-automount-configure-automount-facility
> 
> The automount file system (*AMD/) is mounted with an automove attribute of 
> either AUTOMOVE or UNMOUNT. The automove attribute is set to UNMOUNT only 
> when its parent file system has its automove attribute set to UNMOUNT. When 
> the automove attribute is set to UNMOUNT, the owning system of the automount 
> file system is identical to the owning system of the parent.
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: OMVS File System Automove question

[Dave Jousma]

On Mon, 20 Mar 2023 12:03:28 +, Mark Jacobs  
wrote:

>I've been looking at that and testing somethings in our sandbox environment. 
>The problematic file system that's already impacted us twice is being managed 
>by automount and I can't see anyway to instruct OMVS not to automove 
>filesystems that are managed by the automount policy.
>
>Mark Jacobs
>
>
>Sent from ProtonMail, Swiss-based encrypted email.
>

Mark,  I cant tell from your description if you want automove, or not, or just 
not to the one certain system.   Looks like the next directory up controls what 
happens and where, not the /AMD directory itself.


Have you seen this info yet:   
https://www.ibm.com/docs/en/zos/2.3.0?topic=descriptions-automount-configure-automount-facility

The automount file system (*AMD/) is mounted with an automove attribute of 
either AUTOMOVE or UNMOUNT. The automove attribute is set to UNMOUNT only when 
its parent file system has its automove attribute set to UNMOUNT. When the 
automove attribute is set to UNMOUNT, the owning system of the automount file 
system is identical to the owning system of the parent.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: OMVS File System Automove question

[Mark Jacobs]

I've been looking at that and testing somethings in our sandbox environment. 
The problematic file system that's already impacted us twice is being managed 
by automount and I can't see anyway to instruct OMVS not to automove 
filesystems that are managed by the automount policy.

Mark Jacobs


Sent from ProtonMail, Swiss-based encrypted email.

GPG Public Key - 
https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com


--- Original Message ---
On Sunday, March 19th, 2023 at 7:08 AM, David Geib  wrote:


> This link has more details about file system movement/ownership during 
> recovery scenarios.
> 
> https://www.ibm.com/docs/en/zos/2.4.0?topic=recovery-managing-movement-data
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Simple C language dynamic CALL's?

[David Crayford]

It’s the same for z/OS. There is a chapter dedicated to ILC in the books 
https://www.ibm.com/docs/en/zos/2.4.0?topic=environment-zos-language-writing-interlanguage-communication-applications

> On 20 Mar 2023, at 12:53 pm, Farley, Peter 
> <031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:
> 
> Thanks, John, that is enlightening but it is VSE not z/OS.  I will search 
> for something similar in the z/OS docs.
> 
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of 
> John McKown
> Sent: Sunday, March 19, 2023 8:26 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Simple C language dynamic CALL's?
> 
> Function pointers and fetch()
> 
> https://www.ibm.com/docs/en/zvse/6.2?topic=c-edcxbf11 
> 
>> On Sun, 19 Mar 2023, 15:02 Farley, Peter, < 
>> 031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:
>> 
>> The major z/OS programming languages (COBOL, PL/I, HLASM) allow one to 
>> write a subroutine and separately compile and link it and then call 
>> that subroutine dynamically at runtime without a whole lot of fuss.  I 
>> think even VS FORTRAN programming supports this capability.
>> 
>> From the reading I have done in the C language reference and runtime 
>> library manuals, it appears to me that dynamic subroutine calls in C 
>> can only be accomplished by setting up the separately compiled 
>> subroutine(s) in a DLL.
>> 
>> Is that a correct reading of the facts?  Or is there a simpler 
>> (non-DLL) way to set up single-procedure dynamically called subroutines in C?
>> 
>> The target environment is z/OS batch, not CICS or web.
>> 
>> Peter
> --
> 
> This message and any attachments are intended only for the use of the 
> addressee and may contain information that is privileged and confidential. If 
> the reader of the message is not the intended recipient or an authorized 
> representative of the intended recipient, you are hereby notified that any 
> dissemination of this communication is strictly prohibited. If you have 
> received this communication in error, please notify us immediately by e-mail 
> and delete the message and any attachments from your system.
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Simple C language dynamic CALL's?

[Jantje.]

On Sun, 19 Mar 2023 20:01:30 +, Farley, Peter  
wrote:

>Or is there a simpler (non-DLL) way to set up single-procedure dynamically 
>called subroutines in C?
>
Did you look at the pragma linkage options ?

Cheers,

Jantje.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Question for our international friends (mostly)

[Sean Gleann]

(Coming in a bit late on this thread)
As others have said, 'kicks' and Hursley are closely related (or rather,
_were_. It is my understanding that Hursley Grange is now some sort of IBM
museum.)
The local no. 66 bus goes between Romsey and Winchester via Hursley, so -
at least at some point in the past - it was definitely possible to "get
your kicks on route 66"...

Sean


On Mon, 20 Mar 2023 at 02:40, Jeremy Nicoll 
wrote:

> On Mon, 20 Mar 2023, at 02:23, Seymour J Metz wrote:
> > Also Kipling.
>
> Kindling ??(sorry)
>
> > 
>
> > The root is from "bundle" of sticks and small pieces of wood, and by
> > expansion to bundles of other things.
>
> --
> Jeremy Nicoll - my opinions are my own.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: USS zlib issues

[Robin Atwood]

Thanks, Mark, that's very helpful. 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Mark Zelden
Sent: Friday, March 17, 2023 10:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: USS zlib issues

I meant to add that the sourceid is PUT2208, RSU2209.  I'm at RSU2212.


Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 
Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: 
http://www.mzelden.com/mvsutil.html




On Fri, 17 Mar 2023 10:09:50 -0500, Mark Zelden  wrote:

>It's good on my system.  This is the PTF that last updated it all.  
>it's security / integrity so you won't find out much about it.
>
>
>++ PTF (UJ09020)/*   
>//UJ09020  JOB 5695-09020,SCPX7,MSGLEVEL=(1,1),CLASS=A */  . 
>++VER(Z038) FMID(HOT77C0)
>  SUP(AA60361,AA63294,CA57154,CA57870,CA58433,CA63294,UA99527,UJ00876,   
>  UJ01516,UJ08514)   
> /*  
>  PROBLEM DESCRIPTION(S):
>OA63294 -
>  INTEGRITY PROBLEM  

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: USS zlib issues

[Robin Atwood]

Thanks, Ann, that's very useful to know. I will pass on the info to our 
sysprogs.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Ann 
Kelley
Sent: Friday, March 17, 2023 7:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: USS zlib issues

I checked my z/OS 2.4 system.  
At RSU2008,  the zlibs were truncated. 
At RUS2212,  the files were restored to what appears to be proper length ---  
UJ09020 is the latest PTF for this part, at RSU2212.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CF links and non-IBM machines (historical)

[P H]

Re: greater than 256 channels. I vaguely remember it was the top end of Amdahl 
5995Ms which could have 512 channels. In order to use these the system had to 
be partitioned in 2 (not using MDF?) with a max of 256 channels in each.

Re CF links, Hitachi were known to licence the IP for some System z functions. 
Maybe they did this for the links.

Sent from Outlook for Android

From: IBM Mainframe Discussion List  on behalf of 
Radoslaw Skorupka <0471ebeac275-dmarc-requ...@listserv.ua.edu>
Sent: Monday, March 20, 2023 3:34:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: CF links and non-IBM machines (historical)

I'm aware it is quite obsolete topic.
Q: was it possible to connect Amdahl or Hitachi machines with IBM CPC
using sysplex links?
Did they use the same hardware and protocol?

BTW: I found the following Hitachi CF link descriptions: ISCH2, ICF,
ISB, ICC. Any of them is similar to IBM links (I know IBM channels, its
names, etc.)
Any clue?

Another question: I found some non-IBM machines offered over 256
channels. How???
Note, it was definitely before XMP machines (multiple CSS).

--
Radoslaw Skorupka
Lodz, Poland

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CF links and non-IBM machines (historical)

[Timothy Sipples]

Radoslaw Skorupka wrote:
>Q: was it possible to connect Amdahl or Hitachi machines with
>IBM CPC using sysplex links?
>Did they use the same hardware and protocol?

It seems so. Bitsavers.org preserved these Amdahl brochures:

http://www.bitsavers.org/pdf/amdahl/brochures/AmdahlMillenniumCoupling500E.pdf
http://www.bitsavers.org/pdf/amdahl/brochures/AmdahlMillenniumCoupling400.pdf

These brochures suggest that Amdahl (by that time a Fujitsu subsidiary) offered 
Coupling Facility (CF) machine configurations that supported both Amdahl and 
non-Amdahl machines ("other Parallel Sysplex capable processors") at least by 
1998. IBM announced Parallel Sysplex on April 6, 1994:

https://www.ibm.com/common/ssi/cgi-bin/ssialias?appname=skmwww=897%2FENUS194-080=AN=sysplex=ibmsearch_a=CA

The first Parallel Sysplex hardware, notably including the first Coupling 
Facility machine (the 9674 Model C01), was generally available starting later 
in the same quarter (in June, 1994). My understanding is that back then you had 
to use a dedicated CF machine, preferably a pair for availability reasons. 
Amdahl's brochures seem consistent with that sort of configuration. The ability 
to add CF functions within existing IBM mainframe footprints (non-dedicated 
CFs, a.k.a. ICFs) arrived not *too* long after June, 1994, but this is all 
historical for me.

As far as vendors besides Amdahl, certain IBM software licensing publications 
still refer to CF configurations involving non-IBM machines from multiple 
vendors. See here for example:

https://www.ibm.com/downloads/cas/MELGBJPZ

I wouldn't assume anyone is still running any of these ~25 year old non-IBM 
coupled system configurations. But if anyone still is then IBM conveniently 
still has software license pricing and terms in its catalogs.

— — — — —
Timothy Sipples
Senior Architect
Digital Assets, Industry Solutions, and Cybersecurity
IBM zSystems/LinuxONE, Asia-Pacific
sipp...@sg.ibm.com


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: PL/I Opt. Compiler V2 manuals?

[Peter Stockdill]

I found the four books in:
https://publib.boulder.ibm.com/epubs/df/s390app4.des

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Farley, Peter
Sent: Monday, 20 March 2023 12:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PL/I Opt. Compiler V2 manuals?

Thanks Mike, I do already have those downloads (or similar from an earlier 
era).  What I don’t have is an address of an archive of .boo's to DL from.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Mike Schwab
Sent: Sunday, March 19, 2023 9:18 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PL/I Opt. Compiler V2 manuals?

Need something from
https://urldefense.com/v3/__https://www.ibm.com/support/pages/downloadable-free-bookmanager-tools-and-components__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!Is3tLzKjqwn7uw0fBC6uRW6DV6XDKNyd-Tawu5K-vTRQS5vGe5AjlL3DJM-TeeVCCTXniAXdfHKRujBoYeb-5ErCLFK6$
for the .boo links.

On Sun, Mar 19, 2023 at 7:13 PM Robin Vowels  wrote:
>
> Except for the last, the links are incomplete.
>
> On 2023-03-20 08:06, Peter Stockdill wrote:
> > https://urldefense.com/v3/__https://publib.boulder.ibm.com/epubs/boo
> > k/ibmop002.boo__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!Is3tLzKjqwn7uw0fBC
> > 6uRW6DV6XDKNyd-Tawu5K-vTRQS5vGe5AjlL3DJM-TeeVCCTXniAXdfHKRujBoYeb-5K
> > 6OLJdE$
> > https://urldefense.com/v3/__https://publib.boulder.ibm.com/epubs/boo
> > k/ibmol004.boo__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!Is3tLzKjqwn7uw0fBC
> > 6uRW6DV6XDKNyd-Tawu5K-vTRQS5vGe5AjlL3DJM-TeeVCCTXniAXdfHKRujBoYeb-5F
> > z2aw83$
> > https://urldefense.com/v3/__https://publib.boulder.ibm.com/epubs/boo
> > k/ibmom002.boo__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!Is3tLzKjqwn7uw0fBC
> > 6uRW6DV6XDKNyd-Tawu5K-vTRQS5vGe5AjlL3DJM-TeeVCCTXniAXdfHKRujBoYeb-5M
> > inwQ4D$
> > https://urldefense.com/v3/__https://publib.boulder.ibm.com/epubs/boo
> > k/ibmot001.boo__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!Is3tLzKjqwn7uw0fBC
> > 6uRW6DV6XDKNyd-Tawu5K-vTRQS5vGe5AjlL3DJM-TeeVCCTXniAXdfHKRujBoYeb-5D
> > Ym64ZE$
> > https://urldefense.com/v3/__http://www.bitsavers.org/pdf/ibm/370/pli
> > /LY27-9528-0_OS_PLI_Version_2_Problem_Determination_Dec87.pdf__;!!Eb
> > r-cpPeAnfNniQ8HSAI-g_K5b7VKg!Is3tLzKjqwn7uw0fBC6uRW6DV6XDKNyd-Tawu5K
> > -vTRQS5vGe5AjlL3DJM-TeeVCCTXniAXdfHKRujBoYeb-5LZuiW-9$
--

This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Build problems under Unix System Services

[Neale Ferguson]

I am building a static version of ncurses (don’t ask) and there are a couple of 
problems I note:


  1.  The xlc include search order defaults to -I/usr/include as the 1st place 
to search (despite what the man page for c89 says) whereas other *IX systems 
search the user specification first then the system. I had to add -qnosearch 
then the user spec then a -I/usr/include. Annoying – is there a way around this?
  2.  After I get a clean compilation the linker craps out with:

xlc ../objects/tic.o  ../objects/dump_entry.o  ../objects/tparm_type.o  
../objects/transform.o -O -qxplink -qdll -qxplink -qdll -qnosearch 
-DHAVE_CONFIG_H -I../progs -I. -I../include -D_ALL_SOURCE -D_EXT  
-D_XOPEN_SOURCE_EXTENDED=1 -D__VM__ -D_ISOC99_SOURCE -DEBCDIC -D_OE_SOCKETS 
-D_OPEN_MSGQ_EXT -D_OPEN_SYS -D_OPEN_THREADS -D_POSIX_SOURCE -D_UNIX03_SOURCE 
-D_UNIX03_WITHDRAWN -D_XOPEN_SOURCE=600 -DNCURSES_CONST=const -I/usr/include -O 
-qlanglvl=extended:extc89:extc99 -qxplink -qdll -qenum=int -qexportall 
-qfloat=ieee -qlongname -q32 -qseverity=e=CCN3296 -DNCURSES_STATIC -L../lib  
-lncurses -lncurses -o tic

FSUM3008 Specify a file with the correct suffix (.c, .i, .s, .o, .x, .p, .I, or 
.a), or a corresponding data set name, instead of -L../lib.



I change the command to get rid of the -L../lib and -l options but still have a 
problem at which point I am now stuck:



xlc ../objects/tic.o  ../objects/dump_entry.o  ../objects/tparm_type.o  
../objects/transform.o -O -qxplink -qdll -qxplink -qdll -qnosearch 
-DHAVE_CONFIG_H -I../progs -I. -I../include -D_ALL_SOURCE -D_EXT  
-D_XOPEN_SOURCE_EXTENDED=1 -D__VM__ -D_ISOC99_SOURCE -DEBCDIC -D_OE_SOCKETS 
-D_OPEN_MSGQ_EXT -D_OPEN_SYS -D_OPEN_THREADS -D_POSIX_SOURCE -D_UNIX03_SOURCE 
-D_UNIX03_WITHDRAWN -D_XOPEN_SOURCE=600 -DNCURSES_CONST=const -I/usr/include -O 
-qlanglvl=extended:extc89:extc99 -qxplink -qdll -qenum=int -qexportall 
-qfloat=ieee -qlongname -q32 -qseverity=e=CCN3296 -DNCURSES_STATIC 
../lib/libncurses.a ../lib/libncurses.a -o tic

FSUM3008 Specify a file with the correct suffix (.c, .i, .s, .o, .x, .p, .I, or 
.a), or a corresponding data set name, instead of -o./tic.

Any advice?

Neale

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN