Search With Seek4Info.com
Welcome to collectivesolver - Programming & Software Q&A with code examples. A website with trusted programming answers. All programs are tested and work.

Contact: aviboots(AT)netvision.net.il

Semrush - keyword research tool

Turn ChatGPT, Claude, Gemini, And CoPilot Into Your Personal Assistant, Business Coach, Content Creator, And More

AFFILIATE MARKETING Your all-in-one performance engine Manage affiliates, creators, and customer referrals in one unified platform—turning every partnership into measurable growth
Secure & Reliable Web Hosting, Free Domain, Free SSL, 1-Click WordPress Install, Expert 24/7 Support

Boost your online presence with premium web hosting and servers

Most popular tags

python java c cpp c# javascript php vb# typescript nodejs go rust scala swift kotlin pascal html ruby dart r css bootstrap win32 groovy winapi vbnet sql mysql jquery pascal-string lua winforms kotlin-string bash c-string swift-string cpp-string go-string cobol c#-string php-string java-string vbnet-string rust-string python-string cpp-vector f# opengl scala-string javascript-string pascal-array swift-array typescript-string c-array php-array javascript-array rust-vector typescript-array python-list reactjs scala-array c-windows nodejs-string go-array kotlin-array nodejs-array sdl2 cpp-matrix cpp-array c#-list vbnet-list c-matrix pascal-matrix go-slice c#-array java-array nodejs-express character-code-ascii-unicode swift-matrix c#-matrix sdl3 angularjs transpose-matrix binary-search-algorithm dot-product-two-arrays generate-random-floating-point-numbers all-permutations-combinations kotlin-matrix typescript-matrix vbnet-array kotlin-list calculate-area-pentagon measure-function-execution-time sort-words-string exabyte-constant petabyte-constant terabyte-constant math-functions-constants string-to-title-case create-infinite-loop
Disclosure: My content contains affiliate links.

41,639 questions

54,302 answers

573 users

How to calculate the remainder in COBOL



58 views
asked Mar 4 by avibootz
Share on
share on gp share on fb share on tw share on li share on re share via email

1 Answer

0 votes 
IDENTIFICATION DIVISION.
PROGRAM-ID. RemainderExample.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 A          PIC 9(3) VALUE 17.
01 B          PIC 9(3) VALUE 5.
01 QUOTIENT   PIC 9(3).
01 REM        PIC 9(3).

PROCEDURE DIVISION.
  DIVIDE A BY B GIVING QUOTIENT REMAINDER REM.

  DISPLAY "17 DIV 5 = " QUOTIENT.
  DISPLAY "Remainder = " REM.

  STOP RUN.



*> run:
*>
*> 17 DIV 5 = 003
*> Remainder = 002
*>

 



answered Mar 4 by avibootz

Related questions

 | Search With Seek4Info.com
Powered by Question2Answer
...