It did not show the code analysis of my cobol and rpg code

It did not show the code analysis of my cobol and rpg code

code

SRCSEQ;SRCDAT;SRCDTA
‚*************************************************************************
‚*      Descripción...: Migra los datos para:                          ***
‚*                    : SATF0702 Contratos                        o    ***
‚*      Módulo........: Migración FACT al nuevo core SAT.              ***
‚*      Director......: Adriana Casallas                               ***
‚*      Realizó.......: John Perez                                     ***
‚*      Fecha.........: Marzo 2011                                     ***
‚*                                                                     ***
‚*************************************************************************
IDENTIFICACION DIVISION.
PROGRAM-ID. SATB0702.
AUTHOR. GCS CONSULTING LTDA - BANCO COLPATRIA.
INSTALLATION.  BANCO COLPATRIA.
DATE-WRITTEN.  20110331.
DATE-COMPILED. 20110331.
‚*
‚*********************************
****** ENVIRONMENT  SECTION *****
‚*********************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-AS400.
OBJECT-COMPUTER. IBM-AS400.
INPUT-OUTPUT SECTION.
‚*
‚*********************************
****** INPUT-OUTPUT SECTION *****
‚*********************************
FILE-CONTROL.
SELECT SATF0701
ASSIGN TO DATABASE-SATF0701
ORGANIZATION IS SEQUENTIAL
ACCESS MODE  IS SEQUENTIAL
FILE STATUS  IS WRK-STATUS.
‚*
SELECT SATF0702
ASSIGN TO DATABASE-SATF0702
ORGANIZATION IS RELATIVE.
‚*
‚**********************************
****** DATA DIVISION SECTION *****
‚**********************************
DATA DIVISION.
FILE SECTION.
‚*
FD  SATF0701
LABEL RECORD IS STANDARD.
01  SATF0702-RECRD.
COPY DDS-SATR0701 OF SATF0701.
‚*
FD SATF0702.
01 SATR0702.
 
