Skip to content

Instantly share code, notes, and snippets.

@drillbits

drillbits/nTandaX.cob

Created October 31, 2012 12:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save drillbits/3986851 to your computer and use it in GitHub Desktop.
Save drillbits/3986851 to your computer and use it in GitHub Desktop.
Download ZIP
1000反田L on COBOL
Raw
nTandaX.cob
000000 IDENTIFICATION DIVISION.
000000 PROGRAM-ID. nTandaX.
000000*
000000 DATA DIVISION.
000000 WORKING-STORAGE SECTION.
000000 01 APB PIC X(26) VALUE 'ABCDEFGHIJKLMNOPORSTUVWXYZ'.
000000 01 I PIC 9(4).
000000 01 G PIC 9(4).
000000 01 N PIC 9(4).
000000 01 X PIC ZZZ9.
000000*
000000 PROCEDURE DIVISION.
000000*
000000 PERFORM VARYING I FROM 1 BY 1 UNTIL I > 1000
000000 DIVIDE I BY 26 GIVING G REMAINDER N
000000 IF N = 0
000000 MOVE 26 TO N
000000 END-IF
000000 MOVE I TO X
000000 DISPLAY X "反田" APB(N:1)
000000 END-PERFORM.
000000 STOP RUN.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment