Skip to content
Navigation Menu
Sign in
Appearance settings
Platform
AI CODE CREATION
GitHub Copilot
Write better code with AI
GitHub Copilot app
Direct agents from issue to merge
MCP Registry
Integrate external tools
DEVELOPER WORKFLOWS
Actions
Automate any workflow
Codespaces
Instant dev environments
Issues
Plan and track work
Code Review
Manage code changes
Code Quality
Enforce quality at merge
APPLICATION SECURITY
GitHub Advanced Security
Find and fix vulnerabilities
Code security
Secure your code as you build
Secret protection
Stop leaks before they start
EXPLORE
Why GitHub
Documentation
Blog
Changelog
Marketplace
View all features
Solutions
BY COMPANY SIZE
Enterprises
Small and medium teams
Startups
Nonprofits
BY USE CASE
App Modernization
DevSecOps
DevOps
CI/CD
View all use cases
BY INDUSTRY
Healthcare
Financial services
Manufacturing
Government
View all industries
View all solutions
Resources
EXPLORE BY TOPIC
AI
Software Development
DevOps
Security
View all topics
EXPLORE BY TYPE
Customer stories
Events & webinars
Ebooks & reports
Business insights
GitHub Skills
SUPPORT & SERVICES
Documentation
Customer support
Community forum
Trust center
Partners
View all resources
Open Source
COMMUNITY
GitHub Sponsors
Fund open source developers
PROGRAMS
Security Lab
Maintainer Community
GitHub Stars
Archive Program
REPOSITORIES
Topics
Trending
Collections
Enterprise
ENTERPRISE SOLUTIONS
Enterprise platform
AI-powered developer platform
AVAILABLE ADD-ONS
GitHub Advanced Security
Enterprise-grade security features
Copilot for Business
Enterprise-grade AI features
Premium Support
Enterprise-grade 24/7 support
Pricing
Search
/
Sign in
Sign up
Appearance settings
You signed in with another tab or window.
Reload
to refresh your session.
You signed out in another tab or window.
Reload
to refresh your session.
You switched accounts on another tab or window.
Reload
to refresh your session.
Dismiss alert
{{ message }}
Uh oh!
There was an error while loading.
Please reload this page
.
RedOperaBagatelles
/
CobolLearning
Public
Notifications
You must be signed in to change notification settings
Fork
0
Star
0
Code
Issues
0
Pull requests
0
Actions
Projects
Security and quality
0
Insights
Additional navigation options
Code
Issues
Pull requests
Actions
Projects
Security and quality
Insights
Files
Expand file tree
main
Breadcrumbs
CobolLearning
/
IBM_Zos.cbl
Copy path
Blame
More file actions
Blame
More file actions
Latest commit
History
History
History
27 lines (23 loc) · 1.49 KB
main
Breadcrumbs
CobolLearning
/
IBM_Zos.cbl
Copy path
Top
File metadata and controls
Code
Blame
27 lines (23 loc) · 1.49 KB
Raw
Copy raw file
Download raw file
Open symbols panel
Edit and raw actions
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
IDENTIFICATION DIVISION.
PROGRAM-ID. IBM-ZOS.
DATA DIVISION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
*> z/os : IBM 메인 프레임컴퓨터에서 사용하는 운영체제
*> Dataset : z/os에서는 파일을 의미
*> - AAA.BBB.CCC와 같은 형식으로 구성되어 있으며 USER.COBOL.SOURCE
*> - USER01.COBOL.COPYLIB, USER01.DATA.CUSTOMER처점 작성
*> - 크게 Sequential Dataset, PDS, VSAM으로 구성
*> Sequential Dataset : 가장 단순한 Dataset
*> PDS : 하나의 Dataset안에 여러 개의 파일을 저잘할 수 있는 구조
*> - Dataset는 USER01.COBOL.SOURCE이고 그 안에 HELLO, TEST01, TEST02가 있다면
*> 각각 USER01.COBOL.SOURCE(HELLO), USER01.COBOL.SOURCE(TEST01), USER01.COBOL.SOURCE(TEST02)
*> VSAM : Virtual Storage Access Method (메인프레임의 고성능 데이터 저장 방식)
*> - key 값을 이용하여 바로 접근 가능
*> - VSAM의 종류 : KSDS (Key Sequential Data Set), ESDS (Entry Sequential Data Set),
*> RRDS (Relative Record Data Set), LDS (Linear Data Set)
*> - 가장 많이 사뇽하는 방식 : KSDS
*> - CUSTOMER-ID를 키로 한다면 1001 Kim와 같은 파틸틀 "START CUSTOMER-FILE KEY IS = WS-ID"로 빠르게 처리할 수 있음
STOP RUN.
END PROGRAM IBM-ZOS.
You can’t perform that action at this time.