Space announcement This documentation space provides the same content as before, but the organization of the content has changed. The content is now organized based on logical branches instead of legacy book titles. We hope that the new structure will help you quickly find the content that you need.

Cobol programs available for WS

The COBOL Programs Available for WS screen is accessed by entering the PGMSTOR fast-path command on the SVC Dump Diagnostic Summary. This screen allows you to add an additional COBOL program to the list of known programs so that you can format the working storage when the storage addresses and a suitable DDIO listing are available.

Enter the following line commands to the left of the desired program name to do the following:

  • D: Display detail information for the COBOL program.
  • A: Add additional COBOL program.
  • F: Format storage for the COBOL program.
  • U: Update information for the COBOL program

Cobol Programs Available for WS

Abend-AID Cobol Programs Available for WS --- Row 000001 of 000092
COMMAND ===>  SCROLL ===> PAGE

 D Detail info for Cobol Program A Add additional Cobol Program
 F Format storage for Cobol Program U Update info for Cobol Program

WSA  Compile   Compile  Listing  Listing
  Program   Task  WSA addr   length  Date    Time  Date   Time
  ********  *******  ********   ******** ********  ********  ******** ********
_ CB7PGM76  74  40AFCB50   00001032 04/19/19  15:17:31
_ CB7PGM75  74  40AF2390   000010DA 04/19/19  15:17:29
_ CB7PGM74  74  40AE7BD0   000010DA 04/19/19  15:17:27
_ CB7PGM73  74  40ADD410   000010DA 04/19/19  15:17:23
_ CB7PGM76  73  40ACCB50   00001032 04/19/19  15:17:31  04/19/19 15:17:31
_ CB7PGM75  73  40AC2390   000010DA 04/19/19  15:17:29
_ CB7PGM74  73  40AB7BD0   000010DA 04/19/19  15:17:27
_ CB7PGM73  73  40AAD410   000010DA 04/19/19  15:17:23
_ CB7PGM76  72  40A9CB50   00001032 04/19/19  15:17:31
_ CB7PGM75  72  40A92390   000010DA 04/19/19  15:17:29
_ CB7PGM74  72  40A87BD0   000010DA 04/19/19  15:17:27
_ CB7PGM73  72  40A7D410   000010DA 04/19/19  15:17:23
_ CB7PGM76  71  40A6CB50   00001032 04/19/19  15:17:31
_ CB7PGM75  71  40A62390   000010DA 04/19/19  15:17:29

The Cobol Program Working Storage screen lists the storage for the selected COBOL program in a formatted layout.

Cobol Program Working Storage

Abend-AID - Cobol Program Working Storage -------------- Row 000001
COMMAND ===>   SCROLL ===> PAGE
  ==>
 Cobol program name....... CB7PGM76
 Program Compile Date..... 04/19/19 Source Listing Date...... 04/19/19
 Program Compile Time..... 15:17:31 Source Listing Time...... 15:17:31

Cobol Storage
******************************************************************************
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-HEADER
02 FILLER VALUE 'CB7PGM76-V01-L01'
X(16)    CB7PGM76-V01-L01
02 FILLER VALUE '<<19 APRIL 2019>>'
X(20)    <<19 APRIL 2019>>
01 WS-MISC-FIELDS
 02 W01-NUMBER-X
  03 W01-NUMBER VALUE  ZERO
S9(5)    COMP-3    +0
02 W01-SMALL-NUMBER-01 VALUE +0.00000000000002
S9V9(14) COMP-3 +2
02 W01-SMALL-NUMBER-02 VALUE +0.00000000000003
S9V9(14) COMP-3 +3

 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*