Page 3 of 3

Re: Problem COBOL-CICS Program DFHAID/DFHBMSCA does not comp

PostPosted: Mon Sep 03, 2018 9:59 pm
by enrico-sorichetti
one last remark ...

if the source of DFHBMSCA REALLY looks like the thing You posted probably You ZACIC1 volume is corrupted ( somehow ??? )

here how my DFHBMSCA looks


BROWSE    DFH320.CICS.SDFHCOB(DFHBMSCA)              Line 00000000 Col 001 080
Command ===>                                                  Scroll ===> CSR  
******************************** Top of Data **********************************
     ***************************************************************** 00060000
     *                                                               * 00120000
     * @BANNER_START                           02                    * 00128500
     * Licensed Materials - Property of IBM                          * 00137000
     *                                                               * 00145500
     * "Restricted Materials of IBM"                                 * 00154000
     *                                                               * 00162500
     * 5655-M15              DFHBMSCA                                * 00171000
     *                                                               * 00179500
     * (C) Copyright IBM Corp. 1988, 2005                            * 00188000
     *                                                               * 00196500
     * CICS                                                          * 00205000
     * (Element of CICS Transaction Server                           * 00213500
     *   for z/OS, Version 3 Release 2)                              * 00222000
     * @BANNER_END                                                   * 00230500
     *                                                               * 00240000
     * STATUS = 6.5.0                                                * 00300000
     *                                                               * 00370000
     * CHANGE ACTIVITY :                                             * 00440000
     *                                                               * 00510000
     *   $SEG(DFHBMSCA),COMP(BMS),PROD(CICS    ):                    * 00580000
     *                                                               * 00650000
     *  PN= REASON REL YYMMDD HDXXIII : REMARKS                      * 00720000
     * $01= A10639 650 051018 HDBGNRB : Migrate PK10639 from SPA R640* 00750000
     * $L0= Base   210 88     HD1MA   : Base                         * 00790000
     *                                                               * 00860000
     ***************************************************************** 00930000