IBM Mainframe Forum

Hi Friends,
Could you please help me how to check & pull the logoinds which starts with GEE-, G*I, G1BV & G1YZ only.. .
I have a dataset record of all logon ids....
Logon Id length is 7 character....
Ex:
LOGONID NAME
******* ****
XXXXXXX YYYYY

########################################################
//DELIT EXEC PGM=IDCAMS,REGION=5M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE G1VTSPT.SY44.ACFLIST
SET MAXCC=0
/*
//STEP01 EXEC PGM=ACFRPTSL
//SYSPRINT DD DSN=G1VTSPT.SY44.ACFLIST,
// DCB=(LRECL=120,RECFM=FB,BLKSIZE=27960),
// SPACE=(CYL,(1,1),RLSE),
// UNIT=3390,
// DISP=(,CATLG,DELETE)
//SYSIN DD *
INPUT(ACF2)
IF((NOT STC) AND (SPECIAL ¬= 'H') -
AND (SPECIAL ¬= 'S') -
AND (SPECIAL ¬= 'C') AND (BUSINESS =C'@%%') -
OR (BUSINESS =C'PMO'))
REPORT(SHORT)
SFLDS(ACC-DATE,CRE-DATE,BUSINESS,LOA,SPECIAL)
MASK(G******) //* HERE I WANT TO SEARCH ON MASK...GEE-, G*I, G1BV & G1YZ
##########################################################

Could you please help me on this

Thanks,
Shivaji Patil

--------------------------------------------------------------------------------

So where does the rexx come in? You have shown an IDCAMS step and ACFRPTSL step. Where is this Rexx step going to run? What have you tried so far? What Rexx functions are you thinking of using?

I tried to do it in JCL it self but, I could not.....
Then I thought we may achive this by using Rexx
Using Function like SUBSTR and IF condition etc....
Can you help me on this....

what about reading the ACFRPTSL manual to see how the MASK statement works ???

Enrico - I suspect ACFRPTSL is some sort of ACF2 report program, but with no knowledge of what its output looks like, no one can help the TS.

Report Looks like...
-------------------------------
LOGONID NAME DATE TIME CHANGER ACC-DATE

GATSY44 AUTO/OPS 02/03/12-06:14 01/26/03
GEEAJM0 MORENO/ART/J. 02/03/12-10:16 02/03/12
GEERCP0 PURNELL/RANDY/C. 01/31/12-22:14 01/31/12
GFT071B FUNCTIONAL ID 04/12/10-10:05 00/00/00


Here we need pull the logon ids which starts with only GEE-, G*I, G1BV & G1YZ only.. .

can You read ???

from Your post ( YOU WROTE IT )
You are running a program called ACFRPTSL
one of its parameters is MASK(....)

read the frigging ACF manual about the ACFRPTSL control cards
and about the format of the operands of the MASK keyword

Sorry Enrico for wasting your time on this.......
Thank you