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 “”"