05 W_ENTI0702           PIC X(04).
05 W_CINT0702           PIC 9(02).
05 W_SECU0702           PIC 9(10).
05 W_REGI0702           PIC 9(12).
05 W_CDEN0702           PIC X(04).
05 W_CEAL0702           PIC X(04).
05 W_CUTJ0702           PIC X(12).
05 W_FEAL0702           PIC X(10).
05 W_CDPR0702           PIC X(02).
05 W_SBPR0702           PIC X(04).
05 W_CDEC0702           PIC X(03).
05 W_INCM0702           PIC X(06).
05 W_CDCV0702           PIC X(04).
05 W_FMPG0702           PIC S9(02).
05 W_ULCA0702           PIC X(10).
05 W_FEBJ0702           PIC X(10).
05 W_MOBJ0702           PIC X(02).
05 W_PGTM0702           PIC S9(02).
05 W_INPG0702           PIC X(10).
05 W_FIPG0702           PIC X(10).
05 W_INES0702           PIC S9(02).
05 W_ULES0702           PIC X(10).
05 W_IBLO0702           PIC X(01).
05 W_IBLC0702           PIC X(01).
05 W_INEM0702           PIC S9(01).
05 W_INET0702           PIC S9(01).
05 W_NBEM0702           PIC X(30).
05 W_INSI0702           PIC S9(01).
05 W_FERS0702           PIC X(10).
05 W_PRLQ0702           PIC S9(02).
05 W_GRLQ0702           PIC S9(02).
05 W_PRCU0702           PIC S9(02).
05 W_GRCU0702           PIC S9(02).
05 W_RSME0702           PIC X(12).
05 W_TPNB0702           PIC X(06).
05 W_ULPL0702           PIC S9(12).
05 W_CDPM0702           PIC X(03).
05 W_INPR0702           PIC X(01).
05 W_NRMS0702           PIC S9(02).
05 W_RGFS0702           PIC S9(04).
05 W_CNFC0702           PIC S9(02).
05 W_ULDB0702           PIC S9(09).
05 W_NRNB0702           PIC S9(05).
05 W_CDOF0702           PIC X(04).
05 W_FMIM0702           PIC X(10).
05 W_INDM0702           PIC X(01).
05 W_CMGR0702           PIC X(10).
05 W_INTR0702           PIC X(01).
05 W_ULMO0702           PIC X(04).
05 W_ULOF0702           PIC X(04).
05 W_ULUS0702           PIC X(08).
05 W_ULTR0702           PIC X(08).
05 W_CNMD0702           PIC X(26).
‚*
‚************************************
****** WORKING-STORAGE SECTION.*****
‚************************************
WORKING-STORAGE SECTION.
01 WRK-STATUS              PIC X(02).
01 FIN_ARCHIVO             PIC 9           VALUE 0.
01 WRK_NREG                PIC 9(12).
01 WRK_UNO                 PIC 9(01)       VALUE 1.
‚*
‚******************************
****** LINKAGE SECTION.  *****
****** PROCEDURE SECTION.*****
‚******************************
LINKAGE SECTION.
‚*
PROCEDURE DIVISION.
PERFORM INICIO.
PERFORM LEER.
PERFORM MOVER UNTIL FIN_ARCHIVO = 1.
PERFORM TERMINA.
‚*
‚**************************
****** RUTINA INICIO *****
‚**************************
INICIO.
OPEN INPUT  SATF0701
OPEN OUTPUT SATF0702
MOVE ZEROS TO FIN_ARCHIVO
MOVE ZEROS TO WRK_NREG.
‚*
‚********************************
****** RUTINA LEER ARCHIVO *****
‚********************************
LEER.
READ SATF0701 NEXT RECORD
AT END
MOVE 1 TO FIN_ARCHIVO
NOT AT END
MOVE 0 TO FIN_ARCHIVO
END-READ.
‚*
‚*************************
****** RUTINA MOVER *****
‚*************************
MOVER.
COMPUTE  WRK_NREG   =  WRK_NREG  +  WRK_UNO
‚*
MOVE     ENTI0701  TO  W_ENTI0702
MOVE     CINT0701  TO  W_CINT0702
MOVE     SECU0701  TO  W_SECU0702
MOVE     WRK_NREG  TO  W_REGI0702
MOVE     CDEN0701  TO  W_CDEN0702
MOVE     CEAL0701  TO  W_CEAL0702
MOVE     CUTJ0701  TO  W_CUTJ0702
MOVE     FEAL0701  TO  W_FEAL0702
MOVE     CDPR0701  TO  W_CDPR0702
MOVE     SBPR0701  TO  W_SBPR0702
MOVE     CDEC0701  TO  W_CDEC0702
MOVE     INCM0701  TO  W_INCM0702
MOVE     CDCV0701  TO  W_CDCV0702
MOVE     FMPG0701  TO  W_FMPG0702
*    MOVE     2         TO  W_FMPG0702
MOVE     ULCA0701  TO  W_ULCA0702
MOVE     FEBJ0701  TO  W_FEBJ0702
MOVE     MOBJ0701  TO  W_MOBJ0702
MOVE     PGTM0701  TO  W_PGTM0702
MOVE     INPG0701  TO  W_INPG0702
MOVE     FIPG0701  TO  W_FIPG0702
MOVE     INES0701  TO  W_INES0702
MOVE     ULES0701  TO  W_ULES0702
MOVE     IBLO0701  TO  W_IBLO0702
MOVE     IBLC0701  TO  W_IBLC0702
MOVE     INEM0701  TO  W_INEM0702
MOVE     INET0701  TO  W_INET0702
MOVE     NBEM0701  TO  W_NBEM0702
MOVE     INSI0701  TO  W_INSI0702
MOVE     FERS0701  TO  W_FERS0702
MOVE     PRLQ0701  TO  W_PRLQ0702
MOVE     GRLQ0701  TO  W_GRLQ0702
MOVE     PRCU0701  TO  W_PRCU0702
MOVE     GRCU0701  TO  W_GRCU0702
MOVE     RSME0701  TO  W_RSME0702
MOVE     TPNB0701  TO  W_TPNB0702
MOVE     ULPL0701  TO  W_ULPL0702
MOVE     CDPM0701  TO  W_CDPM0702
MOVE     INPR0701  TO  W_INPR0702
MOVE     NRMS0701  TO  W_NRMS0702
MOVE     RGFS0701  TO  W_RGFS0702
MOVE     CNFC0701  TO  W_CNFC0702
MOVE     ULDB0701  TO  W_ULDB0702
MOVE     NRNB0701  TO  W_NRNB0702
MOVE     CDOF0701  TO  W_CDOF0702
MOVE     FMIM0701  TO  W_FMIM0702
MOVE     INDM0701  TO  W_INDM0702
MOVE     CMGR0701  TO  W_CMGR0702
MOVE     INTR0701  TO  W_INTR0702
MOVE     ULMO0701  TO  W_ULMO0702
MOVE     ULOF0701  TO  W_ULOF0702
MOVE     ULUS0701  TO  W_ULUS0702
MOVE     ULTR0701  TO  W_ULTR0702
MOVE     CNMD0701  TO  W_CNMD0702
 
WRITE  SATR0702
 
END-WRITE
PERFORM LEER.
‚*
‚***************************
****** RUTINA TERMINA *****
‚***************************
TERMINA.
CLOSE  SATF0701
CLOSE  SATF0702
GOBACK.
‚*

example sonarscanner

-Dsonar.sources=PGM/Cobol
-Dsonar.sourceEncoding=UTF-8
-Dsonar.language=COBOL,RPG
-Dsonar.cobol.copy.directories=cpy
-Dsonar.cobol.file.suffixes=pco,cbl,cob,cl,clp,cle,clle,CLP,CLLE,CBLLE,CBL,cpy
-Dsonar.cobol.copy.suffixes=pco,cbl,cob,cl,clp,cle,clle,CLP,CLLE,CBLLE,CBL,cpy
-Dsonar.projectVersion=1.0 “”"

Hi,

You appear to have provided an unanalyzed file. We need instead your analysis logs. Code-formatted, please (``` on the line before and on the line after)

 
Ann