ENDSYS – IPL

385 pts.
Tags:
AS/400
AS/400 storage
IPL
Storage
HI, recently my development/test box keeps going down because of sapce problems. ASP2 or ASP3 overflows and this causes the ENDSYS. is there any way to know before hand that now the system will go down? i have cleared everything i could and cant afford a new disk so any suggestions to scrape some more space is more than welcome.

Answer Wiki

Thanks. We'll let you know when a new response is added.

Hi,

You could try setting your system values QSTGLOWLMT and QSTGLOWACN. Then you should get some sort of notification that you’re low on space.

ASP overflows are one of the reasons that I always keep everything in one ASP.

Regards,

Martin Gilbert.

Discuss This Question: 8  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • WoodEngineer
    We use iSeries Navigator, aka Operations Navigator. I activated a monitor for disk storage used, which is one of the predefined metrics available to select. Then go to the Actions tab and select what you want the system to do when your warning level is reached. Then set the warning threshold and just let it run. Works great. We also use this technique to be alerted to jobs which are using to many system resources. If you shut down your PC at night, it will be necessary to re-start iSeries Navigator next time you start your PC. By the way, I also use iSeries Navigator to send messages to my cell phone for certain critical events. Lots of power in this tool which is included in Client Access.
    6,715 pointsBadges:
    report
  • graybeard52
    Its your development/test box. Multiple ASP's break up the available disk space. See if you can reorganize this system for a single ASP. It should be easier to manage.
    3,115 pointsBadges:
    report
  • Rockleadme
    i guess keeping everything in one asp is not an ideal when we are looking at HSM practice. We have divided the storage pools into 3 ASPs 1 for *system (default) 2 - application data and 3 for Journaling. This actually helps me when i want to know what to delete. mostly the journals. WoodEngineer - could you please let me know how do i send text msg to my mobile? do i need to purchase anything extra?
    385 pointsBadges:
    report
  • Gilly400
    Hi, I always keep journals and receivers in a library of their own - and I delete them as soon as they've been backed up to tape. One ASP makes life easier...IMHO Regards, Martin Gilbert.
    23,730 pointsBadges:
    report
  • Cwc
    Here's an article about how to set up monitors in iSeries Navigator, along with some program examples that could be run once the monitor is triggered. http://www.itjungle.com/fhg/fhg032107-story01.html This got me thinking about setting up a monitor on our test system, since the operators typically don't look at it very often. So I set up a test monitor for a job in MSGW status; however, it doesn't seem to work. I have a specific job name, but made the other criteria pretty broad - All for User, Subsystem, and Type. I submitted a batch job on the system being monitoried which has the job name that I've purposely made go into a MSGW status, but the monitor I set up isn't doing anything. Any ideas of things that I could check to see why it's not working?
    4,290 pointsBadges:
    report
  • Rockleadme
    Thanks Cwc!! you can use this piece of code that sends me mail on my test system if any job goes to *MSGW. works fine. Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number S o u r c e L i s t i n g 1 *CrtUsrSpc: Create user space for OS/400 API's 080912 000100 2 * 080912 000200 3 D QUSCRTUS PR extpgm('QUSCRTUS') 080912 000300 4 D UsrSpc 20A const 080912 000400 5 D ExtAttr 10A const 080912 000500 6 D InitialSize 10I 0 const 080912 000600 7 D InitialVal 1A const 080912 000700 8 D PublicAuth 10A const 080912 000800 9 D Text 50A const 080912 000900 10 D Replace 10A const 080912 001000 11 D ErrorCode 32766A options(*nopass: *varsize) 080912 001100 12 * 080912 001200 13 *-Prototype for API Retrieve User Space 080912 001300 14 * 080912 001400 15 D QUSRTVUS PR extpgm('QUSRTVUS') 080912 001500 16 D QRtvUserSpace... 080912 001600 17 D 20 080912 001700 18 D QRtvStartingPosition... 080912 001800 19 D 8B 0 080912 001900 20 D QRtvLengthOfData... 080912 002000 21 D 8B 0 080912 002100 22 D QRtvReceiverVariable... 080912 002200 23 D 32048 080912 002300 24 D QRtvError... 080912 002400 25 D 256 080912 002500 26 * 080912 002600 27 *-Prototupe for API Retrieve List Job 080912 002700 28 * 080912 002800 29 D QUSLJOB PR extpgm('QUSLJOB') 080912 002900 30 D QJObUserSpace... 080912 003000 31 D 20 080912 003100 32 D QJobFormatName... 080912 003200 33 D 8 080912 003300 34 D QJobJobName... 080912 003400 35 D 26 080912 003500 36 D QFldStatus... 080912 003600 37 D 10 080912 003700 38 D QFldError... 080912 003800 39 D 256 080912 003900 40 D QJobType... 080912 004000 41 D 1 080912 004100 42 D QNbrFldRtn... 080912 004200 43 D 8B 0 080912 004300 44 D QKeyFldRtn... 080912 004400 45 D 8B 0 DIM(100) 080912 004500 46 * 080912 004600 47 D QCMDEXC PR extpgm('QCMDEXC') 080912 004700 48 D os400_cmd 2000A options(*varsize) const 080912 004800 49 D cmdlength 15P 5 const 080912 004900 50 * 080912 005000 51 *Variables 080912 005100 Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number 52 * 080912 005200 53 D emailadddress S 24 inz('k.singh@cba.com.au') 080912 005300 54 D size S 10I 0 080912 005400 55 D UsrSpcName S 20 inz( 'DSPJOB QTEMP ' ) 080912 005500 56 ********************************************************************************************** 080912 005600 57 * Data structures 080912 005700 58 ********************************************************************************************** 080912 005800 59 D QUSA0100 DS 080912 005900 60 D QUsrSpcOffset... 080912 006000 61 D 1 4B 0 080912 006100 62 D QUsrSpcEntries... 080912 006200 63 D 9 12B 0 080912 006300 64 D QUsrSpcEntrieSize... 080912 006400 65 D 13 16B 0 080912 006500 66 * 080912 006600 67 D LJOBINPUT DS QUALIFIED 080912 006700 68 D JobName... 080912 006800 69 D 1 10 080912 006900 70 D Username... 080912 007000 71 D 11 20 080912 007100 72 D JobNumber... 080912 007200 73 D 21 26 080912 007300 74 D Status... 080912 007400 75 D 27 36 080912 007500 76 D UserSpace... 080912 007600 77 D 37 46 080912 007700 78 D UserSpaceLibrary... 080912 007800 79 D 47 56 080912 007900 80 D Format... 080912 008000 81 D 57 64 080912 008100 82 D JobType... 080912 008200 83 D 65 65 080912 008300 84 D Reserved01... 080912 008400 85 D 66 68 080912 008500 86 D Reserved02... 080912 008600 87 D 69 72B 0 080912 008700 88 * 080912 008800 89 D LJOB100 DS QUALIFIED 080912 008900 90 D JobName... 080912 009000 91 D 1 10 080912 009100 92 D UserName... 080912 009200 93 D 11 20 080912 009300 94 D JobNumber... 080912 009400 95 D 21 26 080912 009500 96 D InternalJobId... 080912 009600 97 D 27 42 080912 009700 98 D Status... 080912 009800 99 D 43 52 080912 009900 100 D JobType... 080912 010000 101 D 53 53 080912 010100 102 D JobSubType... 080912 010200 103 D 54 54 080912 010300 104 D Reserved01... 080912 010400 105 D 55 56 080912 010500 106 * 080912 010600 107 D LJOB200 DS QUALIFIED 080912 010700 Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number 108 D JobName... 080912 010800 109 D 1 10 080912 010900 110 D UserName... 080912 011000 111 D 11 20 080912 011100 112 D JobNumber... 080912 011200 113 D 21 26 080912 011300 114 D InternalJobId... 080912 011400 115 D 27 42 080912 011500 116 D Status... 080912 011600 117 D 43 52 080912 011700 118 D JobType... 080912 011800 119 D 53 53 080912 011900 120 D JobSubType... 080912 012000 121 D 54 54 080912 012100 122 D Reserved01... 080912 012200 123 D 55 56 080912 012300 124 D JobInfoStatus... 080912 012400 125 D 57 57 080912 012500 126 D Reserved02... 080912 012600 127 D 58 60 080912 012700 128 D NumberOfFieldsReturned... 080912 012800 129 D 61 64B 0 080912 012900 130 D ReturnedData... 080912 013000 131 D 65 1064 080912 013100 132 * 080912 013200 133 D LJOB200KEY DS QUALIFIED 080912 013300 134 D KeyNumber01... 080912 013400 135 D 1 4B 0 080912 013500 136 D NumberOfKeys... 080912 013600 137 D 5 8B 0 080912 013700 138 * 080912 013800 139 D LJOBKEYINFO DS QUALIFIED 080912 013900 140 D LengthOfInformation... 080912 014000 141 D 1 4B 0 080912 014100 142 D KeyField... 080912 014200 143 D 5 8B 0 080912 014300 144 D TypeOfData... 080912 014400 145 D 9 9 080912 014500 146 D Reserved01... 080912 014600 147 D 10 12 080912 014700 148 D LengthOfData... 080912 014800 149 D 13 16B 0 080912 014900 150 D KeyData... 080912 015000 151 D 17 1016 080912 015100 152 * 080912 015200 153 * APIERRDEF : Standard API error handling structure 080912 015300 154 * 080912 015400 155 D QUSEC DS 080912 015500 156 D ErrorBytesProvided... 080912 015600 157 D 1 4B 0 080912 015700 158 D ErrorBytesAvailble... 080912 015800 159 D 5 8B 0 080912 015900 160 D ErrorExceptionId... 080912 016000 161 D 9 15 080912 016100 162 D ErrorReserved... 080912 016200 163 D 16 16 080912 016300 Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number 164 * 080912 016400 165 D APIERROR DS 080912 016500 166 D APIErrorProvided... 080912 016600 167 D LIKE( ErrorBytesProvided ) 080912 016700 168 D INZ( %LEN( APIError )) 080912 016800 169 D APIErrorAvailble... 080912 016900 170 D LIKE( ErrorBytesAvailble ) 080912 017000 171 D APIErrorMessageID... 080912 017100 172 D LIKE( ErrorExceptionId ) 080912 017200 173 D APIErrorReserved... 080912 017300 174 D LIKE( ErrorReserved ) 080912 017400 175 D APIErrorInformation... 080912 017500 176 D 240A 080912 017600 177 ********************************************************************************************** 080912 017700 178 * program status data area 080912 017800 179 ********************************************************************************************** 080912 017900 180 D PgmSts SDS 080912 018000 181 D PlUser 254 263 080912 018100 182 D WlProgram *PROC 080912 018200 183 ********************************************************************************************** 080912 018300 184 * work fields 080912 018400 185 ********************************************************************************************** 080912 018500 186 D Variables DS 080912 018600 187 D Q 1 inz( '''' ) 080912 018700 188 D Count 15 0 inz( 0 ) 080912 018800 189 D KeyCount 15 0 inz( 0 ) 080912 018900 190 D EndPos 15 0 inz( 0 ) 080912 019000 191 D JobbStatus 4 inz( ' ' ) 080912 019100 192 D Subsystem 20 inz( ' ' ) 080912 019200 193 D ReturnCode 1 inz( ' ' ) 080912 019300 194 D FormatName 8 inz( ' ' ) 080912 019400 195 D QualifedJobName... 080912 019500 196 D 26 inz( ' ' ) 080912 019600 197 D JobStatus 10 inz( ' ' ) 080912 019700 198 D JobType 1 inz( ' ' ) 080912 019800 199 D NbrOfFldRtn 8B 0 inz( 0 ) 080912 019900 200 D KeyFldRtn 8B 0 inz( 0 ) dim( 100 ) 080912 020000 201 D StartingPosition... 080912 020100 202 D 8B 0 inz( 0 ) 080912 020200 203 D LengthOfData... 080912 020300 204 D 8B 0 inz( 0 ) 080912 020400 205 D KeyStartingPosition... 080912 020500 206 D 8B 0 inz( 0 ) 080912 020600 207 D KeyLengthOfData... 080912 020700 208 D 8B 0 inz( 0 ) 080912 020800 209 D ReceiverVariable... 080912 020900 210 D 32048 080912 021000 211 D OS400_Cmd 2000 inz( ' ' ) 080912 021100 212 D cmdLength 15P 5 inz( %size( os400_cmd ) ) 080912 021200 213 D True 1 inz( *on ) 080912 021300 214 D False 1 inz( *off ) 080912 021400 215 ********************************************************************************************** 080912 021500 216 * Main line code 080912 021600 217 ********************************************************************************************** 080912 021700 Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number 218 C EVAL size = 10000 080912 021800 219 080912 021900 220 C CALLP QUSCRTUS(UsrSpcName: 080912 022000 221 C 'USRSPC': 080912 022100 222 C size : 080912 022200 223 C x'00': 080912 022300 224 C '*ALL': 080912 022400 225 C 'Temp User Space for QUSLJOB API': 080912 022500 226 C '*YES': 080912 022600 227 C APIError) 080912 022700 228 C EXSR CheckJobSts 080912 022800 229 080912 022900 230 C EVAL *INLR = *ON 080912 023000 231 ************************************************* 080912 023100 232 ***check status of an Job 080912 023200 233 ************************************************* 080912 023300 234 C CHECKJOBSTS BEGSR 080912 023400 235 C EVAL FormatName = 'JOBL0200' 080912 023500 236 C EVAL QualifedJobName = '*ALL ' + '*ALL ' 080912 023600 237 C + '*ALL ' 080912 023700 238 * FormatName = 'JOBL0200'; 080912 023800 239 * QualifedJobName = '*ALL ' + '*ALL ' + '*ALL '; 080912 023900 240 C EVAL JobStatus = '*ACTIVE' 080912 024000 241 C EVAL JobType = '*' 080912 024100 242 C EVAL NbrOfFldRtn = 2 080912 024200 243 C EVAL KeyFldRtn( 1 ) = 0101 080912 024300 244 C EVAL KeyFldRtn( 2 ) = 1906 080912 024400 245 C callp QUSLJOB( UsrSpcName : 080912 024500 246 C FormatName : 080912 024600 247 C QualifedJobName : 080912 024700 248 C JobStatus : 080912 024800 249 C APIError : 080912 024900 250 C JobType : 080912 025000 251 C NbrOfFldRtn : 080912 025100 252 C KeyFldRtn ) 080912 025200 253 C 080912 025300 254 * if error message from the retrieve job API then dump program 080912 025400 255 C IF APIErrorMessageID <> ' ' B01 080912 025500 256 C DUMP 01 080912 025600 ======> aaaa *RNF5152 00 a 025600 DUMP is used but Debug not specified in Control specification. 257 C EVAL ReturnCode = True 01 080912 025700 258 C LEAVESR 01 080912 025800 259 C ENDIF E01 080912 025900 260 080912 026000 261 * run API to get user space attribute 080912 026100 262 C EVAL StartingPosition = 125 080912 026200 263 C EVAL LengthOfData = 16 080912 026300 264 C CALLP QUSRTVUS( UsrSpcName : 080912 026400 265 C StartingPosition : 080912 026500 266 C LengthOfData : 080912 026600 267 C ReceiverVariable : 080912 026700 268 C APIError ) 080912 026800 269 C EVAL QUSA0100 = ReceiverVariable 080912 026900 270 080912 027000 System ALFADEV Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number 271 * if error message from the retrieve user space API then dump program 080912 027100 272 080912 027200 273 C IF APIErrorMessageID <> ' ' B01 080912 027300 274 C DUMP 01 080912 027400 ======> aaaa *RNF5152 00 a 027400 DUMP is used but Debug not specified in Control specification. 275 C EVAL ReturnCode = True 01 080912 027500 276 C LEAVESR 01 080912 027600 277 C ENDIF E01 080912 027700 278 * preperation to read from user space 080912 027800 279 080912 027900 280 C EVAL StartingPosition = QUsrSpcOffset + 1 080912 028000 281 C EVAL LengthOfData = QUsrSpcEntrieSize 080912 028100 282 * read from user space 080912 028200 283 080912 028300 284 C FOR count = 1 to QUsrSpcEntries B01 080912 028400 285 C CALLP QUSRTVUS( UsrSpcName : 01 080912 028500 286 C StartingPosition : 01 080912 028600 287 C LengthOfData : 01 080912 028700 288 C ReceiverVariable : 01 080912 028800 289 C APIError ) 01 080912 028900 290 C EVAL LJOB200 = ReceiverVariable 01 080912 029000 291 C IF APIErrorMessageID <> ' ' B02 080912 029100 292 C DUMP 02 080912 029200 ======> aaaa *RNF5152 00 a 029200 DUMP is used but Debug not specified in Control specification. 293 C EVAL ReturnCode = True 02 080912 029300 294 C LEAVESR 02 080912 029400 295 C ENDIF E02 080912 029500 296 * check status of job 080912 029600 297 C EVAL JobbStatus = ' ' 01 080912 029700 298 C EVAL Subsystem = ' ' 01 080912 029800 299 C EVAL LJobKeyInfo = LJob200.ReturnedData 01 080912 029900 300 C EVAL KeyStartingPosition = 1 01 080912 030000 301 C EVAL KeyLengthOfData = 01 080912 030100 302 C LJobKeyInfo.LengthOfInformation 01 080912 030200 303 C FOR keycount = B02 080912 030300 304 C 1 to LJob200.NumberOfFieldsReturned B02 080912 030400 305 C EVAL LJobKeyInfo = %subst( LJob200.ReturnedData : 02 080912 030500 306 C KeyStartingPosition : 02 080912 030600 307 C KeyLengthOfData ) 02 080912 030700 308 C EVAL KeyLengthOfData = 02 080912 030800 309 C LJobKeyInfo.LengthOfInformation 02 080912 030900 310 C EVAL LJobKeyInfo = %subst( LJob200.ReturnedData : 02 080912 031000 311 C KeyStartingPosition : 02 080912 031100 312 C KeyLengthOfData ) 02 080912 031200 313 C EVAL Endpos = LJobKeyInfo.LengthOfData 02 080912 031300 314 C IF LJobKeyInfo.KeyField = 0101 B03 080912 031400 315 C EVAL JobbStatus = %subst( LJobKeyInfo.KeyData : 03 080912 031500 316 C 1 : 03 080912 031600 317 C Endpos) 03 080912 031700 318 C ELSEIF LJobKeyInfo.KeyField = 1906 X03 080912 031800 319 C EVAL Subsystem = %subst(LJobKeyInfo.KeyData: 03 080912 031900 320 C 1: 03 080912 032000 System ALFADEV Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number 321 C Endpos) 03 080912 032100 322 C ENDIF E03 080912 032200 323 C EVAL KeyStartingPosition = KeyStartingPosition 02 080912 032300 324 C + KeyLengthOfData 02 080912 032400 325 C ENDFOR E02 080912 032500 326 * if job in message wait then email message to address in 080912 032600 327 * variable email address 080912 032700 328 C IF Jobbstatus = 'MSGW' B02 080912 032800 329 C EVAL Subsystem = %trim( %subst( Subsystem : 02 080912 032900 330 C 11 : 10)) 02 080912 033000 331 C + '/' + %trim( %subst( Subsystem : 1 : 10 )) 02 080912 033100 332 C 02 080912 033200 333 C EVAL os400_cmd = 'snddst type(*lmsg) ' + 080912 033300 334 C 'tointnet((' + Q + %trim(emailadddress) + 080912 033400 335 C Q + ')) dstd(' + Q + 080912 033500 336 C 'Job is in *MSGW' + 080912 033600 337 C Q + ') longmsg(' + Q + 080912 033700 338 C 'Job (' + 080912 033800 339 C %trim( LJob200.JobName ) + '/' + 080912 033900 340 C %trim( LJob200.UserName ) + '/' + 080912 034000 341 C %trim( LJob200.JobNumber ) + 080912 034100 342 C ') subsystem ' + %trim( Subsystem ) + 080912 034200 343 C ' in status *MSGW' + 080912 034300 344 C Q + ')' 080912 034400 345 C 080912 034500 360 C MONITOR B03 080912 036000 361 C* CALLP qcmdexc ( os400_cmd : %size ( os400_cmd ) ) 080912 036100 362 C CALLP qcmdexc ( os400_cmd:cmdlength ) 03 080912 036200 363 C on-error X03 080912 036300 364 C DUMP 03 080912 036400 ======> aaaa *RNF5152 00 a 036400 DUMP is used but Debug not specified in Control specification. 365 C ENDMON E03 080912 036500 366 C ENDIF E02 080912 036600 367 080912 036700 368 C EVAL StartingPosition = StartingPosition 01 080912 036800 369 C + LengthOfData 01 080912 036900 370 C endfor E01 080912 037000 371 C endsr 080912 037100 372 080912 037200 373 080912 037300
    				
    385 pointsBadges:
    report
  • Rockleadme
    tried pasting the code for a program in this discussion that works fine for reporting any job that is in *MSGW but not sucessful. you can use this link to get what you want it works fine
    report
  • TomLiotta
    An ASP overflow shouldn't be cause for an IPL unless it also fills the system ASP. If your overflows are going that far, then combining the ASPs probably won't help much -- you'll still run out of space. What model system do you have? What is the OS VRM? How many drives of what types? How many drives in each ASP? What are the ASP DASD usage percentages? Something else seems wrong here. Tom
    125,585 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following