CTITLEXDUMPX -- TO OBTAIN A STORAGE DUMP IN FORTRAN OR COBOL            00000010
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    SYSTEM PROGRAM         SYS1.SUBLIB                                00000021
CA    MAINTAINED BY          DATA PROCESSING                            00000022
CA    AUTHOR                                                            00000030
CA    DESIGNER                                                          00000040
CA    LANGUAGE                                                          00000050
CA    SYSTEM                 IBM (SEE CRAY)                             00000050
CA    WRITTEN                                                           00000060
CA                                                                      00000070
CA                                                                      00000080
CA    COBOL   --> CALL 'XDUMPX'.                                        00000090
CA    FORTRAN --> CALL  XDUMPX                                          00000100
CA                                                                      00000110
CA                                                                      00000120
CA    NO PARAMETERS ARE NECESSARY.                                      00000130
CA                                                                      00000140
CA    THIS SUBROUTINE PROVIDES A MEANS OF OBTAINING A STORAGE DUMP      00000150
CA    FROM A COBOL OR FORTRAN PROGRAM.  ONCE THIS ROUTINE IS CALLED,    00000160
CA    THERE IS NO RETURN TO THE CALLING PROGRAM.                        00000170
CA                                                                      00000180
CA    THE COMPLETION CODE THAT WILL BE SHOWN ON THE CORE DUMP LISTING   00000190
CA    IS A USER'S CODE OF 99.                                           00000200
CA                                                                      00000210
CAEND                                                                   00000220