Robert,
Thanks for your offer to take a look at the code. I have enclosed it. I
hope you can find the bug.
Thanks in advance for your help.
"Richards, Robert B." <[EMAIL PROTECTED]> wrote:
Willie,
No, the unit is not the problem, as it is valid in both tests. Your
logic must honor (ie, allow) specific dataset placement when a volser is
coded. It may be part of a compound test.
Most of the time, the ACS routines rely on the coder knowing the
sequence of the logic tests and coding them appropriately for the test
desired. Without seeing more of your SC routine, I would be speculating
on the correct answer.
If you want to send it to me, I'll take a look.
Also, my personal preference is to use DO-END loops that SET the SC and
then EXIT when a test is satisfied. YMMV
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of willie bunter
Sent: Monday, April 28, 2008 2:26 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: SMS PUZZLE
Hallo Everybody,
I am trying to track down why some dsns with the HLQ of TEST.** are
being directed to a non-SMS volume. I noticed that a majority of the
dsns are being allocated correctly by SMS. I ran a check on the ACS
routines and I found that the SC ACS has a storage class set for TEST.**
I also noticed that is another storage class for unit types. Could
this be the cause? I executed some tests where I used the unit=3390,
the dsn (TEST.AAA.BB) was then allocated with the proper storage class
and storage group. However, when I used the unit=3390 with the volser
of a non-SMS pack, the dsn (TEST.AAA.CC) was allocated on the pack
Below is a sample of the SC ACS.
FILTLIST VALUNIT INCLUDE
('3380','SYSDA','SYSALLDA','3390','PUBLIC',VVIO','PROD','TEST''' )
FILTLIST GDVX_DSN INCLUDE
(LIBR.**, SCPX.SYST.*.VSAMEXT.**,
TEST.**,TEST1.**,ALQTOPR.**,
.................................
.................................))
WHEN (&UNIT NE &VALUNIT)
SET &STORCLAS = ''
WHEN (&HLQ = &POOL_GDVX OR &DSN = &GDVX_DSN)
SET &STORCLAS = 'SCTEST'
Am I on the right track in thinking that the SC VALUNIT is the cause
of the problem? If so, how can I fix it? I would appreciate your
suggestion and comments.
Thanks in advance.
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try
it now.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
PROC 1 STORCLAS
/********************************************************************/
/* TESTER GMKT AVANT LES FICHIERS TEMPORAIRES D.D. 20080125 */
/* AJOUT GMIGR.** D.D. 20070831 */
/* AJOUT GDISIDMS D.D. 20070712 */
/* AJOUT STEM.** AU POOL GPRX_DSN E.P. 20070420 */
/* MODIF GPRT_DSN ET GPRX_DSN D.D. 20070322 */
/* AJOUT CTRELGDA DANS GDIS_DSN D.D. 20070223 */
/* CREE IDMSDB.*.DMLO.PROFILE C.R. 20061020 */
/* DANS : GTSO_SAUF (DIRIGE VERS POOL GIDM**) C.R. 20061020 */
/* AJOUT GINP* DANS VOL_BANQ (NON-SMS) C.R. 20061017 */
/* AJOUT UCAT.TEST ET UCAT.PUB DANS CAT_DSN D.D. 20060806 */
/* AJOUT GPRT_DSN ET SCPRSTD3 A.B. 20060224 */
/* ...RECUPERE CODE "FILTLIST" ROUTINE SG088 A.B. 20060224 */
/* AJOUT TRAITEMENT FICHIERS INSTALL.** ET DATAALL.** A.B. 20060113 */
/* AUCUN CHANGEMENT POUR SC087 D.D. 20051007 */
/* NE PAS ASSIGNER DE STORAGECLASS AUX FICHIERS D.D. 20050915 */
/* SUIVANTS : PBANQ.MISNT.**, D.D. 20050915 */
/* TEST.MISNT.**,IDMSBD.MISNT.** D.D. 20050915 */
/* FAIRE TEST GDAPP APRES TEST VTS D.D. 20050630 */
/* RETRAIT BELLPSC.PSC.PS416HAI S.C. 20050506 */
/* RETRAIT BELLPSK.PSN.PS416HAI S.C. 20050506 */
/* RETRAIT PERSONAL.MARITIME.TEL S.C. 20050506 */
/* AUCUN CHANGEMENT POUR SC083 A.B. 20050107 */
/* RETRAIT DISQUES GLOG* C.R. 20041126 */
/* AUCUN CHANGEMENT POUR SC081 D.D. 20040709 */
/* AJOUT DE GTPB GROUP D.D. 20040630 */
/* RETIRE PROD1.CA1#.XXX DES EXCLUSIONS VTS G.S. 20040617 */
/* AJOUT DE TPIC ALIAS DANS GDVX_DSN D.D. 20040430 */
/* AJOUT DE ALQTOPR.** DANS GDVX_DSN D.D. 20040312 */
/* AJOUT VALID_SC FILTLIST J.G. 20040224 */
/* SUPPRIMER SCHSTBD,SCPERPP,PRGCI0,SCTTTBD J.G. 20040224 */
/* AUCUN CHANGEMENT POUR SC075 D.D. 20030130 */
/* RETRAIT DE SCGDAPX ET EXCLURE DE SYSGDA D.D. 20031114 */
/* LES FICHERS DE JMR ET SMR */
/* RETRAIT PRIM1 - EDIG* - CICS* S.C. 20031024 */
/* RETRAIT PRIM1 - EDIG* - CICS* S.C. 20031024 */
/* RETRAIT PGBD S.C. 20031017 */
/* RETRAIT AOC S.C. 20031010 */
/* AUCUN CHANGEMENT POUR SC070 S.C. 20031003 */
/* CREATION FILTLIST GDIS_DSN POUR LES FICHIERS S.C. 20030724 */
/* IDMSDB.PR*.ARCH*.JNLEXIT */
/* IDMSDB.PR*.ARCH*.JNLEXIT.DISQ */
/* RETRAIT GJNL_DSN POUR LES FICHIERS */
/* IDMSDB.PR*.ARCH*.JNLEXIT */
/* IDMSDB.PR*.ARCH*.JNLEXIT.DISQ */
/* AJOUTER STORCLAS SCXXCF D.D. 20030704 */
/* AUCUN CHANGEMENT POUR SC067 S.C. 20030613 */
/* AUCUN CHANGEMENT POUR SC066 S.C. 20030606 */
/* AUCUN CHANGEMENT POUR SC065 S.C. 20030530 */
/* RETRAIT IDMSJ S.C. 20030516 */
/* TRAITEMENT POUR VOLUMES HSPB D.D. 20030502 */
/* AJOUTER VEB4 ET VEB5 DANS VOL_NONSMS D.D. 20030311 */
/* RETIRER DING ET BANQ DE VALUNIT D.D. 20030307 */
/* AJOUTER AIGUILLAGE POUR VOLUME GTPB A.B. 20021115 */
/* AJUSTER JMR POUR SUFFIX SMR* ET IND* SCGDAPX A.B. 20021104 */
/* SEULEMENT SACP.D905.SYSLOG.SMR* GDAPP3 D.D. 20021103 */
/* SEULEMENT SACP.D905.SYSLOG.CUR* GDAPP3 D.D. 20021103 */
/* ASSIGNER STORCLAS=SCGDAPX, POUR JMR ET SMR A.B. 20021101 */
/* AJOUT DE TMONMVS.G1.LFS.* AU FILTLIST GLOG_DSN A.B. 20020906 */
/* ... CHG15332 TSK00216 */
/* SC055 AUCUN CHANGEMENT D.D. 20020308 */
/* AJOUT LISTE EXCLUSION DANS VTSDSN D.D. 20020222 */
/* AJUSTEMENT CODE POUR VTS D.D. 20020213 */
/* AJOUT ACTUARIAT DANS VTSDSN A.B. 20020125 */
/* AJOUT SMR/JMR DANS VTSDSN A.B. 20020118 */
/* AJOUT GEES.**, SMF ET DUMP DANS VTSDSN A.B. 20020111 */
/* AJOUT CT73PRD A VTSUSER VOIR CHG15419 TSK03 A.B. 20020107 */
/* AJUSTER CODE POUR FILTLIST GPRX_DSN A.B. 20011203 */
/* ...REMPLACER PBANQ.POLS.PROD01.LOCAL001.BDVIO.** PAR */
/* PBANQ.POLS.PROD*.LOCAL001.BDVIO.** */
/* AJOUT CODE POUR VTS: A.B. 20011115 */
/* ...FILTLIST ALLCUNIT,VTSDSN,VTSTST */
/* ...REMPLACE T* PAR T,T16,T62,TAP* */
/* ASSIGNATIONS SUIVANTES: A.B. 20011019 */
/* ...TBANQ ET PLIBR DIRIGES VERS MCDEV */
/* ...PBANQ ET PLIBR.SYST.GEES.PROFIL DIRIGES VERS MCNOACT */
/* ...PLIBR.SYST.IDMS|INT|LOT|MACROS|SOURCE DIRIGES VERS MCSUPIDM */
/* --> AUCUN CHANGEMENT POUR SC044 A.B. 20011005 */
/* --> AUCUN CHANGEMENT POUR SC043 A.B. 20010907 */
/* --> AJOUT DE SYS1.ICFCAT.SYSGDA DANS SCGDAPP D.D. 20010824 */
/* --> AUCUN CHANGEMENT POUR SC041 A.B. 20010824 */
/* AJOUT DES USAGERS POUR ACCES AU VTS A.B. 20010810 */
/* ...VOIR NETMAN 01/08/09 19CT */
/* --> AUCUN CHANGEMENT POUR SC039 A.B. 20010809 */
/* AJOUT DES USAGERS XD840* POUR ACCES AU VTS A.B. 20010801 */
/* ...VOIR NETMAN 01/08/01 23CT */
/* AJOUT TEST SUR STORCLAS POUR ROUTING SUR VTS A.B. 20010628 */
/* AJOUT CODE POUR NOUVEAUX VOLUMES: A.B. 20010625 */
/* ...AJOUT HPBD* DANS VOL_BANQ (NON SMS) */
/* ...CREE FILTLIST GJNL_DSN */
/* AJOUT STORCLASS POUR VTS D.D. 20010618 */
/* AJOUT PRJT.** AU POOL GPRX_DSN A.B. 20010529 */
/* ...VOIR NETMAN 01/05/23 011CT */
/* DEPLACE TEST.SADD.** ET TEST.SIMA.** DE GMKT à GDVX AB 20010321 */
/* ...VOIR NETMAN 01/03/20 21CT */
/* AJOUT UCAT.CGI.EXPORT.** POUR MOVE UCAT.CGI A.B. 20010311 */
/* --> AUCUN CHANGEMENT POUR SC032 A.B. 20010214 */
/* AJOUT DU CODE POUR GROUPE VOL GPAC A.B. 20010123 */
/* ...VOIR NETMAN 00/07/12 16CT */
/* AJOUT TRAITEMENT SÉPARÉ POUR TMM D'IDMS ET IDMSDB A.B. 20010122 */
/* ...VOIR NETMAN 00/12/18 06CT */
/* RETRAIT IDMSDB.COVM.** DU FILTLIST GSPB_DSN A.B. 2000/11/30*/
/* AJOUT PBANQ.... ET PLIBR... FILTLIST GIDT_DSN A.B. 2000/11/30*/
/* ADD NEW STORCLASS SCPERPP A.B. 2000/11/09*/
/* FILTER POOL_PERPP J.L. 2000/08/23*/
/* AJOUT PLIBR.SYST.IDMS.PMON.SRCE DANS SGGIDT A.B. 2000/09/07*/
/* ADD NEW STORCLASS SCGDAPP J.L. 2000/08/23*/
/* FILTER POOL_GDAPP J.L. 2000/08/23*/
/* MODIFIEé 'FDRABR.V%%%%%%'/FDRABR.V%%%%%% A.B. 2000/04/20*/
/* ADD CTSEC* TO POOL_GTSO J.L. 2000/04/14*/
/* ADD CTRCT1G TO POOL_GPB0 J.L. 2000/03/10*/
/* AJOUT DE GPROV à VOL_NONSMS A.B. 2000/02/21*/
/* ... CRÉÉ AUTH_GPROV ET GPROV_DSN PLUS CODE A.B. 2000/02/21*/
/* ASSIGNATION D'UNE STORCLASS POUR FICHIERS AZTEX A.B. 2000/01/01*/
/* RETRAIT DU PREFIX AZTEX.INTERVAL POUR GPB0_DSN A.B. 2000/01/01*/
/* -- VOIR NETMAN 00/01/13 0027CT */
/* ############################################################### */
/********************************************************************/
/* VTS */
/********************************************************************/
FILTLIST VTSUSER INCLUDE('CTTCA03','CTTGS05','CTTGS07',
'CT73PRD',
'CTTGS#8','CTTGS#4')
/********************************************************************/
/* FILTRE POUR LE VTS FICHIERS */
/********************************************************************/
FILTLIST VTSDSN INCLUDE(*.**)
EXCLUDE('ALQTOPR.GB.BNKMONT',
'ALQTOPR.GB.CIBCVISA',
BACKUPG.LOG.M.**,
BACKUPG.PHY.H.**,
BACKUPG.VOU.A.**,
BACKUPG.VOU.H.**,
BACKUPG.VOU.M.**,
FDRABR.V*.C2*,
'HIST1.EXCI.SACAMAJ.OCTOBR99.COMPLET',
'HIST1.EXCI.SACAMAJ.OCTOBR99.PARTIEL',
'HIST1.EXCI.SACATRIE.MC9908.AVECFREQ',
'HIST1.EXCI.SACATRIE.MC9909.SANSFREQ',
'HIST1.PROV.A01S999.NGRP.VOUTE.D9905',
'HIST1.PROV.A01S999.POLI.VOUTE.D0004',
'HIST1.PROV.A01S999.POLI.VOUTE.D0110',
'HIST1.PROV.A01S999.POLI.VOUTE.D9302',
'HIST1.PROV.A01S999.POLI.VOUTE.D9702',
'HIST1.PROV.A01S999.POLI.VOUTE.D9804',
'HIST1.RECL.INDMPG5.FMDO001.D000826.VOUTE',
'HIST1.RECL.O01S11B.INDR11BZ.DAUTOR.D001014',
'HIST1.RECL.O01S11B.INDR11BZ.DAUTOR.D990613',
'HIST1.SINT.$$315.INFR01.D0110.VOUTE',
'HIST1.SINT.$$315.INFR02.D0110.VOUTE',
'HIST1.SINT.$$315.INFR03.D0110.VOUTE',
'HIST1.SINT.$$315.INFR04.D0110.VOUTE',
'HIST1.SINT.$$315.INFR05.D0110.VOUTE',
'HIST1.SINT.$$315.INFR06.D0110.VOUTE',
'HIST1.SINT.$$315.INFR07.D0110.VOUTE',
'HIST1.SINT.$$315.INFR08.D0110.VOUTE',
'HIST1.SINT.$$315.INFR09.D0110.VOUTE',
'HIST1.SINT.$$315.INFR10.D0110.VOUTE',
IDMSDB.PR06.VOUTE.JOURNAL.**,
IDMSDB.PR07.VOUTE.JOURNAL.**,
IDMSDB.PR08.VOUTE.JOURNAL.**,
IDMSDB.PR16.VOUTE.JOURNAL.**,
IDMSDB.PR17.VOUTE.JOURNAL.**,
IDMSDB.PR18.VOUTE.JOURNAL.**,
'PAY.PROD.HC.PERSON',
PROD1.BASE.A01S999.BASSRA1.AUTO.VOU.**,
PROD1.BASE.A01S999.BASSRA1.BIEN.VOU.**,
PROD1.BASE.A01S999.BASSRA1.COMR.VOU.**,
PROD1.BASE.A01S999.IDCAMS.AUTO.VOU.**,
PROD1.BASE.A01S999.IDCAMS.COMR.VOUT.**,
PROD1.BASE.A01S999.IDCAMS.HBTA.VOU.**,
PROD1.COMP.A01S999.EXSNRM04.VOUTE.**,
PROD1.COMP.A01S999.FCPPRM2.CUM.VOUT.**,
PROD1.COMP.A01S999.FCPPRM2.VOUTE.**,
PROD1.COMP.A01S999.FCPRRMI.VOUTE.**,
PROD1.COMP.A01S999.FCPRRM8.VOUTE.**,
PROD1.COMP.A01S999.S114CUMI.VOUTE.**,
PROD1.COMP.A01S999.ZSMRM01.VOUTE.**,
PROD1.CONT.E01S222.CNTR2222.TEFCI4.**,
PROD1.CONT.E01S222.CNTR2222.TEFCI5.**,
'PROD1.CONT.E01S713.CNTR713I.FACTWOO1',
'PROD1.CONT.E01S713.CNTR713I.FACTWOO2',
'PROD1.CONT.E01S713.CNTR713I.FACTWOO3',
'PROD1.CONT.E01S713.CNTR713K.FACTCIBC',
PROD1.CONT.E01S999.IDCAMS.SSQ.**,
PROD1.CONT.E11S222.CNTR2222.TEFCI7.**,
PROD1.CONT.E11S222.CNTR2222.TEFCI8.**,
PROD1.ECHE.A01S999.ZEMRM01.VOUTE.**,
PROD1.EXPL.A01S999.GCIX01.VOUTE.**,
PROD1.EXPL.A01S999.GCIX02.VOUTE.**,
PROD1.EXPL.A01S999.GCIX03.VOUTE.**,
PROD1.EXPL.A01S999.GPRX01.VOUTE.**,
PROD1.EXPL.A01S999.GPRX02.VOUTE.**,
PROD1.EXPL.A01S999.GPRX03.VOUTE.**,
PROD1.EXPL.A01S999.GPRX04.VOUTE.**,
PROD1.EXPL.A01S999.GPRX05.VOUTE.**,
PROD1.EXPL.A01S999.GPRX06.VOUTE.**,
PROD1.EXPL.A01S999.GPRX07.VOUTE.**,
PROD1.EXPL.A01S999.GPRX08.VOUTE.**,
PROD1.EXPL.A01S999.GPRX09.VOUTE.**,
PROD1.EXPL.A01S999.GPRX10.VOUTE.**,
PROD1.EXPL.A01S999.GPRX11.VOUTE.**,
PROD1.EXPL.A01S999.GPRX12.VOUTE.**,
PROD1.EXPL.A01S999.GPRX13.VOUTE.**,
PROD1.EXPL.A01S999.GPRX14.VOUTE.**,
PROD1.EXPL.A01S999.GPRX15.VOUTE.**,
PROD1.EXPL.A01S999.GPRX16.VOUTE.**,
PROD1.EXPL.A01S999.GPRX17.VOUTE.**,
PROD1.EXPL.A01S999.GPRX18.VOUTE.**,
PROD1.EXPL.A01S999.GPRX19.VOUTE.**,
PROD1.EXPL.A01S999.GPRX20.VOUTE.**,
PROD1.EXPL.A01S999.GPRX21.VOUTE.**,
PROD1.EXPL.A01S999.GPRX22.VOUTE.**,
PROD1.EXPL.A01S999.GPRX23.VOUTE.**,
PROD1.EXPL.A01S999.GPRX24.VOUTE.**,
PROD1.EXPL.A01S999.GPRX25.VOUTE.**,
PROD1.EXPL.A01S999.GPRX26.VOUTE.**,
PROD1.EXPL.A01S999.GPRX27.VOUTE.**,
PROD1.EXPL.A01S999.GPRX28.VOUTE.**,
PROD1.EXPL.A01S999.GPRX29.VOUTE.**,
PROD1.EXPL.A01S999.GPRX30.VOUTE.**,
PROD1.EXPL.A01S999.XPDMVOUT.GMKT*.**,
PROD1.EXPL.A01S999.XPDMVOUT.GPBD*.**,
PROD1.EXPL.A01S999.XPDMVOUT.GPRX*.**,
PROD1.EXPL.A11S999.XPDMVOUT.HPBD*.**,
PROD1.EXPL.H01S999.IEBGENER.COPHIST.**,
PROD1.EXPL.H01S999.XPDMVOUT.GCGI*.**,
PROD1.EXPL.H01S999.XPDMVOUT.GDVX*.**,
PROD1.EXPL.H01S999.XPDMVOUT.GIDM*.**,
PROD1.EXPL.H01S999.XPDMVOUT.GIDT*.**,
PROD1.EXPL.H01S999.XPDMVOUT.GMKT*.**,
PROD1.EXPL.H01S999.XPDMVOUT.GPBD*.**,
PROD1.EXPL.H01S999.XPDMVOUT.GPRX*.**,
PROD1.EXPL.H11S999.XPDMVOUT.HPBD*.**,
PROD1.EXPL.J01S999.XPDMVOUT.GCGI*.**,
PROD1.EXPL.M01S999.GPRX01.VOUTE.**,
PROD1.EXPL.M01S999.GPRX02.VOUTE.**,
PROD1.EXPL.M01S999.GPRX03.VOUTE.**,
PROD1.EXPL.M01S999.GPRX04.VOUTE.**,
PROD1.EXPL.M01S999.GPRX05.VOUTE.**,
PROD1.EXPL.M01S999.GPRX06.VOUTE.**,
PROD1.EXPL.M01S999.GPRX07.VOUTE.**,
PROD1.EXPL.M01S999.GPRX08.VOUTE.**,
PROD1.EXPL.M01S999.GPRX09.VOUTE.**,
PROD1.EXPL.M01S999.GPRX10.VOUTE.**,
PROD1.EXPL.M01S999.GPRX11.VOUTE.**,
PROD1.EXPL.M01S999.GPRX12.VOUTE.**,
PROD1.EXPL.M01S999.GPRX13.VOUTE.**,
PROD1.EXPL.M01S999.GPRX14.VOUTE.**,
PROD1.EXPL.M01S999.GPRX15.VOUTE.**,
PROD1.EXPL.M01S999.GPRX16.VOUTE.**,
PROD1.EXPL.M01S999.GPRX17.VOUTE.**,
PROD1.EXPL.M01S999.GPRX18.VOUTE.**,
PROD1.EXPL.M01S999.GPRX19.VOUTE.**,
PROD1.EXPL.M01S999.GPRX20.VOUTE.**,
PROD1.EXPL.M01S999.GPRX21.VOUTE.**,
PROD1.EXPL.M01S999.GPRX22.VOUTE.**,
PROD1.EXPL.M01S999.GPRX23.VOUTE.**,
PROD1.EXPL.M01S999.GPRX24.VOUTE.**,
PROD1.EXPL.M01S999.GPRX25.VOUTE.**,
PROD1.EXPL.M01S999.GPRX26.VOUTE.**,
PROD1.EXPL.M01S999.GPRX27.VOUTE.**,
PROD1.EXPL.M01S999.GPRX28.VOUTE.**,
PROD1.EXPL.M01S999.GPRX29.VOUTE.**,
PROD1.EXPL.M01S999.GPRX30.VOUTE.**,
PROD1.EXPL.M01S999.GTBD01.VOUTE.**,
PROD1.EXPL.M01S999.XPDMVOUT.GMKT*.**,
PROD1.EXPL.M01S999.XPDMVOUT.GPBD*.**,
PROD1.EXPL.M01S999.XPDMVOUT.GPRX*.**,
PROD1.EXPL.M11S999.XPDMVOUT.HPBD*.**,
'PROD1.RECL.O01S11B.INDR11BZ.DAUTOR.D001014',
'PROD1.RECL.O01S11B.INDR11BZ.DAUTOR.D990613',
PROD1.SIMA.A01S112.SAS.IPDO.VOUTE.**,
PROD1.SPER.H01S999.DSR20.VOUTE.**,
PROD1.SUPT.A01S521.IDCAMS.STAT.VOUT.**)
/********************************************************************/
/* SITE GDAG */
/********************************************************************/
FILTLIST SITEG INCLUDE('G000')
/********************************************************************/
/* FICHIER AUTORISES POUR ACCEDER LE POOL SYSPLEX */
/********************************************************************/
FILTLIST POOL_XXCF INCLUDE('SYSPLX')
/********************************************************************/
/* FICHIER TEMP POUR MOVE CATALOG */
/********************************************************************/
FILTLIST CAT_DSN INCLUDE(UCAT.CGI.EXPORT.**,
'UCAT.TEST',
'UCAT.CTRELGDA',
'UCAT.GDISIDMS',
'UCAT.PUB')
/********************************************************************/
/* FICHIER AZTEX */
/********************************************************************/
FILTLIST AZTEX_DSN INCLUDE('AZTEX.INTERVAL')
/********************************************************************/
/* MODELE FDRABR */
/********************************************************************/
FILTLIST FDRABR INCLUDE(FDRABR.V%%%%%%)
/********************************************************************/
/* ENSEMBLE DE UNIT NAMES RECONNUS */
/********************************************************************/
FILTLIST VALUNIT INCLUDE('3380','SYSDA','SYSALLDA','3390','PUBLIC',
'VIO','PROD','TEST','GMKT','' )
FILTLIST TAPEUNIT INCLUDE(ACS*,%480*,'3490',MAN%480,MAN%490)
FILTLIST ALLCUNIT INCLUDE(MAN%490,ACS%TAPE,'3480',
'3490','3480',SYS348*,'3400-9',
'AFF=','AFF=SMST',
TAPEACS*,MAN%480,3480*,SYS348*,
'T','T16','T62',TAP*,%400*,SG%STC)
/********************************************************************/
/* USAGERS QUI SERONT AUTORISES A CODER 'STORCLAS' DANS LEURS JCL */
/********************************************************************/
FILTLIST AUTH_LIST INCLUDE('BA#MVSB','BA#MVSC','BA$HSM00',
CTTGS%%,CTTLB%%,
'BA03754','BA07291','BA07035','BA03101')
/*------------------------------------------------------------------*/
/* USAGERS QUI SERONT AUTORISES A CODER 'STORCLAS' DANS LEURS JCL */
/*------------------------------------------------------------------*/
FILTLIST VALID_SC INCLUDE('GUASPACE','MED2VTS','SCABRMOD','SCCED',
'SCDEV','SCGDAPP','SCGDIS','SCGIPL',
'SCGJNL','SCIDMGSP','SCIDMSTD','SCGMIG',
'SCM3420','SCM3480','SCPRMKT0','SCPRSTD0',
'SCPRSTD1','SCPRSTD2','SCR4490','SCTEMP',
'SCTMI','SCTMM','SCTSO','SCTSTBD',
'SCUCAT','SCXXCF','SCPRSTD3')
/********************************************************************/
/* USAGERS ET FICHIERS POUR ACCÈS VOLUMES GPROV* */
/********************************************************************/
FILTLIST AUTH_GPROV INCLUDE('XD00837','XD008S9','XD00846')
FILTLIST GPROV_DSN INCLUDE(*.GPROV.**)
/********************************************************************/
/* USAGERS POUR ACCES MISNET ET FICHIERS MISNET ( NON SMS ) */
/********************************************************************/
FILTLIST AUTH_MISNT INCLUDE('XD00811','XD00837','XD00845','XD00846',
'CTTGS#8','CTTGS08')
FILTLIST DSN_MISNT INCLUDE(TEST.MISNT.**,PBANQ.MISNT.**,
IDMSDB.MISNT.**)
/********************************************************************/
/* VOLUMES ET FICHIERS A EXCLURE DE SMS */
/********************************************************************/
FILTLIST VOL_BANQ INCLUDE(GPBD*,HPBD*,GINP*)
FILTLIST VOL_NONSMS INCLUDE(%IPL*,%RES*,%PGE*,%PGL*,%CE*,%LI*,%SPL*,
GMAIL%,'REF=NS',%L1*,%L2*,%M1*,%M2*,
GPROV%,VEB4*,VEB5*)
EXCLUDE(%IPL2*)
FILTLIST HLQ_NONSMS INCLUDE('SYS1',DFSMS*,DFHSM*)
/********************************************************************/
/* PREFIXES AUTORISES POUR ACCEDER LE POOL TSO */
/********************************************************************/
FILTLIST POOL_GTSO INCLUDE(BA*,CTSEC*,
'HSMACT','ACF2DIC','SYS2','CTEEO11')
FILTLIST GTSO_DSN INCLUDE(*.*.JCLPREP.TABLE,
GDAGUSR.**,
MONTAPE.TTX.G*.**,
MONTAPE.TTX.COLLECTG.**,
MONTAPE.TTX.SASDATA*.**,
CTPRD.MAIL.**)
FILTLIST GTSO_LLQ INCLUDE(PROFIL*)
FILTLIST GTSO_SAUF INCLUDE(IDMSDB.**.DMLO.PROFILE)
FILTLIST POOL_GDAPP INCLUDE(SYSGDA.**,'SYS1.ICFCAT.SYSGDA')
EXCLUDE(SYSGDA.SYSLOG.ARC*,
SYSGDA.JMR.JMROPTN.ARC*,
SYSGDA.JMR.JMROFINA.ARC*)
/********************************************************************/
/* PREFIXES AUTORISES POUR ACCEDER LE POOL DE TEST DEVELOPPEMENT */
/********************************************************************/
FILTLIST POOL_GDVX INCLUDE('GEES','AD00401','TESTPP','TBANQ','GDAG')
FILTLIST GDVX_DSN INCLUDE(PLIBR.**,
SACPV.SYST.*.V300.VSAMEXT.**,
SACPV.SYST.TLIN.**,
TEST.**,TEST1.**,ALQTOPR.**,
ALQTOTS.**,WCBTOTS.**,ALQR1DV.**,
ALQR1PR.**,ALQR3PR.**,ALQR2DV.**,
ALQR3DV.**,ALQR4DV.**,ALQR5DV.**,
ALQR6DV.**,ALQR7DV.**,AGOTOPR.**,
ALQR3DV.**,ALQR4DV.**,ALQR5DV.**)
EXCLUDE('PLIBR.SYST.GEES.PROFIL',
PLIBR.SYST.IDMS.**,
PLIBR.SYST.INT.**,
PLIBR.SYST.LOT.**,
PLIBR.SYST.MACROS.**,
PLIBR.SYST.SOURCE.**)
/********************************************************************/
/* PREFIXES AUTORISES POUR ACCEDER LE POOL TEST GSPB* */
/********************************************************************/
FILTLIST POOL_GSPB INCLUDE(IDMS*,BA4300*)
/********************************************************************/
/* PREFIXES AUTORISES POUR ACCEDER LE POOL IDMS LOGICIELS */
/********************************************************************/
FILTLIST POOL_GIDM INCLUDE('IDMS','IDMSDB','GDISIDMS')
FILTLIST GIDM_DSN INCLUDE(PBANQ.SYST.**,
CTRELGDA.**,
PLIBR.SYST.IDMS.**,
PLIBR.SYST.INT.**,
PLIBR.SYST.LOT.**,
PLIBR.SYST.MACROS.**,
PLIBR.SYST.SOURCE.**,
SACP.D001.**,
SACP.RABAIS.**,
SACP.PROD.R600.**)
FILTLIST GJNL_DSN INCLUDE(IDMSDB.PR*.ARCH*.JOURNAL,
IDMSDB.PR*.ARCH*.JOURNAL.DISQ,
IDMSDB.PR*.ARCH*.LOG,
IDMSDB.PR*.VIDANGE.JOURNAL,
IDMSDB.PR*.VIDANGE.LOG)
FILTLIST GDIS_DSN INCLUDE(GDISIDMS.**,
IDMSDB.PR*.ARCH*.JNLEXIT,
IDMSDB.PR*.ARCH*.JNLEXIT.DISQ,
CTRELGDA.**)
FILTLIST GMIG_DSN INCLUDE(GMIGR.**)
FILTLIST GIDM_GSP INCLUDE(IDMSDB.PR*.J%JRNL,
IDMSDB.PR*.SYSTEM.DDLDCLOG)
FILTLIST GIDT_DSN INCLUDE(PBANQ.*.DEV*.**,PBANQ.*.PP*.**,
PBANQ.*.AC4*.**,
PBANQ.*.DV6*.**,
PBANQ.*.FORM*.**,PBANQ.*.TEST*.**,
PBANQ.*.FO21*.**,
PBANQ.*.PI5*.**,
PBANQ.*.PP5*.**,
PBANQ.*.TCON*.**,PBANQ.*.PRIM*.**,
'PLIBR.SYST.GEES.PROFIL',
SACP.PBANQ.XD84012.**)
/********************************************************************/
/* PREFIXES AUTORISES POUR ACCEDER LE POOL PROD OUTILS */
/********************************************************************/
FILTLIST POOL_GPB0 INCLUDE('GSTDEA','JOBLOGG','CTRSYS','CTRCT1G',
PRDCT*)
FILTLIST GPB0_DSN INCLUDE(UCC1.TMSG158.**)
/********************************************************************/
/* PREFIXES AUTORISES POUR ACCEDER LE POOL DE PROD MARKETING */
/********************************************************************/
FILTLIST POOL_GMKT INCLUDE(XXXXXX*)
FILTLIST GMKT_DSN INCLUDE(PROD.SIMA.**,PROD.SADD.**,PROD1.SADD.**,
PROD.SGPE.M01%148.**)
EXCLUDE(PROD.SADD.J*.**)
/********************************************************************/
/* PREFIXES AUTORISES POUR ACCEDER LE POOL DE PROD GPRX */
/********************************************************************/
FILTLIST POOL_GPRX INCLUDE('EXPL','PRIM','PRSI')
FILTLIST GPRX_DSN INCLUDE(PROD.**,PRJT.**,STEM.**,
EXPLFTP.**,
PBANQ.EXCI.PROD01.**,
PBANQ.POLS.PROD*.LOCAL001.BDVIO.**)
EXCLUDE(PROD.IAM*.**,PROD.NMT*.**,PROD.NSPY*.**,
PROD.COUM.**,PROD.ECTA.** ,PROD.ENTP.**,
PROD.EXAU.**,PROD.EXME.** ,PROD.EXPH.**,
PROD.GEPE.**,PROD.LNCO.** ,PROD.QUAA.**,
PROD.REMA.**,PROD.RESP.** ,PROD.RESR.**,
PROD.RETE.**,PROD.RSVP.** ,PROD.SVMM.**,
PROD.SVSI.**,PROD.OCSII*.**,
PROD.*.%02*.**,PROD.*.J12*.**,
PROD.*.H12*.**,PROD.*.M12*.**,
PROD.*.A12*.**,PROD.*.O12*.**,
PROD.*.T12*.**,PROD.*.S12*.**,
PROD.*.J13*.**,PROD.*.H13*.**,
PROD.*.M13*.**,PROD.*.A13*.**,
PROD.*.O13*.**,PROD.*.T13*.**,
PROD.*.S13*.**,PROD.*.%03*.**,
PROD.*.J82*.**,PROD.*.H82*.**,
PROD.*.M82*.**,PROD.*.A82*.**,
PROD.*.O82*.**,PROD.*.S82*.**,
PROD.*.T82*.**,PROD.*.J83*.**,
PROD.*.H83*.**,PROD.*.M83*.**,
PROD.*.A83*.**,PROD.*.O83*.**,
PROD.*.S83*.**,PROD.*.T83*.**,
PROD.*.J04*.**,PROD.*.J84*.**,
PROD.*.H04*.**,PROD.*.H84*.**,
PROD.*.M04*.**,PROD.*.M84*.**,
PROD.*.A04*.**,PROD.*.A84*.**,
PROD.*.O04*.**,PROD.*.O84*.**,
PROD.*.S04*.**,PROD.*.S84*.**,
PROD.*.T04*.**,PROD.*.T84*.**,
PROD.*.J14*.**,
PROD.*.H14*.**,
PROD.*.M14*.**,
PROD.*.A14*.**,
PROD.*.O14*.**,
PROD.*.S14*.**,
PROD.*.T14*.**)
/********************************************************************/
/* PREFIXES AUTORISES POUR ACCEDER LE POOL DE PROD STANDARD GPRT */
/********************************************************************/
FILTLIST GPRT_DSN INCLUDE(PROD.*.J82*.**,PROD.*.H82*.**,
PROD.*.M82*.**,PROD.*.A82*.**,
PROD.*.O82*.**,PROD.*.S82*.**,
PROD.*.T82*.**,PROD.*.J83*.**,
PROD.*.H83*.**,PROD.*.M83*.**,
PROD.*.A83*.**,PROD.*.O83*.**,
PROD.*.S83*.**,PROD.*.T83*.**,
PROD.*.%02*.**,PROD.*.J12*.**,
PROD.*.H12*.**,PROD.*.M12*.**,
PROD.*.A12*.**,PROD.*.O12*.**,
PROD.*.T12*.**,PROD.*.S12*.**,
PROD.*.J13*.**,PROD.*.H13*.**,
PROD.*.M13*.**,PROD.*.A13*.**,
PROD.*.O13*.**,PROD.*.T13*.**,
PROD.*.S13*.**,PROD.*.%03*.**,
PROD.*.J04*.**,PROD.*.J84*.**,
PROD.*.H04*.**,PROD.*.H84*.**,
PROD.*.M04*.**,PROD.*.M84*.**,
PROD.*.A04*.**,PROD.*.A84*.**,
PROD.*.O04*.**,PROD.*.O84*.**,
PROD.*.S04*.**,PROD.*.S84*.**,
PROD.*.T04*.**,PROD.*.T84*.**,
PROD.*.J14*.**,
PROD.*.H14*.**,
PROD.*.M14*.**,
PROD.*.A14*.**,
PROD.*.O14*.**,
PROD.*.S14*.**,
PROD.*.T14*.**)
/********************************************************************/
/* PREFIXES AUTORISES POUR ACCEDER LE POOL DE PROD GPAC */
/********************************************************************/
FILTLIST GPAC_DSN INCLUDE(PROD.COUM.**,PROD.ECTA.** ,PROD.ENTP.**,
PROD.EXAU.**,PROD.EXME.** ,PROD.EXPH.**,
PROD.GEPE.**,PROD.LNCO.** ,PROD.QUAA.**,
PROD.REMA.**,PROD.RESP.** ,PROD.RESR.**,
PROD.RETE.**,PROD.RSVP.** ,PROD.SVMM.**,
PROD.SVSI.**)
/********************************************************************/
/* FICHIERS AIGUILLES HORS ROBOT */
/********************************************************************/
FILTLIST VOUTE_DSN INCLUDE(PROD1.COMP.E01S000.ZSMRM01.BAC.**,
PROD1.COMP.E01S000.ZSMRM01.BAC2.**,
PROD1.PRES.E01S000.PRESRM1.BAC.**,
PROD1.TBAC.E01S121.BAC1R121.PRIMGDA.**,
PROD1.TBAC.E01S121.BAC1R211.PERTGDA.**,
PROD1.TBAC.E01S121.BAC1R211.SINGDAG.**,
PROD1.BIEN.ES333.TC05RT7.COS.**,
PROD1.COMP.ES000.ZSMRM01.COS.**,
PROD1.PROV.E01S661.PRV6R611.AGCD.**,
PROD1.PROV.E01S661.PRV6R611.SECU.**,
PROD1.CONT.E01S999.IDCAMS.SSQ.**,
PROD1.MRR575.SOUM.BANDE.**)
/********************************************************************/
/* FICHIERS POUR VOLUMES INST** */
/********************************************************************/
FILTLIST INSTALL INCLUDE(INSTALL.**,
DATAALL.**)
/********************************************************************/
/* FORCER REASSIGNATION 'STORCLAS' EN MODE RECALL,RECOVER,CONVERT */
/********************************************************************/
IF ((&ACSENVIR EQ 'RECALL' OR &ACSENVIR EQ 'RECOVER')
AND (&STORCLAS NE '')) THEN
DO
IF ((&STORCLAS = 'SCUCAT') OR (&STORCLAS = 'SCTMM')
OR (&STORCLAS = 'SCTMI') OR (&USER = &AUTH_LIST))
THEN SET &STORCLAS = &STORCLAS
ELSE SET &STORCLAS = ''
END
IF ((&ACSENVIR EQ 'CONVERT') AND (&STORCLAS NE '')) THEN
SET &STORCLAS = ''
/********************************************************************/
/* ASSIGNATION DU SCUCAT POUR FICHIER TEMP LORS DE MOVE */
/********************************************************************/
IF &DSN = &CAT_DSN THEN DO
SET &STORCLAS = 'SCUCAT'
EXIT CODE(0)
END
/********************************************************************/
/* ASSIGNATION DU SCXXCF POUR SYSPLEX */
/********************************************************************/
IF &HLQ = &POOL_XXCF THEN DO
SET &STORCLAS = 'SCXXCF'
EXIT CODE(0)
END
/********************************************************************/
/* ASSIGNATION DU SCABRMOD POUR MODELE FDRABR */
/********************************************************************/
IF &DSN = &FDRABR THEN DO
SET &STORCLAS = 'SCABRMOD'
EXIT CODE(0)
END
/********************************************************************/
/* ASSIGNATION DU NONSMS POUR VOLUMES GPROV* */
/********************************************************************/
IF ((&DSN = &GPROV_DSN) AND (&USER = &AUTH_GPROV)) THEN DO
SET &STORCLAS = ''
END
/********************************************************************/
/* ASSIGNATION DU SCGIPL POUR FICHIER AZTEX */
/********************************************************************/
IF &DSN = &AZTEX_DSN THEN DO
SET &STORCLAS = 'SCGIPL'
EXIT CODE(0)
END
/********************************************************************/
/* SMS TAPE POUR VTS */
/********************************************************************/
IF (&UNIT = &ALLCUNIT AND (&USER = &VTSUSER OR &DSN = &VTSDSN)
AND (&DATACLAS NE 'OFFSITE')) THEN
DO
IF (&ANYVOL = 'REF=ST') OR (&UNIT = 'AFF=SMST') THEN
DO
SET &STORCLAS = 'MED2VTS'
EXIT CODE (0)
END
IF (&USER=&VTSUSER AND &DATACLAS='MED2VTS') THEN
DO
SET &STORCLAS = 'MED2VTS'
EXIT CODE (0)
END
IF (&DSN = &VTSDSN) THEN
DO
SET &STORCLAS = 'MED2VTS'
EXIT CODE (0)
END
END
/********************************************************************/
/* SMS TAPE POUR STK */
/********************************************************************/
IF (&ACSENVIR EQ 'STKTAP1') THEN DO
IF (&UNIT = &TAPEUNIT &&
&DATACLAS ¬= DCTMM* &&
&DSN ¬= &VOUTE_DSN) THEN SET &STORCLAS = 'SCR4490'
IF (&UNIT = 'TAPE') THEN SET &STORCLAS = 'SCM3420'
IF (&UNIT = 'MAN3480') THEN SET &STORCLAS = 'SCM3480'
END
ELSE
/********************************************************************/
/* ROUTINES NORMALES SMS POUR DASD */
/********************************************************************/
SELECT
/********************************************************************/
/* ASSIGNATION DU SCGDAPP POUR POOL: POOL_GDAPP */
/********************************************************************/
WHEN (&DSN = &POOL_GDAPP)
SET &STORCLAS = 'SCGDAPP'
/********************************************************************/
/* ASSIGNATION DU SCGMIG POUR DSN : GMIG_DSN */
/********************************************************************/
WHEN (&DSN = &GMIG_DSN)
SET &STORCLAS = 'SCGMIG'
/********************************************************************/
/* AIGUILLAGE VERS VOLUMS INST** */
/********************************************************************/
WHEN (&DSN = &INSTALL)
SET &STORCLAS = 'INSTALL'
/********************************************************************/
/* AIGUILLAGE DES FICHIERS SUR TMM */
/********************************************************************/
WHEN (&DATACLAS = DCTMM* OR &STORCLAS = 'SCTMM')
SET &STORCLAS = 'SCTMM'
WHEN (&DATACLAS = DCTMI* OR &STORCLAS = 'SCTMI')
SET &STORCLAS = 'SCTMI'
/********************************************************************/
/* EXCLUSION DES UNIT NAME INVALIDE ET DE VIO POUR LES STC */
/********************************************************************/
WHEN (&UNIT NE &VALUNIT)
SET &STORCLAS = ''
/********************************************************************/
/* EXCLUSION DES FICHIERS ET VOLUMES DE SMS */
/********************************************************************/
WHEN (&ANYVOL = &VOL_NONSMS OR &HLQ = &HLQ_NONSMS)
SET &STORCLAS = ''
WHEN (&ANYVOL = &VOL_BANQ && &HLQ = 'PBANQ')
SET &STORCLAS = ''
/********************************************************************/
/* ALLOCATION DE FICHIER POUR LE POOL PROD MARKETING */
/********************************************************************/
WHEN (&HLQ=&POOL_GMKT OR &DSN=&GMKT_DSN)
SET &STORCLAS = 'SCPRMKT0'
/********************************************************************/
/* ACCEPTATION DE 'STORCLAS DANS LE JCL POUR LES USAGERS AUTORISES */
/* OU LES DISQUES DE SYSTEME SMS */
/********************************************************************/
WHEN (&STORCLAS = 'SCGIPL')
SET &STORCLAS = &STORCLAS
WHEN ((&USER = &AUTH_LIST) AND (&STORCLAS NE ''))
DO
SET &STORCLAS = &STORCLAS
IF (&HLQ = 'UCAT' AND &STORCLAS ¬= 'SCUCAT')
THEN SET &STORCLAS = ''
END
/********************************************************************/
/* ALLOCATION DES FICHIERS SUR GTMP* */
/* FICHIERS SUR GSPB* ET GTPB* */
/********************************************************************/
WHEN (&ANYVOL = GTMP*)
SET &STORCLAS = 'SCTSO'
WHEN (&ANYVOL = GSPB* AND (&DSTYPE = 'TEMP' OR &HLQ = &POOL_GSPB))
SET &STORCLAS = 'SCTSTBD'
WHEN (&ANYVOL = GTPB* AND (&DSTYPE = 'TEMP' OR &HLQ = &POOL_GSPB))
SET &STORCLAS = 'SCTTTBD'
/********************************************************************/
/* ALLOCATION DE FICHIER TEMPORAIRE */
/********************************************************************/
WHEN ((&DSTYPE = 'TEMP' OR &UNIT = 'PUBLIC' OR &STORCLAS = 'SCTEMP'
OR &ANYVOL = GWORX* OR &ANYVOL = GWRK*)
&& &ACSENVIR ¬= 'RECALL')
SET &STORCLAS = 'SCTEMP'
/********************************************************************/
/* ALLOCATION DE FICHIER POUR LE POOL TSO */
/*********** SAUF POUR: ****************/
/* FORCE LES IDMSDB....PROFILE SUR LE POOL GIDM** */
/********************************************************************/
WHEN (&DSN = >SO_SAUF)
SET &STORCLAS = 'SCIDMSTD'
WHEN (&HLQ = &POOL_GTSO OR &LLQ = >SO_LLQ OR &DSN = >SO_DSN )
SET &STORCLAS = 'SCTSO'
/********************************************************************/
/* ASSIGNATION DU NONSMS POUR FICHIERS MISNET ( BENCHMARK ) */
/********************************************************************/
WHEN ((&DSN = &DSN_MISNT) AND (&USER = &AUTH_MISNT))
SET &STORCLAS = ''
/********************************************************************/
/* ALLOCATION DE FICHIER POUR LE POOL DEVELOPPEMENT */
/********************************************************************/
WHEN (&HLQ = &POOL_GDVX OR &DSN = &GDVX_DSN)
SET &STORCLAS = 'SCDEV'
/********************************************************************/
/* ALLOCATION DE FICHIER POUR LE POOL IDMS LOGICIEL */
/********************************************************************/
WHEN (&DSN=&GIDT_DSN)
SET &STORCLAS = 'SCIDTSTD'
WHEN (&HLQ = &POOL_GIDM OR &DSN = &GIDM_DSN)
DO
SET &STORCLAS = 'SCIDMSTD'
IF (&DSN = &GIDM_GSP) THEN SET &STORCLAS = 'SCIDMGSP'
IF (&DSN = &GJNL_DSN) THEN SET &STORCLAS = 'SCGJNL'
IF (&DSN = &GDIS_DSN) THEN SET &STORCLAS = 'SCGDIS'
END
/********************************************************************/
/* ALLOCATION DE FICHIER POUR LE POOL PROD OUTILS */
/********************************************************************/
WHEN (&HLQ=&POOL_GPB0 OR &DSN=&GPB0_DSN)
SET &STORCLAS = 'SCPRSTD0'
/********************************************************************/
/* ALLOCATION DE FICHIER POUR LE POOL PROD PRINCIPAL */
/********************************************************************/
WHEN (&HLQ=&POOL_GPRX OR &DSN=&GPRX_DSN)
SET &STORCLAS = 'SCPRSTD1'
/********************************************************************/
/* ALLOCATION DE FICHIER POUR LE POOL PROD ACTUARIAT */
/********************************************************************/
WHEN (&DSN=&GPAC_DSN)
SET &STORCLAS = 'SCPRSTD2'
/********************************************************************/
/* ALLOCATION DE FICHIER POUR LE POOL PROD SPECIAL */
/********************************************************************/
WHEN (&DSN=&GPRT_DSN)
SET &STORCLAS = 'SCPRSTD3'
/*------------------------------------------------------------------*/
/* POUR LES RECALLS AVEC UN SC PERIMEE */
/*------------------------------------------------------------------*/
WHEN (&STORCLAS NE '')
IF (&STORCLAS = &VALID_SC) THEN DO
SET &STORCLAS = &STORCLAS
EXIT
END
ELSE DO
SET &STORCLAS = 'SCTSO'
EXIT
END
/********************************************************************/
/* EN TOUT AUTRE CAS, LE FICHIER N'EST PAS SMS -- FIN CODE SELECT*/
/********************************************************************/
OTHERWISE SET &STORCLAS = ''
END
END
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html