* $$ JOB JNM=V50SVGM1,CLASS=B
* $$ LST CLASS=L
// JOB V50SVGDM TRAVSYS REMONTEES D'INFOS SOUS VOLLIE
/* *************************************************
/* MERGE DES RECORDS OWNER AVEC SUM DES NOMBRES
/* *************************************************
// DLBL SORTIN1,'&&==.MG.OWNER'
// EXTENT SYS002,VDYNPS,1,0,1,100
// ASSGN SYS002,SYS099
// DLBL SORTOUT,'&&==.MG.OWNER.OUT'
// EXTENT SYS001,VDYNPS,1,0,1,100
// ASSGN SYS001,SYS099
// DLBL SORTWK1,'&&==.WORK1',1
// EXTENT SYS003,VDYNPS,1,0,1,100
// ASSGN SYS003,SYS099
// EXEC SORT
SORT FIELDS=(4,2,CH,A,1,3,CH,A),FILES=1
RECORD TYPE=F,LENGTH=21
INPFIL BLKSIZE=2100
OUTFIL BLKSIZE=4000
SUM FIELDS=(10,5,ZD)
OUTREC FIELDS=(1,21,59X)
END
/*
/* ****************************************************
/* ANNULATION DES SIGNES DES ZONES ZD DU SUM FIELDS
/* ****************************************************
// DLBL EARLOBJ,'&&==.EARLOBJ',0
// EXTENT ,VDYNPS,1,0,1,50
// DLBL IJSYS04,'&&==.IJSYS04',0
// EXTENT ,VDYNPS,1,0,1,50
// DLBL IJSYS05,'&&==.IJSYS05',0
// EXTENT ,VDYNPS,1,0,1,50
// DLBL WORK1,'&&==.WORK1',0
// EXTENT ,VDYNPS,1,0,1,50
// ASSGN SYS004,SYS099
// ASSGN SYS005,SYS099
// DLBL FDISKI,'&&==.MG.OWNER.OUT'
// EXTENT SYS020,VDYNPS,1,0,1,100
// ASSGN SYS020,SYS099
// DLBL FDISKO,'&&==.MG.OWNER.OUT2'
// EXTENT SYS020,VDYNPS,1,0,1,100
// ASSGN SYS020,SYS099
// EXEC EARL,SIZE=512K
USER 'SARL LE COUSERANS'
!
FDISKI: FILE DISK RECORD=80 BLOCK=4000 INPUT
DEFINE CARTEI 1-80 X
DEF CARTEITYP = CARTEI 01-03 X 'ACT OR SCR'
DEF CARTEIOWN = CARTEI 04-05 X 'OWNER ID'
DEF CARTEINUM = CARTEI 10-14 N PICTURE 'ZZZZ9'
!
FDISKO: FILE DISK RECORD=80 BLOCK=4000 OUTPUT
DEFINE CARTEO 1-80 X
DEF CARTEOTYP = CARTEO 01-03 X
DEF CARTEOOWN = CARTEO 05-06 X
DEF CARTEONUM = CARTEO 10-14 N PICTURE 'ZZZZ9'
!
GET FDISKI
GOTO EOJ FDISKI = 'E'
!
SET CARTEOTYP=CARTEITYP
SET CARTEOOWN=CARTEIOWN
SET CARTEONUM=CARTEINUM+0
!
IF CARTEONUM NOT = 0 THEN
PUT FDISKO
ENDIF
END
/*
// DLBL IJSYS10,'&&==.MG.OWNER.OUT2'
// EXTENT SYS010,VDYNPS
// ASSGN SYS010,SYS099
// EXEC SYPRT
DELETE &&&.DYNTOWN
ADD &&&.DYNTOWN
ALTINP SYS010
/*
// EXEC DYNUTIL
DELETE '&&==.*' POOL=VDYNPS
/*
/&
* $$ EOJ
Return to the Sample Job Stream List
//V50SVGM1 JOB (V50SVGM1),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//* STEP0010 PGM=SORT
//*
//STEP0010 EXEC PGM=SORT
//* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT
//* SD I SYS002 UA SORTIN1 '&&==.MG.OWNER'
//SORTIN DD DSN=MVS-MG.OWNER,
// DISP=SHR
//* SD O SYS001 UA '&&==.MG.OWNER.OUT'
//SORTOUT DD DSN=MVS-MG.OWNER.OUT,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(100,25),RLSE),
// UNIT=SYSDA
//* PR O
//SYSOUT DD SYSOUT=*
//* CD I
//SYSIN DD *
SORT FIELDS=(4,2,CH,A,1,3,CH,A)
RECORD TYPE=F,LENGTH=21
*INPFIL BLKSIZE=2100
*OUTFIL BLKSIZE=4000
SUM FIELDS=(10,5,ZD)
OUTREC FIELDS=(1,21,59X)
END
/*
//*
//* STEP0020 PROC=CAEARL EARL
//*
//STEP0020 EXEC PROC=CAEARL
//* MODULE EARL PROCESSED BY PLUG-IN LCPEARL
//* SD I '&&==.MG.OWNER.OUT'
//FDISKI DD DSN=MVS-MG.OWNER.OUT,
// DISP=OLD
//* SD O '&&==.MG.OWNER.OUT2'
//FDISKO DD DSN=MVS-MG.OWNER.OUT2,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(100,25),RLSE),
// UNIT=SYSDA
//* PR O
//SYSPRINT DD SYSOUT=*
//*DLBL EARLOBJ,'&&==.EARLOBJ',,SD
//*DLBL IJSYS04,'&&==.IJSYS04',,SD
//*DLBL IJSYS05,'&&==.IJSYS05',,SD
//*DLBL WORK1,'&&==.WORK1',,SD
//* CD I
//SYSIN DD *
USER 'SARL LE COUSERANS'
!
FDISKI: FILE DISK RECORD=80 BLOCK=4000 INPUT
DEFINE CARTEI 1-80 X
DEF CARTEITYP = CARTEI 01-03 X 'ACT OR SCR'
DEF CARTEIOWN = CARTEI 04-05 X 'OWNER ID'
DEF CARTEINUM = CARTEI 10-14 N PICTURE 'ZZZZ9'
!
FDISKO: FILE DISK RECORD=80 BLOCK=4000 OUTPUT
DEFINE CARTEO 1-80 X
DEF CARTEOTYP = CARTEO 01-03 X
DEF CARTEOOWN = CARTEO 05-06 X
DEF CARTEONUM = CARTEO 10-14 N PICTURE 'ZZZZ9'
!
GET FDISKI
GOTO EOJ FDISKI = 'E'
!
SET CARTEOTYP=CARTEITYP
SET CARTEOOWN=CARTEIOWN
SET CARTEONUM=CARTEINUM+0
!
IF CARTEONUM NOT = 0 THEN
PUT FDISKO
ENDIF
/*
//*
//* STEP0030 PGM=IEBGENER SYPRT
//*
//STEP0030 EXEC PGM=IEBGENER
//* SD I SYS010 UA IJSYS10 '&&==.MG.OWNER.OUT2'
//SYSUT1 DD DSN=MVS-MG.OWNER.OUT2,
// DISP=OLD
//* SD U A 'MVSPROD.CONTROL.CARDS'
//SYSUT2 DD DSN=MVSPROD.CONTROL.CARDS(DYNTOWN),
// DISP=SHR
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I SYS256 IGN
//SYSIN DD DUMMY
//*
//* --> PGM=DYNUTIL <-- DELETED
//*
//SCRATCH EXEC PGM=IEFBR14
//*
//DEL001 DD DSN=MVS-MG.OWNER.OUT,DISP=(MOD,DELETE)
//DEL002 DD DSN=MVS-MG.OWNER.OUT2,DISP=(MOD,DELETE)
//
Return to the Sample Job Stream List