DFSORT (โปรแกรมการเรียงลำดับ IBM Mainframe)
OPTION COPY
INREC BUILD=(1,80,TRAN=ALTSEQ)
ไม่มีคำสั่งควบคุม SORT ใดที่สามารถเริ่มในคอลัมน์หนึ่งได้
เพื่อให้การทำงานด้วยตัวเองข้างต้นคุณต้องเปลี่ยนตารางการแปลสำรองการติดตั้งเริ่มต้นเพื่อชดเชยค่าทั้งหมดสำหรับตัวอักษรตัวพิมพ์ใหญ่และตัวพิมพ์เล็กล้อมรอบตัวอักษรสองตัวสุดท้าย
โดยไม่ต้องเปลี่ยนตารางเริ่มต้นมันจะต้องมีคำสั่ง ALTSEQ ที่แสดงรายการคู่ของค่าเลขฐานสิบหกที่ต้องการทั้งหมด (จาก - รหัสฐานสิบหกทันทีตามด้วยรหัสฐานสิบหกแต่ละคู่ของค่าฐานสิบหกคั่นด้วยเครื่องหมายจุลภาค):
OPTION COPY
INREC BUILD=(1,80,TRAN=ALTSEQ)
ALTSEQ CODE=(xxyy,...)
ดังนั้นเพื่อให้ได้ตัวพิมพ์ใหญ่ EBCDIC A ถึง C และ B ถึง D:
ALTSEQ CODE = (C1C3, C2C4)
แน่นอนว่าการพิมพ์ผิดพลาดบ่อยครั้งมากดังนั้นคุณจะใช้ขั้นตอน SORT อื่นเพื่อสร้างการ์ดควบคุมสำหรับขั้นตอนนี้และให้ SORT อ่านจากชุดข้อมูลที่สร้างโดยขั้นตอนใหม่นั้น
แน่นอนว่าสำหรับภาษาใดก็ตามที่รองรับ "ตารางการแปล" มันง่ายเหมือนการเปลี่ยนตารางการแปล โปรแกรม Nice COBOL พร้อม Codepage ที่เฉพาะเจาะจงและสามารถทำได้ในหนึ่งบรรทัดของโค้ดโพรซีเดอร์ COBOL (บวกกับบรรทัดบังคับของ COBOL ที่ไปพร้อมกับทุกอย่าง ... ไม่มากในกรณีนี้)
โอ้ 1,80 เป็น "ภาพบัตร" ซึ่งจะมีข้อความ อาจเป็นตัวพิมพ์ใหญ่ทั้งหมดในการเรียกใช้ครั้งแรก ...
x=z, y=a, z=b?