GPP003E NO MORE PDSVSE DISK SPACE SYS$MON

Products

• FAQS - Automated Systems Operation

Issue/Introduction

Ran the following JCL:

* $$ JOB JNM=EVTSUM,CLASS=M,DISP=D
// JOB EVTSUM
// EXEC GSACCNT,SIZE=(GSACCNT,100K)
ACTION SORTX
EVTSUM
/*
/&
* $$ EOJ

Received the following error:

F2 0002 // JOB EVTSUM
        DATE 01/08/2022, CLOCK 18/03/05
F2 0002 GPP003E NO MORE PDSVSE DISK SPACE SYS$MON
F2 0002 PDSVSE ERROR SIGNALLED  **DEBUG**
F2 0002 0S06I A DUMP MACRO WAS ISSUED
F2 0002 0S00I JOB EVTSUM   CANCELED
F2 0002 0S07I PROBLEM PROGRAM  PSW = 07BD3000 0070180C
F2 0002 0S29I DUMP STARTED
F2 0002 0S30I DUMP STARTED. MEMBER=DF200256.DUMP IN SUBLIB=SYSDUMP.F2
F2 0002 1I51I DUMP COMPLETE
F2 0002 4A87I AUTOMATIC CLOSE HAS BEEN STARTED

F2 0002 4A88I AUTOMATIC CLOSE FOR 1 FILE(S) COMPLETED

F2 0002 1S78I  JOB TERMINATED DUE TO  PROGRAM ABEND
F2 0002 EOJ EVTSUM
        DATE 01/08/2022, CLOCK 18/03/16, DURATION   00/00/10

Checked SYS$MON statistics:

** PDS DIRECTORY AND SPACE STATISTICS **

PDS ===> MON

Directory Information

Number of Directory Blocks Allocated . . . . . . . . . 150
Number of Directory Blocks Used . . . . . . . . . 128
Number of Files in Directory . . . . . . . . . 10610 56.1%
Number of Free Directory Entries . . . . . . . . . 8290

Data Space Statistics

Number of Data Blocks Allocated . . . . . . . . . 35847
Number of Data Blocks Used . . . . . . . . . 32379 90.3%
Number of Deleted Data Blocks . . . . . . . . . 62069
Number of Available + Deleted Blocks . . . . . . . . . 3468

Ran backup of SYS$MON

* $$ JOB JNM=GSMONBK,CLASS=M,DISP=D
* $$ LST CLASS=B,DISP=D
// JOB GSMONBK   GSPDSU - BACKUP OF PDS MON
/*   // UPSI 0001       DO NOT LOCK THE PDS
// TLBL GSPDSO,'PROD.FAQS50.MON.PDS.BK,00E',,,,,,02
// EXEC GSPDSU,SIZE=GSPDSU
PDS=MON,BACKUP
/*
/&
* $$ EOJ

Ran format of SYS$MON

* $$ JOB JNM=GSMONFMT,CLASS=0,DISP=H
* $$ LST CLASS=A,DISP=D
// JOB GSMONFMT    GSPDSU - FORMAT PDS MON
// EXEC GSPDSU,SIZE=GSPDSU
FORMAT=MON,NDIR=150
/*
/&
* $$ EOJ

Ran restore of SYS$MON

* $$ JOB JNM=GSMONRS,CLASS=0,DISP=H
* $$ LST CLASS=A,DISP=D
// JOB GSMONRS
// TLBL GSPDSI,'PROD.FAQS50.MON.PDS.BK,00E',,,,,,02
// EXEC GSPDSU,SIZE=GSPDSU
PDS=MON,RESTORE
/*
/&
* $$ EOJ

Checked statistics:

** PDS DIRECTORY AND SPACE STATISTICS **

PDS ===> MON

Directory Information

Number of Directory Blocks Allocated . . . . . . . . . 150
Number of Directory Blocks Used . . . . . . . . . 128
Number of Files in Directory . . . . . . . . . 10610 56.1%
Number of Free Directory Entries . . . . . . . . . 8290

Data Space Statistics

Number of Data Blocks Allocated . . . . . . . . . 35847
Number of Data Blocks Used . . . . . . . . . 32379 90.3%
Number of Deleted Data Blocks . . . . . . . . . 62069
Number of Available + Deleted Blocks . . . . . . . . . 3468

Job still gets error message: GPP003E NO MORE PDSVSE DISK SPACE SYS$MON

Environment

Release : 5.1

Component : FAQS Automated Systems Operation for z/VSE

Resolution

Recommend you increase area for EVTSUM

example (your values and names may be different)

DLBL SYS$MON,'VSELVL2.51.MON.PDS',99/365,SD  
// EXTENT ,PRM444,1,0,1320,1000

In addition we recommend an increase of the NDIR by about 20 to 30 percent

example (your names may be different)

Format of SYS$MON

* $$ JOB JNM=GSMONFMT,CLASS=0,DISP=H
* $$ LST CLASS=A,DISP=D
// JOB GSMONFMT    GSPDSU - FORMAT PDS MON
// EXEC GSPDSU,SIZE=GSPDSU
FORMAT=MON,NDIR=200     --> example your value may be different
/*
/&
* $$ EOJ