Tom,
It is not assembler but it is quite simple with DFSORT to extract the node
names.
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
FIRST.SECOND.THIRD
SYS1.PARMLIB
SYS2.NPLEX1.FILE.NODE4
IBM.MAIN.LIST.PARSE.EXAMPLE
SYS1.GDG.CONLEY.TEST.G0005V00
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC PARSE=(%=(ENDBEFR=C'.',REPEAT=2),
%01=(ENDBEFR=C'.',ENDBEFR=C' ',FIXLEN=8)),
BUILD=(%01)
OUTFIL OMIT=(1,8,CH,EQ,C' ')
//*
The output from this job is
THIRD
FILE
LIST
CONLEY
If you notice we eliminated the 2 record which does not have a 3rd
qualifier.
Further if you have any questions please let me know
Thanks,
Kolusu
DFSORT Development
IBM Corporation
IBM Mainframe Discussion List <[email protected]> wrote on
03/13/2015 10:28:18 AM:
> From: Pinnacle <[email protected]>
> To: [email protected]
> Date: 03/13/2015 10:28 AM
> Subject: Need assembler trick to quickly get second and third DS
qualifiers
> Sent by: IBM Mainframe Discussion List <[email protected]>
>
> I have a dataset FIRST.SECOND.THIRD, and I want to get SECOND.THIRD.
> Normally I would loop to one character at a time to get to the '.', but
> I need performance here. I sure some of you assembler gurus could give
> me some inscrutable assembler to get there in like one or two
> instructions. Thanks in advance!
>
> Regards,
> Tom Conley
>
> --
>
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
